从另一个工作簿运行相同的宏

Question

首先，让我解释为什么我要问这个问题，这样很清楚，我需要的不仅仅是Application.run命令。 如果有人可以用其他方法解决问题，那也很好。

我创建了一个程序，该程序将使用宏和代码创建一个新的excel文件，而该文件本身就是一个新程序。 我这样做是因为我不想更改原始文件。 原始文件是所有新创建文件的模板。

但是，当我运行代码时，工作表名称出现了很多错误，这些错误不在原始文件中，而在新文件中。 因此， Activeworkbook在某种程度上发生了变化，我不知道为什么。 运行代码时，我将Activeworkbook更改为新文件。

我希望通过从新文件运行宏来解决这些问题，并确保这些宏仅适用于新创建的工作簿，而不适用于原始工作簿。 问题是原始工作簿和新工作簿中的宏完全相同，因此我复制了模块。

所以我的问题是：有没有一种方法可以运行VBA-Excel中另一个工作簿中具有相同名称的宏。 重要的是，此宏只能访问其自己的工作簿中的宏！

提前致谢

Answer 1

我相信以下内容将说明您需要做什么。

我创建了两个工作簿：“ TryDup1.xls”和“ TryDup2.xls”。

“ TryDup1.xls”在模块中包含以下代码：

Option Explicit
  Sub CtrlDup()

    Dim PathCrnt As String
    Dim WBookOrig As Workbook
    Dim WBookOther As Workbook

    Call DupMac(1)

    Set WBookOrig = ActiveWorkbook
    PathCrnt = ActiveWorkbook.Path & "\"

    Set WBookOther = Workbooks.Open(PathCrnt & "TryDup2.xls")

    Call Application.Run("TryDup1.xls!DupMac", 2)

    Call Application.Run("TryDup2.xls!DupMac", 3)

    WBookOther.Close SaveChanges:=False

    Call DupMac(4)

End Sub
Sub DupMac(Param As Long)

  Debug.Print "TryDup1's DupMac: Param=" & Param

End Sub

“ TryDup2.xls”在模块中包含以下代码：

Option Explicit
Sub DupMac(Param As Long)

  Debug.Print "TryDup2's DupMac: Param=" & Param

End Sub

打开“ TryDup1.xls”并执行CtrlDup（）会将以下内容输出到立即窗口：

TryDup1's DupMac: Param=1
TryDup1's DupMac: Param=2
TryDup2's DupMac: Param=3
TryDup1's DupMac: Param=4

因此，宏CtrlDup（）可以运行任一版本的宏DupMac（）。