VBA的workbook.open方法不能打开指定的XLSM文件

Question

完整句子是：
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.

问题解决悬赏将追加。

Answer 1

Set tmp_wb = Application.WorkbookOpen(allFiles) 这句错了 忘记加点了 , 还有就是workbooks,不是workbook ， 还有 application. 可以省略
应该是这样
Set tmp_wb = Workbooks.Open(allFiles)

Answer 2

是要这样写

set tmp_wb=Application.Workbooks.Open(allFiles )

workbooks集合的open方法。

本回答被提问者采纳

Answer 3

Dim Wb As Workbook

Set Wb = GetObject(ThisWorkbook.Path & "\Sorter list1.xls")