应用程序运行返回错误 438，未调用宏

Question

在我有一个工作簿中

Sub test1()
Dim wb1 As Workbook
Set wb1 = Workbooks.Open("X:************Book2.xlsm")
Application.Run  "'X:************Book2.xlsm'!test2" 'ERROR HERE
End Sub

在我拥有的另一个工作簿中

Sub test2()
ThisWorkbook.Worksheets(1).Range("A1") = "Hi"
End Sub

但它保留错误"对象不支持此属性或方法">

我试过了

Application.Run  "'Book2.xlsm'!test2"
Application.Run  "Book2.xlsm!test2"
Application.Run  ("'X:************Book2.xlsm'!test2")

许多类似的语法都有相同的错误。提前感谢！

Answer 1

试试这个。您需要使用文件名正确构建字符串。

Sub test1()
Dim wb1 As Workbook
Set wb1 = Workbooks.Open("X: ...Book2.xlsm")
Application.Run "'" & wb1.Name & "'!test2"
End Sub