Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open(.FoundFiles(MyIndex + 1))
xlApp.Visible = False
Set xlSheet = xlBook.Sheets.Item(1)
xlSheet.Activate
用上面的代码打开一系列的Excel文件(.xls)可是却取不出数据来,但是这样写的话就可以了:
Workbooks.Open .FoundFiles(MyIndex + 1)
'Application.Visible = False
为什么呀!哪位朋友知道的话就告知一下吧,因为我的程序中其实是用第一种写法要好些的,只是不知道哪错了就是读不出数据来.
Set xlBook = xlApp.Workbooks.Open(.FoundFiles(MyIndex + 1))
xlApp.Visible = False
Set xlSheet = xlBook.Sheets.Item(1)
xlSheet.Activate
用上面的代码打开一系列的Excel文件(.xls)可是却取不出数据来,但是这样写的话就可以了:
Workbooks.Open .FoundFiles(MyIndex + 1)
'Application.Visible = False
为什么呀!哪位朋友知道的话就告知一下吧,因为我的程序中其实是用第一种写法要好些的,只是不知道哪错了就是读不出数据来.
后面加一句:msgbox xlsheet.cells(1,1) '读第一行第一列的数据