如何从VBA IDE运行VBA例程？通过名称运行VBA项目选中例程的方法

需求背景：需要从VBA项目中获取全部例程的列表，继而运行用户选中的宏，对系统原生的「宏」对话框做扩展，使其支持跨多个文档运行多个宏。

核心调用依赖VBA内置的Application.Run方法，可支持同文档、跨文档的宏调用，适配跨多文档运行多宏的需求，具体用法如下：

1. 同文档内宏调用 #

如果要运行的宏和当前执行代码在同一个工作簿内，直接传入你获取到的宏名称字符串即可：

Dim targetMacro As String
targetMacro = "Module1.MyTestSub" ' 替换为你拿到的选中宏名称
Application.Run targetMacro

2. 跨文档宏调用 #

如果要运行的宏属于其他已打开的工作簿，需要在宏名称前拼接工作簿标识，格式为'[工作簿全称]'!模块名.宏名：

' 示例：运行Book2.xlsm中Module2下的ClearData宏
Dim targetMacro As String
targetMacro = "'[Book2.xlsm]'!Module2.ClearData"
Application.Run targetMacro

注意：如果工作簿名称包含空格，必须用单引号将工作簿标识部分包裹，避免调用失败。

3. 批量运行多个选中宏示例 #

你可以将用户选中的所有宏名称存入数组，循环调用即可实现多宏批量运行，可添加错误捕获避免单个宏出错中断整个流程：

Sub BatchRunSelectedMacros(selectedMacroList As Variant)
    Dim macroName As Variant
    For Each macroName In selectedMacroList
        On Error Resume Next
        Application.Run CStr(macroName)
        ' 出错提示，可根据需求调整逻辑
        If Err.Number <> 0 Then
            MsgBox "宏【" & macroName & "】运行失败：" & Err.Description, vbExclamation
            Err.Clear
        End If
        On Error GoTo 0
    Next
End Sub

注意事项 #

• 调用跨文档宏前，需确保目标工作簿处于已打开状态
• 需提前开启VBA项目信任访问：进入「文件-选项-信任中心-信任中心设置-宏设置」，勾选「信任对VBA工程对象模型的访问」
• 如果目标宏需要传入参数，直接在Application.Run的宏名称参数后按顺序传入参数即可，示例：Application.Run "CalcSum", 10, 20

内容的提问来源于stack exchange，提问作者G.H.