如何用VBA或Windows API关闭Excel COM加载项弹出的确认窗口？

针对你遇到的COM加载项原生模态确认窗口问题，以下是几个可行的解决思路：

1. Windows API+定时轮询（最可靠） #

利用Windows API查找窗口并发送点击消息，结合VBA的定时功能在弹窗出现前启动监控：

步骤1：获取窗口/按钮的类名 #

用Windows自带的Spy++（可从Visual Studio工具集获取，或单独下载）抓取弹窗或确认按钮的类名——因为窗口无标题，类名是唯一识别标识。

步骤2：VBA代码实现 #

' 声明API函数（64位Excel用PtrSafe，32位去掉）
Declare PtrSafe Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWndParent As LongPtr, ByVal hWndChildAfter As LongPtr, ByVal lpszClass As String, ByVal lpszWindow 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
Public Const BM_CLICK = &HF5  ' 模拟按钮点击的消息

Sub AutoClickConfirm()
    Dim targetHwnd As LongPtr
    ' 替换为Spy++获取的确认按钮/弹窗的类名
    targetHwnd = FindWindowEx(0, 0, "YourWindowClass", vbNullString)
    
    If targetHwnd <> 0 Then
        ' 发送点击消息
        SendMessage targetHwnd, BM_CLICK, 0, 0
    End If
End Sub

Sub ExecuteDatabaseConnection()
    ' 提前1秒启动监控，确保弹窗出现时能被捕获
    Application.OnTime Now + TimeValue("00:00:01"), "AutoClickConfirm"
    
    ' 调用COM加载项的连接方法
    YourCOMAddinObject.ConnectToDatabase ' 替换为实际的加载项对象和方法
    
    ' 取消未触发的定时任务
    On Error Resume Next
    Application.OnTime Now + TimeValue("00:00:01"), "AutoClickConfirm", , False
    On Error GoTo 0
End Sub

2. 模拟按键（简单但兼容性一般） #

如果弹窗的确认按钮是默认选项（按回车即可确认），可以用VBS脚本在后台模拟按键：

步骤1：创建VBS脚本（保存为AutoEnter.vbs） #

Set objShell = CreateObject("WScript.Shell")
Do
    ' 每500毫秒尝试按一次回车
    objShell.SendKeys "{ENTER}"
    WScript.Sleep 500
Loop

步骤2：VBA中调用 #

Sub ConnectWithAutoEnter()
    ' 后台启动VBS脚本
    Shell "wscript.exe ""C:\YourPath\AutoEnter.vbs""", vbHide
    
    ' 执行加载项连接操作
    YourCOMAddinObject.ConnectToDatabase
    
    ' 结束VBS进程（可选）
    Shell "taskkill /f /im wscript.exe", vbHide
End Sub

注意：这种方法可能会误操作其他窗口，仅在测试环境验证后使用。

3. 联系加载项开发者 #

优先询问是否存在静默模式参数——很多企业级COM加载项会提供隐藏的接口（比如ConnectToDatabase(True)，True表示跳过确认弹窗），这是最稳妥的解决方案。

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