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（）。

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

1 个答案: