从另一个工作簿运行宏

Question

我正在尝试使用Application.Run "c:\users\navin\test\"替换path行，但它无效。 （错误1004）。

Sub test()
Dim path As String
path = "c:\users\navin\test\"

Workbooks.Open (path & "excel.xlsb")

Application.Run "'c:\users\navin\test\new.xlsb!macro1'"
Workbooks("excel.xlsb").Close SaveChanges:=True
End Sub

Answer 1

目前，您打开名为excel.xlsb的工作簿，然后尝试在名为new.xslb的工作簿中运行宏。您还有两组引号，这可能会导致问题。

如果您尝试运行宏，则应仅引用工作簿的名称。

Application.Run "excel.xlsb!macro1"