從另一個工作簿中運行宏

Question

我試圖用path代替行Application.Run "c:\users\navin\test\"，但它不起作用。 （錯誤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"