如何通过Excel VBA自动处理‘脚本尝试访问SAP GUI’弹窗，替代SAP GUI设置？

可以不用修改SAP GUI的「辅助功能与脚本」设置，直接通过Excel VBA调用Windows API实现自动点击弹窗的「确定」按钮，具体方案如下：

核心思路 #

通过Windows API查找SAP弹窗的窗口句柄，再定位到「确定」按钮的句柄，最后发送点击消息模拟人工操作。

具体实现代码 #

1. 首先在VBA模块顶部声明所需的Windows API函数（64位Excel适配版本）：

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

2. 定义常量和核心操作过程：

Const BM_CLICK = &HF5
Const SAP_POPUP_TITLE = "A Script is Attempting to Access SAP GUI"
Const OK_BUTTON_TEXT = "确定"

' 检测并点击SAP弹窗的确定按钮
Sub AutoClickSAPPopup()
    Dim popupHWnd As LongPtr
    Dim okBtnHWnd As LongPtr
    
    ' 定位SAP弹窗窗口
    popupHWnd = FindWindow("#32770", SAP_POPUP_TITLE)
    
    If popupHWnd <> 0 Then
        ' 定位弹窗内的确定按钮
        okBtnHWnd = FindWindowEx(popupHWnd, 0, "Button", OK_BUTTON_TEXT)
        
        If okBtnHWnd <> 0 Then
            ' 发送点击指令
            SendMessage okBtnHWnd, BM_CLICK, 0, 0
            Debug.Print "已自动触发确定按钮"
        End If
    End If
    ' 循环检测，可根据需求调整间隔
    Application.OnTime Now + TimeValue("00:00:01"), "AutoClickSAPPopup"
End Sub

' 停止弹窗检测
Sub StopPopupMonitoring()
    On Error Resume Next
    Application.OnTime Now + TimeValue("00:00:01"), "AutoClickSAPPopup", , False
End Sub

使用说明 #

• 运行AutoClickSAPPopup即可启动弹窗自动检测，每隔1秒检查一次并点击；完成操作后运行StopPopupMonitoring停止检测
• 若使用32位Excel，需将代码中的PtrSafe删除，LongPtr替换为Long
• 若系统为英文环境，将OK_BUTTON_TEXT的值改为"OK"即可适配

注意事项 #

• 需在Excel选项的「信任中心-宏设置」中启用「信任对VBA项目对象模型的访问」
• 该方案依赖Windows API，仅适用于Windows系统下的Excel和SAP GUI

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