自动化过程中如何拦截VBE编译错误弹窗？

以下是几种可行的解决方案，按推荐优先级排序：

1. 禁用Excel显示警报（最简便） #

Excel对象模型提供了DisplayAlerts属性，设置为false可以屏蔽大部分系统级弹窗，包括VBA编译错误提示框。操作完成后记得恢复原始状态，避免影响后续Excel操作。

示例代码：

// 保存原始警报状态
bool originalAlertState = excelApp.DisplayAlerts;
try
{
    excelApp.DisplayAlerts = false;
    var btnCompile = proj.VBE.CommandBars.FindControl(Type: 1, Id: 578);
    if ((btnCompile?.Enabled).HasValue && btnCompile.Enabled)
        btnCompile?.Execute();
}
catch (Exception ex)
{
    throw new VbaCompilationException("An error occurred.", ex);
}
finally
{
    // 恢复原始设置
    excelApp.DisplayAlerts = originalAlertState;
}

2. 直接调用编译API，替代按钮点击 #

模拟按钮点击的方式可控性差，直接调用VBE的编译接口能更精准捕获错误，不会触发弹窗。可以通过遍历VB组件检查编译错误，或者调用内置编译命令：

方式A：遍历组件检查编译错误 #

foreach (VBComponent component in proj.VBComponents)
{
    if (component.CodeModule.CompileErrors.Count > 0)
    {
        StringBuilder errorMsg = new StringBuilder();
        foreach (CompileError err in component.CodeModule.CompileErrors)
        {
            errorMsg.AppendLine($"行 {err.Line}: {err.Description}");
        }
        throw new VbaCompilationException("编译错误：" + errorMsg.ToString());
    }
}
// 无错误则执行编译
proj.VBE.ActiveVBProject.VBComponents.Cast<VBComponent>().ToList().ForEach(c => c.CodeModule.Compile());

方式B：调用内置编译命令 #

try
{
    excelApp.Run("VBA.Compile");
}
catch (Exception ex)
{
    throw new VbaCompilationException("编译失败：" + ex.Message, ex);
}

3. Windows API拦截弹窗（兜底方案） #

如果前两种方案无效，可以通过Windows API捕获并关闭弹窗。这种方法需要适配不同Excel版本的窗口标题，适合特殊场景：

// 引入Windows API
[DllImport("user32.dll", SetLastError = true)]
static extern IntPtr FindWindow(string lpClassName, string lpWindowName);

[DllImport("user32.dll")]
static extern bool SendMessage(IntPtr hWnd, uint Msg, IntPtr wParam, IntPtr lParam);

const uint WM_CLOSE = 0x0010;

// 启动监控线程
Thread alertMonitor = new Thread(() =>
{
    while (true)
    {
        // 查找VBA编译错误弹窗（标题可能因语言/版本变化，需调整）
        IntPtr alertWnd = FindWindow("#32770", "Microsoft Visual Basic for Applications");
        if (alertWnd != IntPtr.Zero)
        {
            SendMessage(alertWnd, WM_CLOSE, IntPtr.Zero, IntPtr.Zero);
            break;
        }
        Thread.Sleep(100);
    }
});

alertMonitor.Start();

try
{
    var btnCompile = proj.VBE.CommandBars.FindControl(Type: 1, Id: 578);
    if ((btnCompile?.Enabled).HasValue && btnCompile.Enabled)
        btnCompile?.Execute();
}
finally
{
    // 结束监控线程
    alertMonitor.Join(1000);
    if (alertMonitor.IsAlive)
        alertMonitor.Abort();
}

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