Question

怎么在VB的一个文本框里显示Exce中的一个数据

例如在text1中显示一个excel的sheet1的R1数据

Answer 1

'要在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
'启动Excel
Set excel_App = CreateObject("Excel.Application")    '引用程序对象实例
'设置Excel为不可见
excel_App.Visible = False
'打开文件
Set excel_Book = excel_App.Workbooks.Open("book1.xlsx")    '工作簿实例
Set excel_sheet = excel_Book.Worksheets("Sheet1")    '数据表实例
 
'这里需要先将你的车号存入valuesearch变量才能搜索
Form1.TextBox1.text = excel_sheet.Range("R1").Value
 
'''''''''''''''''''''''''''''''''''
'关闭Excel文件
Set excel_sheet = Nothing
Set excel_Book = Nothing
excel_App.Quit
Set excel_App = Nothing