调用保存在不同工作簿中的宏而不链接

Question

我创建了一些代码来打开工作簿并运行保存在该工作簿中的宏，但我收到错误＆＃39;期望子/功能＆＃39;。代码如下。非常感谢您的帮助！

Sub practice()
Const folderPath As String = "I:\Ben\New Stores\Reports"
Dim fso As FileSystemObject
Set fso = New FileSystemObject
Dim MyFolder As Object
Set MyFolder = fso.GetFolder(folderPath)

Application.Run "'6wk File to Run.xlsm'!button2_click"

End Sub

编辑工作代码在

之上

Answer 1

使用

Application.Run (ActiveWorkbook.name & "!button2_click")

Answer 2

类似的东西（根据需要更改工作表名称，并确保将宏限定为所有openworkbooks）。您可能需要也可能不需要工作簿名称和button2之间的工作表。

Application.Run ActiveWorkbook.Name & "!Sheet1.Button2_click"

Button2是公共范围

要使Button2公开，只需确保它是

Public Sub Button2_Click