Excel自定义Ribbon如何调用ActiveWorkbook宏而非绑定文件宏

Ribbon 控件的onAction属性不支持直接绑定ActiveWorkbook下的动态过程，硬编码文件路径会永久指向绑定的初始文件，使用中转回调法即可实现需求，步骤如下：

• 准备一个公共存放位置存中转代码：可以用个人宏工作簿PERSONAL.XLSB（打开Excel就会自动加载），或者你自己做的xlam格式加载项，不要把中转代码放在file_1.xlsm/file_2.xlsm这类业务文件里。
• 在公共存放位置插入标准模块，写入如下中转回调代码，把宏名替换成你实际要调用的Module1中的过程名：

Public Sub UniversalMacroCall(control As IRibbonControl)
    On Error Resume Next
    ' 替换成你Module1里实际的宏名称
    Const TARGET_MACRO As String = "你要执行的宏名"
    
    ' 动态调用当前活动工作簿内的同名宏
    Application.Run CStr(ActiveWorkbook.Name) & "!" & TARGET_MACRO
    
    ' 异常捕获：当前活动工作簿无对应宏时弹提示
    If Err.Number <> 0 Then
        MsgBox "当前活动工作簿未找到匹配的宏，请确认打开的是启用宏的正确文件", vbExclamation
        Err.Clear
    End If
End Sub

• 修改自定义Ribbon的XML配置，将按钮的onAction属性绑定到上述中转过程。如果中转代码存在PERSONAL.XLSB中，配置示例如下：

<button 
    id="btnRunTargetMacro"
    label="执行目标宏"
    size="large"
    onAction="PERSONAL.XLSB!UniversalMacroCall"
/>

• 无需修改file_1.xlsm、file_2.xlsm中的原有代码，只要两个文件内Module1的目标宏名保持一致即可，打开任意一个文件点击按钮，都会自动调用当前活动文件内的对应宏。

注意：如果目标宏需要传入参数，直接在Application.Run语句后按顺序追加参数即可，参数顺序、类型和原宏保持完全一致就不会报错。

之前尝试绑定ThisWorkbook失效的原因是：Ribbon的onAction上下文在功能区加载时就已经固定，ThisWorkbook会指向自定义Ribbon配置所属的文件，不会随当前活动工作簿切换而变化，因此无法实现动态指向的效果。

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