如何在不关闭工作簿的情况下从C#终止运行中的VBA宏

下面是几种可行的实现方案，按推荐优先级排序：

1. 模拟Ctrl+Break中断宏 #

Excel原生支持Ctrl+Break组合键中断正在运行的宏，你可以通过C#模拟发送该指令，前提是确保Excel窗口处于激活状态：

using System.Windows.Forms; // 需要添加System.Windows.Forms引用

if (TryGetOpenExcel(out Microsoft.Office.Interop.Excel.Application excelApp))
{
    try
    {
        // 激活Excel窗口以确保按键能被接收
        excelApp.Activate();
        // 发送Ctrl+Break组合键（^代表Ctrl，+代表Shift，{PAUSE}对应Break键）
        SendKeys.Send("^+{PAUSE}");
    }
    catch { }
}

注意：如果Excel不是当前焦点窗口，此方法可能失效；另外需在项目中引用System.Windows.Forms程序集。

2. 通过VBA全局变量控制宏执行（需宏支持） #

如果工作簿中的宏代码可修改，可在VBA中定义全局标记变量，让宏在执行过程中主动检查该变量并终止：

VBA代码示例： #

Public ShouldTerminate As Boolean

Sub LongRunningMacro()
    ShouldTerminate = False
    Do While YourLoopCondition
        ' 每次循环检查终止标记
        If ShouldTerminate Then
            Exit Sub ' 或清理后退出
        End If
        ' 宏的业务逻辑
    Loop
End Sub

C#中触发终止： #

if (TryGetOpenExcel(out Microsoft.Office.Interop.Excel.Application excelApp))
{
    try
    {
        // 直接设置VBA全局变量（需Excel允许访问VBA项目对象模型）
        excelApp.ActiveWorkbook.VBProject.VBComponents("Module1").CodeModule.ExecuteLine("ShouldTerminate = True");
    }
    catch { }
}

注意：需在Excel信任中心开启"信任对VBA项目对象模型的访问"（路径：Excel选项 → 信任中心 → 信任中心设置 → 宏设置）。

3. 强制终止Excel线程（风险较高） #

通过Windows API找到Excel的主线程并终止，这种方法可能导致Excel崩溃或数据丢失，仅作为最后手段：

using System.Runtime.InteropServices;

[DllImport("kernel32.dll")]
static extern bool TerminateThread(IntPtr hThread, uint dwExitCode);

[DllImport("user32.dll")]
static extern IntPtr GetWindowThreadProcessId(IntPtr hWnd, out uint lpdwProcessId);

if (TryGetOpenExcel(out Microsoft.Office.Interop.Excel.Application excelApp))
{
    try
    {
        IntPtr excelHwnd = new IntPtr(excelApp.Hwnd);
        // 获取Excel主线程ID
        IntPtr mainThread = GetWindowThreadProcessId(excelHwnd, out _);
        // 终止线程（可能导致Excel不稳定）
        TerminateThread(mainThread, 0);
    }
    catch { }
}

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