SAP GUI VBA销售订单脚本：消息类型识别与订单号提取问题求助

一、按消息类型处理弹窗（适配多语言） #

你当前用.MessageType无效，大概率是未正确定位SAP原生消息弹窗对象。SAP标准消息弹窗通常对应wnd[1]窗口，可通过以下方式精准判断消息类型：

Dim sapMsgWnd As SAPGuiWindow
On Error Resume Next
Set sapMsgWnd = Session.FindById("wnd[1]")
On Error GoTo 0

If Not sapMsgWnd Is Nothing Then
    ' 获取固定类型标识：S(成功)/E(错误)/W(警告)/I(信息)
    Dim msgType As String
    msgType = sapMsgWnd.MessageType
    
    Select Case msgType
        Case "S"
            ' 处理成功消息，示例：点击确认
            sapMsgWnd.SendVKey 0
        Case "W"
            ' 处理警告消息，按需选择确认/取消
            sapMsgWnd.SendVKey 0
        Case "E"
            ' 处理错误消息，示例：记录日志后取消
            sapMsgWnd.SendVKey 12
        Case "I"
            ' 处理信息消息，点击确认
            sapMsgWnd.SendVKey 0
    End Select
End If

若上述MessageType仍无效，需排查是否为自定义对话框（非SAP原生弹窗），这种情况可结合Windows API判断，但优先确保操作对象是SAP标准消息窗口。全程避免依赖.Text判断，因为多语言环境下文本会变化，而MessageType是固定枚举值，适配性更强。

二、从状态栏提取纯数字订单号 #

放弃固定位置截取，用正则表达式匹配连续数字，适配任意位置的订单号：

Dim statusBarText As String
statusBarText = Session.FindById("wnd[0]/sbar").Text

' 后期绑定正则对象，无需额外引用
Dim regex As Object
Set regex = CreateObject("VBScript.RegExp")
regex.Pattern = "\d+" ' 匹配所有连续数字序列
regex.Global = True

Dim matches As Object
Set matches = regex.Execute(statusBarText)

Dim orderNumber As String
If matches.Count > 0 Then
    ' 取第一个匹配的数字（通常订单号是状态栏中最突出的数字序列）
    orderNumber = matches(0).Value
    MsgBox "提取的订单号：" & orderNumber
Else
    MsgBox "未找到有效订单号"
End If

若状态栏存在多个数字（如行号、单据号），可调整正则表达式为带多语言关键字的模式，例如"订单号:\s*(\d+)"（英文环境用"Order:\s*(\d+)"），但纯数字匹配的通用性最强，只要订单号是状态栏中长度最长或唯一的大数字即可。

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