如何使用VBA获取SAP GUI状态栏中的目标数字

前提准备 #

• 打开VBA编辑器，通过「工具→引用」勾选 SAP GUI Scripting API，确保能调用SAP的脚本对象。
• 确保SAP GUI已开启脚本支持：在SAP界面中依次点击「选项→辅助功能→脚本设置」，勾选「启用脚本」。

实现步骤与代码示例 #

1. 连接到运行中的SAP GUI实例，定位目标会话。
2. 执行双击绿色字段的操作（需替换为实际字段的ID）。
3. 获取弹出窗口对象（优先用已知窗口ID，比如wnd[1]，也可遍历会话子对象查找）。
4. 提取状态栏文本，再从中匹配出目标数字。

Sub GetSAPStatusBarNumber()
    Dim SapGuiApp As SAPFEWSELib.GuiApplication
    Dim SapConnection As SAPFEWSELib.GuiConnection
    Dim SapSession As SAPFEWSELib.GuiSession
    Dim PopupWindow As SAPFEWSELib.GuiWindow
    Dim StatusBarText As String
    Dim TargetNumber As String
    Dim regex As Object
    
    ' 连接到SAP GUI实例（取第一个连接和会话，按需调整索引）
    Set SapGuiApp = GetObject("SAPGUI")
    Set SapConnection = SapGuiApp.Connections(0)
    Set SapSession = SapConnection.Sessions(0)
    
    ' 双击绿色字段（替换为你录制得到的实际字段ID）
    SapSession.FindById("你的绿色字段ID").DoubleClick
    
    ' 获取弹出窗口（直接用窗口ID更高效，主窗口是wnd[0]，弹出窗口通常是wnd[1]）
    Set PopupWindow = SapSession.FindById("wnd[1]")
    
    ' 读取状态栏文本
    StatusBarText = PopupWindow.FindById("sbar").Text
    
    ' 用正则提取数字（匹配连续数字，按需调整正则规则）
    Set regex = CreateObject("VBScript.RegExp")
    regex.Pattern = "\d+"
    regex.Global = False ' 仅提取第一个匹配的数字，多数字场景改为True
    
    If regex.Test(StatusBarText) Then
        TargetNumber = regex.Execute(StatusBarText)(0).Value
        MsgBox "提取到的目标数字：" & TargetNumber
    Else
        MsgBox "状态栏未检测到数字"
    End If
    
    ' 释放对象
    Set regex = Nothing
    Set PopupWindow = Nothing
    Set SapSession = Nothing
    Set SapConnection = Nothing
    Set SapGuiApp = Nothing
End Sub

关键注意事项 #

• 字段/窗口ID获取：使用SAP自带的脚本录制工具（SAP GUI界面→「自定义本地布局」→「开始录制」），执行双击操作后，录制的代码会给出准确的字段ID和弹出窗口ID。
• 多数字场景：如果状态栏有多个数字，将regex.Global设为True，通过循环遍历regex.Execute(StatusBarText)的结果来获取所有数字。
• 会话/连接索引：如果同时打开多个SAP连接或会话，需调整Connections和Sessions的索引值，确保定位到正确的实例。

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