多SAP GUI窗口下，如何脚本定位新打开的VF02窗口？

核心问题分析 #

你通过 /oVF02 输入打开新窗口的命令后，既没有触发回车完成窗口打开，后续脚本还一直指向原窗口（wnd[0]），自然无法操作新窗口。

修正后的完整脚本 #

1. 先完成新窗口的打开流程（补充回车触发步骤）：

session.findById("wnd[0]").maximize
session.findById("wnd[0]/tbar[0]/okcd").Text = "/oVF02"
session.findById("wnd[0]").sendVKey 0 ' 触发回车，确认打开新窗口

2. 切换到新窗口执行后续操作（将所有操作目标从 wnd[0] 改为新窗口的索引 wnd[1]）：

' 激活新窗口，确保操作焦点在目标窗口
session.findById("wnd[1]").SetFocus

' 对新窗口执行内容填充和回车操作
session.findById("wnd[1]/usr/tabsTAB300/moretext").Text = ActiveWorkbook.Sheets("shData").Cells(3, 7)
session.findById("wnd[1]/usr/tabsTAB300/moretex").Text = "Text"
session.findById("wnd[1]").sendVKey 0

适配多窗口场景的备选方案 #

如果当前已有多个SAP窗口，新窗口的索引可能不是 wnd[1]，可以通过遍历窗口列表，根据标题定位目标窗口：

Dim targetWnd As Object
For Each targetWnd In session.Children
    ' 通过窗口标题包含的事务码判断是否为VF02窗口
    If InStr(targetWnd.Text, "VF02") > 0 Then
        targetWnd.SetFocus
        ' 直接用该对象执行后续操作
        targetWnd.findById("usr/tabsTAB300/moretext").Text = ActiveWorkbook.Sheets("shData").Cells(3, 7)
        targetWnd.findById("usr/tabsTAB300/moretex").Text = "Text"
        targetWnd.sendVKey 0
        Exit For
    End If
Next

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