Question

我们假设我有两个不同的文件：＆＃34; 1＆＃34;和＆＃34; a1＆＃34;。我想用＆＃34; 1＆＃34;中的宏打开第二个。然后从＆＃34; a1＆＃34;

运行代码

所以，在＆＃34; 1＆＃34;我有以下代码：

Sub anotherMacro()
Dim path As String
Dim Fname As String
Dim macroName As String

path = ActiveWorkbook.path
Fname = ActiveWorkbook.Name

Workbooks.Open (path & "\a" & Fname)
Application.Run "a1.xlsm!Module1.SecondMacro"
MsgBox "Am I still here?"

End Sub

文件中的第二个宏＆＃34; a1＆＃34;看起来像那样：

Sub SecondMacro()
ActiveWorkbook.Close
End Sub

当我使用Application.Run命令时，msgbox没有被执行。＆＃34; a1＆＃34;正在打开，关闭，然后没有进一步的行动。

有没有办法回到＆＃34; 1＆＃34;并显示msgbox？

Answer 1

我注意到执行Workbook.Close后，VBA停止执行。因此，您应该注意Workbook.Close之后放置的代码。

您可以考虑将Workbook.Close方法转换为1.xlsm。在执行Workbook.Close方法之前执行任何操作。

我修改了代码如下。

<强> 1.xlsm 模块1

Option Explicit

Sub anotherMacro()
    Dim path As String
    Dim Fname As String
    Dim macroName As String

    With Application
        path = .ThisWorkbook.path
        Fname = .ThisWorkbook.Name

        .Workbooks.Open (path & "\a" & Fname)
        .Run "a1.xlsm!Module1.SecondMacro"
    End With
End Sub

Sub WelcomeBack()
    MsgBox "Am I still here?"

    Application.ThisWorkbook.Activate
        ' Activate 1.xlsm. This is optional, depending on your needs.

    ' Add code here to perform any further actions.

    Application.Workbooks("a1.xlsm").Close
        ' Close a1.xlsm. VBA stops here.
End Sub

<强> a1.xlsm 模块1

Option Explicit

Sub SecondMacro()
    ' Add code here to perform any actions.

    Application.Run "1.xlsm!Module1.WelcomeBack"
        ' Go back to 1.xlsm
End Sub

PS：查看Application.ActiveWorkbook和Application.ThisWorkbook之间的区别。

Answer 2

如果您将VBA代码放在XLAM文件而不是XLSM文件中，则可以将其添加为Excel加载项，然后它可以同时与所有工作簿通信。

在位于不同工作簿中的宏之间切换

2 个答案: