如何通过Power Automate Desktop运行另一Excel文件中的宏？

核心思路 #

要从a.xlsm中运行b.xlsm的宏，本质是让Excel实例能访问到b.xlsm里的宏模块，以下是两种可靠实现方式：

方式一：先加载宏文件再调用 #

1. 启动Excel并打开a.xlsm

   • 使用PAD的Launch Excel动作，选择文件路径为%UserProfile%\Downloads\a.xlsm，调试阶段可勾选“Make instance visible”方便观察，正式运行可取消。
   • 记录生成的Excel实例变量（比如ExcelInstanceA）。

2. 后台打开b.xlsm宏文件

   • 再添加一个Launch Excel动作，选择%UserProfile%\Downloads\b.xlsm，取消勾选“Make instance visible”避免弹窗干扰，记录实例变量ExcelInstanceB。

3. 调用b.xlsm中的宏

   • 添加Execute Excel macro动作，选择ExcelInstanceA作为目标实例，宏名称填写b.xlsm!宏的名称（例如宏名为ProcessData，则填b.xlsm!ProcessData）。
   • 注意：宏名称需与b.xlsm内的宏完全一致，Excel宏名称区分大小写。

4. 清理资源

   • 宏执行完成后，用Close Excel动作关闭ExcelInstanceB，根据需求决定是否关闭ExcelInstanceA。

方式二：用VBA代码直接调用（更灵活） #

若方式一遇到权限问题，可通过PAD执行VBA代码实现：

1. 启动并打开a.xlsm

   • 同方式一第一步，得到ExcelInstanceA。

2. 执行VBA代码调用宏

   • 添加Run VBScript动作，输入以下代码（替换宏名称和路径）：

     Dim objExcel, objWorkbook
     Set objExcel = GetObject(, "Excel.Application")
     ' 检查b.xlsm是否已加载，未加载则打开
     On Error Resume Next
     Set objWorkbook = objExcel.Workbooks("b.xlsm")
     On Error GoTo 0
     If objWorkbook Is Nothing Then
         Set objWorkbook = objExcel.Workbooks.Open("%UserProfile%\Downloads\b.xlsm")
     End If
     ' 调用目标宏，替换为你的宏名称
     objExcel.Run "b.xlsm!ProcessData"
     ' 可选：关闭b.xlsm，无需保存则设为False
     objWorkbook.Close SaveChanges:=False
     

关键注意事项 #

• 宏信任设置：在Excel的信任中心设置中，确保允许加载带宏的文件。调试阶段可选择“启用所有宏”，正式环境建议给b.xlsm签名后选择“启用签署的宏”。
• 文件路径：使用绝对路径避免找不到文件，PAD中可借助%UserProfile%\Downloads这类系统变量定位下载文件夹。
• 宏的可见性：b.xlsm中的宏必须是公共的（不能是Private Sub，需改为Sub或Public Sub），否则无法被外部调用。

内容的提问来源于stack exchange，提问作者BestSumy