如何通过SAP GUI Scripting读取FB03中不可点击文本？

核心思路：定位SAP控件读取文本 #

SAP GUI的所有界面元素都有唯一的控件ID，即使是不可点击的静态文本区域也不例外。你可以通过以下两种可靠方法获取目标文本：

方法1：直接定位控件ID（推荐）

1. 获取目标控件ID
   打开SAP GUI Scripting Tracker（或开启SAP GUI录制功能，操作到FB03行项目界面后停止录制），将鼠标悬停在目标文本“Line Item 1 / Credit memo / 11”区域，查看生成的脚本或Tracker显示的控件ID（格式类似wnd[0]/usr/subSUB0:SAPMF05L:0301/txtRF05L-LINE_INFO，实际ID需根据你的SAP版本/配置确认）。

2. VBScript代码示例

Dim session, lineItemText
Set session = CreateObject("SAPGUI").GetScriptingEngine.Children(0) ' 取第一个SAP会话

' 先验证当前界面是FB03行项目页
If InStr(Trim(session.findById("wnd[0]").Text), "Display Document: Line Item") > 0 Then
    ' 读取目标文本（替换为实际获取的控件ID）
    lineItemText = Trim(session.findById("wnd[0]/usr/subSUB0:SAPMF05L:0301/txtRF05L-LINE_INFO").Text)
    
    ' 执行逻辑分支
    If InStr(lineItemText, "Credit memo") > 0 Then
        ' 信用凭证相关逻辑
        WScript.Echo "当前为信用凭证行项目"
    ElseIf InStr(lineItemText, "Invoice") > 0 Then
        ' 发票相关逻辑
        WScript.Echo "当前为发票行项目"
    End If
End If

3. VBA代码示例

Sub GetFB03LineItemText()
    Dim session As Object
    Set session = CreateObject("SAPGUI").GetScriptingEngine.Children(0)
    Dim wndTitle As String, lineItemText As String
    
    wndTitle = Trim(session.FindById("wnd[0]").Text)
    If InStr(wndTitle, "Display Document: Line Item") > 0 Then
        ' 替换为实际控件ID
        lineItemText = Trim(session.FindById("wnd[0]/usr/subSUB0:SAPMF05L:0301/txtRF05L-LINE_INFO").Text)
        
        ' 逻辑分支处理
        If InStr(lineItemText, "Credit memo") > 0 Then
            MsgBox "当前为信用凭证行项目"
        Else
            MsgBox "当前为其他类型行项目"
        End If
    End If
End Sub

方法2：遍历父容器筛选文本（应对控件ID动态变化场景）

如果控件ID因屏幕配置、SAP版本存在动态变化，可通过遍历父容器内的控件，筛选匹配文本：

Dim session, parentCtrl, ctrl, lineItemText
Set session = CreateObject("SAPGUI").GetScriptingEngine.Children(0)
Set parentCtrl = session.findById("wnd[0]/usr") ' 缩小范围到主内容容器

For Each ctrl In parentCtrl.Children
    ' 筛选静态文本类控件（根据实际控件类型调整，可能是GuiTextField或GuiLabel）
    If TypeName(ctrl) = "GuiTextField" Or TypeName(ctrl) = "GuiLabel" Then
        If InStr(ctrl.Text, "Line Item") > 0 And InStr(ctrl.Text, "/") > 0 Then
            lineItemText = Trim(ctrl.Text)
            Exit For ' 找到目标后退出循环
        End If
    End If
Next

' 后续逻辑分支
If lineItemText <> "" Then
    WScript.Echo "获取到的行项目信息：" & lineItemText
End If

注意事项 #

• 确保SAP GUI Scripting已启用：在SAP GUI选项中开启脚本支持，事务码RZ11中设置参数sapgui/user_scripting为1。
• 控件ID需实际验证：不同SAP版本、公司配置的控件ID可能不同，必须通过Scripting Tracker或录制工具确认。
• 遍历控件时尽量缩小父容器范围，避免遍历过多元素影响执行效率。

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