如何通过Excel VBA执行C#开发的Excel加载项功能区按钮？

你的问题很典型——传统的CommandBars和ExecuteMso方法对C#开发的现代Ribbon控件根本不适用，原因很简单：

• 旧版CommandBars是Office经典UI的产物，而C#加载项用的是Ribbon XML/Visual Studio Ribbon设计器，这类自定义控件不会出现在CommandBars集合里。
• ExecuteMso只能触发Office内置命令（每个内置命令都有专属的IDMso标识），自定义按钮没有这个系统分配的ID，所以调用无效。

下面给你两种最靠谱的解决方案，按优先级排序：

方案1：直接调用加载项暴露的公共方法（推荐） #

这是最稳定、最优雅的方式，前提是你能修改C#加载项的代码，把按钮的功能逻辑封装成公共方法并对外暴露。

步骤1：修改C#加载项代码 #

在你的加载项主类（比如ThisAddIn.cs）里，把按钮点击的核心逻辑抽成公共方法，并标记为ComVisible(true)，让VBA能访问：

using System.Runtime.InteropServices;

namespace GuruExcelAddin
{
    public partial class ThisAddIn
    {
        private void ThisAddIn_Startup(object sender, System.EventArgs e)
        {
            // 加载项初始化逻辑
        }

        private void ThisAddIn_Shutdown(object sender, System.EventArgs e)
        {
            // 加载项关闭逻辑
        }

        // 暴露给VBA的公共方法，直接执行按钮的核心功能
        [ComVisible(true)]
        public void RunFixIssue()
        {
            // 这里放原来Ribbon按钮点击事件里的代码
            // 比如：FixIssueLogic();
        }

        #region VSTO generated code
        // 自动生成的初始化代码，不要修改
        private void InternalStartup()
        {
            this.Startup += new System.EventHandler(ThisAddIn_Startup);
            this.Shutdown += new System.EventHandler(ThisAddIn_Shutdown);
        }
        #endregion
    }
}

然后确保你的加载项项目设置里开启了COM互操作：右键项目 → 属性 → 生成 → 勾选"注册COM互操作"。

步骤2：VBA中调用该方法 #

在Excel的VBA编辑器里，编写代码调用加载项的公共方法：

Sub TriggerAddInFixIssue()
    Dim targetAddIn As COMAddIn
    Dim addInObject As Object
    
    ' 替换成你的加载项名称（在COM加载项列表里显示的名称）
    Set targetAddIn = Application.COMAddIns("GuruExcelAddin")
    ' 获取加载项的COM对象实例
    Set addInObject = targetAddIn.Object
    
    ' 调用暴露的方法
    addInObject.RunFixIssue()
End Sub

方案2：模拟按钮点击（无源码修改时用） #

如果无法修改C#加载项的代码，只能用Windows API模拟鼠标点击按钮，但这种方法兼容性差（依赖Excel版本、界面缩放、控件布局），仅作为应急方案。

VBA代码示例 #

' 声明Windows API函数（64位Excel用PtrSafe）
#If VBA7 Then
    Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
    Declare PtrSafe Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As LongPtr, ByVal hWnd2 As LongPtr, ByVal lpsz1 As String, ByVal lpsz2 As String) As LongPtr
    Declare PtrSafe Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As LongPtr, ByVal wMsg As Long, ByVal wParam As LongPtr, lParam As Any) As LongPtr
#Else
    Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
    Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
    Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
#End If

Const BM_CLICK = &HF5

Sub SimulateRibbonButtonClick()
    Dim excelWindow As LongPtr
    Dim ribbonWindow As LongPtr
    Dim customTabWindow As LongPtr
    Dim targetButton As LongPtr
    
    ' 获取Excel主窗口句柄
    excelWindow = FindWindow("XLMAIN", Application.Caption)
    ' 获取Ribbon控件句柄
    ribbonWindow = FindWindowEx(excelWindow, 0, "MsoCommandBar", "Ribbon")
    
    ' 找到你的自定义Tab（替换成Tab的显示名称）
    customTabWindow = FindWindowEx(ribbonWindow, 0, "MsoCommandBarTab", "你的自定义Tab名称")
    ' 找到目标按钮（替换成按钮的显示名称）
    targetButton = FindWindowEx(customTabWindow, 0, "MsoCommandBarButton", "FixIssueBtn")
    
    ' 如果找到按钮，发送点击消息
    If targetButton <> 0 Then
        SendMessage targetButton, BM_CLICK, 0, 0
    Else
        MsgBox "未找到目标按钮，请检查控件名称或Excel版本"
    End If
End Sub

注意：你需要用Spy++工具确认控件的类名和显示名称，不同Excel版本可能有差异，而且如果用户切换了Ribbon布局（比如最小化），代码会失效。

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