完整句子是:
folderpath = TextBox_FileName.Text
allFiles = folderpath & "/" & Dir(folderpath & "/*.xlsm")
Set tmp_wb = Application.WorkbookOpen(allFiles)
folderpath读出的信息正确 : "C:\Users\y84000751\Desktop\н¨Îļþ¼Ð (2)"
allFiles 读出的也正确: "C:\Users\y84000751\Desktop\н¨Îļþ¼Ð (2)/ÏîÄ¿¹ÜÀí¼¯³É¸ú×Ù¹¤¾ß(¼ò»¯°æ)_V4.xlsm"
但是tmp_wb运行后是nothing.
问题解决悬赏将追加。
第1个回答 2014-03-18
Set tmp_wb = Application.WorkbookOpen(allFiles) 这句错了 忘记加点了 , 还有就是workbooks,不是workbook , 还有 application. 可以省略
应该是这样
Set tmp_wb = Workbooks.Open(allFiles)
应该是这样
Set tmp_wb = Workbooks.Open(allFiles)
第2个回答 2014-03-18
是要这样写
set tmp_wb=Application.Workbooks.Open(allFiles )workbooks集合的open方法。
第3个回答 2014-03-28
Dim Wb As Workbook
Set Wb = GetObject(ThisWorkbook.Path & "\Sorter list1.xls")
Set Wb = GetObject(ThisWorkbook.Path & "\Sorter list1.xls")