vb 的 excel 控件怎么使用

发布网友 发布时间：2022-04-22 09:49

我来回答

共3个回答

热心网友 时间：2022-04-24 02:02

'要在VB中操作Excel，需要引用Excel对象模型
'方法，在菜单里选择[工程] -- [引用]，在窗口里勾选 Microsoft Excel XX.X Object Library
'其中，XX.X取决于你安装的Office的版本号

'在你的显示按钮中加入以下代码。
'注："地址"中加入你的excel文件地址，如"C:\1.XLS"，要带双引号
'Sheet1也可以改为你的工作表的名字，要带双引号
Dim excel_App As Excel.Application
Dim excel_Book As Excel.Workbook
Dim excel_sheet As Excel.Worksheet
Dim CarWeight
'启动Excel
Set excel_App = CreateObject("Excel.Application") '引用程序对象实例
'设置Excel为不可见
excel_App.Visible = False
'打开文件
Set excel_Book = excel_App.Workbooks.Open("地址") '工作簿实例
Set excel_sheet = excel_Book.Worksheets("Sheet1") '数据表实例

'这里需要先将你的车号存入valuesearch变量才能搜索
'如 valuesearch = Form1.TextBox1.text

'进行搜索，存入carweight变量
CarWeight = Application.WorksheetFunction.VLookup(valuesearch, Range("C:C"), 2, False)

'然后将CarWeight赋值给你的皮重文本框
'如Form1.TextBox2.Text = CarWeight
'''''''''''''''''''''''''''''''''''
'关闭Excel文件
Set excel_sheet = Nothing
Set excel_Book = Nothing
excel_App.Quit
Set excel_App = Nothing

热心网友 时间：2022-04-24 03:20

要在VB中操作Excel，需要引用Excel对象模型 '方法，在菜单里选择[工程] -- [引用]，在窗口里勾选 Microsoft Excel XX.X Object Library '其中，XX.X取决于你安装的Office的版本号 '在你的显示按钮中加入以下代码。 '注："地址"中加入你的excel

热心网友 时间：2022-04-24 04:54

先插入一个模块，把下面代码复制粘贴上
sub a
sheets("目标工作表").range("目标单元格地址，如A1").select
end sub

使用的时候把代码中的汉字改成你的实际情况，不要把双引号去掉。
然后在控件上选右键菜单中的指定宏，指定上面的宏名a