如何在Excel调用SAP GUI脚本时添加暂停延时功能

• 变量命名冲突：代码中声明了名为Application的变量，并将SAP GUI脚本引擎赋值给了该变量，后续调用的Application.Wait实际指向SAP应用对象，而非Excel原生应用对象，因此方法不生效。
• 固定时长硬等待本身存在局限性：无法适配不同网络环境、不同系统负载下的SAP响应速度，容易出现等待时长不足或时间冗余的问题。

方案1：修复命名冲突，使用Excel原生等待 #

将代码中与SAP相关的Application变量重命名，避免命名覆盖，修改后Application.Wait即可正常生效：

Sub Sap()
    ' 将原变量名Application改为SapApp，避免和Excel.Application冲突
    Dim SapApp, SapGuiAuto, Connection, session, WScrip

    If Not IsObject(SapApp) Then
        Set SapGuiAuto = GetObject("SAPGUI")
        Set SapApp = SapGuiAuto.GetScriptingEngine
    End If
    If Not IsObject(Connection) Then
        Set Connection = SapApp.Children(0)
    End If
    If Not IsObject(session) Then
        Set session = Connection.Children(0)
    End If
    If IsObject(WScript) Then
        WScript.ConnectObject session, "on"
        WScript.ConnectObject SapApp, "on"
    End If
    'Login
    session.findbyid("wnd[0]").maximize
    session.findbyid("wnd[0]/usr/txtRSYST-BNAME").Text = "mylogin"
    session.findbyid("wnd[0]/usr/pwdRSYST-BCODE").Text = "password"
    session.findbyid("wnd[0]/usr/pwdRSYST-BCODE").SetFocus
    session.findbyid("wnd[0]/usr/pwdRSYST-BCODE").caretPosition = 8
    session.findbyid("wnd[0]").sendVKey 0
    'MM02
    session.findbyid("wnd[0]/tbar[0]/okcd").Text = "mm02"
    session.findbyid("wnd[0]").sendVKey 0
    ' 调用Excel原生的Wait方法
    Excel.Application.Wait Now + TimeValue("00:00:03") 

    '后续逻辑…
End Sub

方案2：动态等待SAP响应（更推荐） #

无需设置固定等待时长，自动检测SAP操作是否完成，适配所有场景的响应速度：
首先在模块顶部声明Sleep API：

' 64位Office使用以下声明
Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)
' 32位Office使用以下声明
' Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

添加SAP就绪检测自定义函数：

Sub WaitForSap(session As Object)
    Do While session.Busy = True Or session.Children.Count = 0
        Sleep 100 ' 每100ms检测一次，降低CPU占用
        DoEvents ' 释放控制权，避免Excel假死
    Loop
End Sub

在所有SAP操作指令后调用该函数即可，示例：

session.findbyid("wnd[0]").sendVKey 0
WaitForSap session ' 等待SAP加载完成后自动执行后续逻辑，无需手动设置时长
session.findbyid("wnd[0]/tbar[0]/okcd").Text = "mm02"
session.findbyid("wnd[0]").sendVKey 0
WaitForSap session

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