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

Question

如题所述

Answer 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

自己改改就行了追问

你好，非常感谢你提供的代码，略加修改之后完全可以实现我想要的功能，但是为什么程序反应慢呢，甚至得我手动删掉原来的text1之后才能显示excel中的内容，是我的电脑的问题还是什么啊？麻烦您再解答一下，感激不尽啦

追答

反应慢应该跟这个程序关系不大，但是可以再优化一下：
Dim xlApp As Excel.application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Private Sub Form_Load()
Text1.Text = "" '将text1清空
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open("C:\Documents and Settings\dezhao\Desktop\1.xls") '打开已经存在的EXCEL工件簿文件
Text1.Text = xlBook.Worksheets("一").cells(1, 1)
xlBook.Close '关闭excel工作簿
Set xlApp = Nothing '释放excel程序
End Sub

本回答被提问者采纳

Answer 2

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