如何实现VBA等待Windows保存对话框后执行SendKeys（适配SAP 7.20）

这个问题我之前帮不少人解决过——SAP 7.20的老版本确实会让Windows对话框的检测变得棘手，固定等待时间的坑就是数据量大时要么等太久，要么提前执行SendKeys导致失效。咱们换个思路，用Windows API主动检测保存对话框的出现，这样就不用靠盲等了。

1. 声明必要的Windows API函数 #

在你的VBA模块顶部添加这些API声明（兼容32位/64位Office）：

#If VBA7 Then
    Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
    Declare PtrSafe Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As LongPtr, ByVal lpString As String, ByVal cch As Long) As Long
    Declare PtrSafe Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As LongPtr) As Long
#Else
    Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
    Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
    Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
#End If

这些函数的作用：

• FindWindow：根据窗口类名或标题查找窗口句柄
• GetWindowText/GetWindowTextLength：获取窗口标题，确认是不是我们要找的保存对话框

2. 编写等待对话框的函数 #

替换你原来的waitTime函数，改成这个主动检测的版本：

Function WaitForSaveDialog(Optional ByVal timeoutSeconds As Integer = 30) As Boolean
    Dim startTime As Date
    Dim hwnd As Variant
    Dim windowTitle As String
    Dim titleLength As Integer
    
    startTime = Now()
    
    ' 循环检测，直到找到窗口或超时
    Do While DateDiff("s", startTime, Now()) < timeoutSeconds
        ' SAP保存对话框的类名通常是#32770（标准Windows对话框类）
        hwnd = FindWindow("#32770", vbNullString)
        
        If hwnd <> 0 Then
            ' 获取窗口标题，确认是保存对话框
            titleLength = GetWindowTextLength(hwnd)
            windowTitle = Space(titleLength)
            GetWindowText hwnd, windowTitle, titleLength + 1
            
            ' 匹配标题关键词，根据你的SAP语言调整（比如中文"保存"、英文"Save"）
            If InStr(1, windowTitle, "保存", vbTextCompare) > 0 Or InStr(1, windowTitle, "Save", vbTextCompare) > 0 Then
                WaitForSaveDialog = True
                Exit Function
            End If
        End If
        
        ' 每次循环暂停100毫秒，避免占用太多CPU
        Application.Wait Now() + TimeValue("00:00:00.1")
    Loop
    
    ' 超时返回False
    WaitForSaveDialog = False
End Function

这个函数会：

• 最多等待设定的超时时间（默认30秒）
• 不断查找标准对话框类的窗口，检查标题是否包含目标关键词
• 找到匹配窗口后返回True，超时则返回False

3. 修改你的test过程 #

把原来的固定等待换成主动检测，只有对话框出现后才执行SendKeys：

Sub test()
    ' 等待保存对话框出现，超时30秒
    If WaitForSaveDialog(30) Then
        ' 对话框已出现，执行SendKeys
        Call SendKeys("{Enter}", True)
        MsgBox "保存操作已执行", vbInformation
    Else
        ' 超时未找到对话框
        MsgBox "等待保存对话框超时", vbExclamation
    End If
End Sub

注意事项 #

• 调整标题关键词：如果你的SAP是其他语言（比如德语、法语），要把"保存"/"Save"换成对应的关键词（比如德语"Sichern"）
• 类名确认：如果#32770找不到窗口，可以用Spy++工具（VS自带或第三方窗口检测工具）查看SAP保存对话框的实际类名和标题
• SendKeys局限性：虽然这个方法解决了等待问题，但SendKeys本身仍有小概率不稳定（比如焦点被其他窗口抢走），如果后续遇到问题，可以考虑用API直接模拟点击对话框的"保存"按钮，不过当前方案足以覆盖大部分场景

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