如何将Excel VBA宏与VSTO制作的Excel功能区按钮关联？

核心思路 #

VSTO功能区的回调函数无法直接绑定VBA宏，但可以在VB.NET回调函数里通过Excel的Application.Run方法执行目标VBA宏，无需深入掌握VB.NET即可实现。

具体步骤 #

1. 确认功能区XML配置正确 #

你的XML代码已正确设置按钮的onAction="Test1"，确保该名称与VB.NET回调函数名完全匹配（大小写不敏感，建议完全一致）：

<?xml version="1.0" encoding="utf-8"?>
<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui" onLoad="Ribbon_Load">
    <ribbon startFromScratch="false">
        <tabs>
            <tab id="customTab" label ="Custom Ribbon">
                <group id="CustomGroup" label ="Change Reference">
                    <button id="Button1" size="large" label ="Will It Work?" onAction ="Test1"/>
                </group>
            </tab>
        </tabs>
    </ribbon>
</customUI>

2. 修改VB.NET回调函数，添加宏调用代码 #

打开VSTO项目中的功能区代码文件（通常为Ribbon1.vb），将空的Test1回调替换为以下代码，通过Application.Run触发VBA宏：

Public Sub Ribbon_Load(ByVal ribbonUI As Office.IRibbonUI)
    Me.ribbon = ribbonUI
End Sub

Public Sub Test1(ByVal Control As Office.IRibbonControl)
    ' 调用当前活动工作簿中的Test1宏
    ' 若宏在指定工作簿中，可改为：ThisAddIn.Application.Run("你的工作簿名称.xlsm!Test1")
    ' 若宏在特定模块中，可改为：ThisAddIn.Application.Run("Module1.Test1")
    ThisAddIn.Application.Run("Test1")
End Sub

3. 关键注意事项 #

• 确保包含VBA宏的.xlsm文件处于打开状态，且Excel宏安全设置允许运行该宏
• 若多个工作簿存在同名宏，必须指定完整工作簿名称，避免混淆
• 若宏存储在工作簿的特定模块中，需在宏名前加上模块名（如Module1.Test1）

4. 测试运行 #

1. 在Visual Studio中启动VSTO项目，Excel将自动启动
2. 打开你的.xlsm宏文件
3. 点击自定义功能区的"Will It Work?"按钮，即可触发VBA宏弹出消息框

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