怎么能把excel中某个单元格里的数据读入VB的textbox中

2024-12-03 20:08:51
推荐回答(2个)
回答1:

Dim a As Integer

Dim xlApp As Excel.application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Private Sub Form_Load()
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open("C:\Documents and Settings\dezhao\Desktop\1.xls") '打开已经存在的EXCEL工件簿文件
textbox1.text=xlBook.Worksheets("sheet1").cells(1,1)
end sub

自己改改就行了

回答2:

比较复杂。。。
得先弄懂EXCEL文件的格式。任重而道远啊。