如何从共享网络中的不同工作簿运行宏？

Question

因此，我对此进行了大量研究，但我的代码仍然无法正常工作。根据标题，问题是这样的：

我从网站上提取了一份数据报告，该报告以 .xlsx 文件的形式下载。我在功能区上创建了一个宏，所以当我单击它时，它将打开另一个工作簿并运行该宏。我使用的代码如下：

    Option Explicit
    Sub NotHardAtAll()

    Dim ws As Worksheet,
    Dim wb As Workbook

    Set wb = ActiveWorkbook

    Set ws = ActiveSheet


    Workbooks.Open Filename:="C:\Users\a0c27n\Desktop\Projects\incident_extended_report1.xlsm"

    'With Sheets("Sheet4").Activate  '*Not sure if this is enter code here 
     necessary...at all*

    Application.Run "!ADDHMKRFID"
    'End With

End Sub

我尝试将路径放在宏之前（即Application.Run"'incident_extended_report1.xlsm!ADDHMKRFID"），但它也不起作用*

我知道，至少从我所做的研究来看，我应该能够只使用“Application.Run”方法，但是我无法访问它正确的工作表。

当我运行宏时，它会拉出一个运行时错误“1004”错误，一个“400”，或者它拉得最多的是：“无法运行宏'！ADDHMKRFID'。宏可能不可用在此工作簿中或所有宏都可能被禁用。”

我试图从中提取宏的文件如下：

工作簿名称：incident_extended_report1.xlsm

工作表名称：Sheet4（测试宏）

宏名称： 子 ADDHMKRFID() 结束子

我知道 C:\ 不是一个共享网络，我将使用 S:\，但是由于机密性，我不确定我可以发布多少信息。 请询问您可能有的任何澄清或问题。我被卡住了一段时间，不确定我做错了什么。提前致谢！

Answer 1

您需要传递给 Application.Run 的字符串取决于包含宏的工作簿是否处于活动状态，如果不是，则取决于包含宏的工作簿的文件名（即：workbook.Name 属性中的内容） .

如果宏应该在数据报告工作簿处于活动状态时运行，您需要：

dim wb_data as Workbook: set wb_data = ActiveWorkbook
dim ws_data as Worksheet: set ws_data = ActiveSheet
dim wb_macro as Workbook
set wb_macro = Workbooks.Open(Filename:="C:\Users\a0c27n\Desktop\Projects\incident_extended_report1.xlsm")
ws_data.Activate
Application.Run wb_macro.Name & "!ADDHMKRFID"

这将保证提供正确的字符串，即使您更改了宏文件的名称。

否则，如果宏工作簿应该处于活动状态，请跳过激活数据工作表，因为默认情况下最后打开的工作簿将处于活动状态，然后使用“ADDHMKRFID”作为字符串。注意“！”不见了。仅当您在另一个工作簿中指定宏时才需要它。它与引用其他工作表中的数据时使用的表示法相同。

Answer 2

首先，我解决了我自己的问题。但是，如果有人能向我解释为什么它会以这种方式工作，我将不胜感激。

我将原始宏保存在共享网络上，但我必须将其保存为模块（在本例中为 Module1）。我还将第二个宏（用于运行原始宏）保存在不同的工作簿中（尽管它不重要，只要它不是 .xlsx 文件）。

我写的代码是：

Sub Test()  'Name doesn't matter
Application.Run "'S:\xxxx\xxxx\xxxx\incident_extended_report.xlsm'!module1.ADDHMKRFID"
End Sub

然后我将此宏保存到功能区，以便在我必须下载的数据 report.xlsx 文件上运行它。现在，每当我想运行原始宏时，只需单击测试宏，它就会运行另一个宏！

我猜如果你想关闭你打开的另一个工作簿，你可以添加一个

 Workbooks (“S:\xxxx\xxxx\xxxx\incident_extended_report.xlsm").Close Savechanges:=False 

祝你好运！