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
为什么呀!哪位朋友知道的话就告知一下吧,因为我的程序中其实是用第一种写法要好些的,只是不知道哪错了就是读不出数据来.