從另一個工作簿運行宏

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"