Question

我正在寻找一种如何从SAP表读取文本的解决方案。我可以在表格中选择特定的单元格，但是不知道要获取其文本值的引用。

代码的相关部分

Dim SapGuiAuto, SAP, Connection, Session

If Not IsObject(SAP) Then
    Set SapGuiAuto = GetObject("SAPGUI")
    Set SAP = SapGuiAuto.GetScriptingEngine
    Set Connection = SAP.Children(0)
    Set Session = Connection.Children(0)
End If

ReDim ArrSap(1 To 1, 1 To 1)
Session.findById("wnd[0]/shellcont[0]/shell/shellcont[1]/shell[0]").pressButton "MATE"
Session.findById("wnd[0]").iconify

On Error Resume Next

For i = 1 To 999
    Select Case i
        Case Is > 99
            Case Is > 99
            Session.findById("wnd[0]/shellcont[0]/shell/shellcont[1]/shell[1]").selectItem "        " & i & "", "C         10"
            Session.findById("wnd[0]/shellcont[0]/shell/shellcont[1]/shell[1]").expandNode "        " & i & ""
        Case Is > 9
            Session.findById("wnd[0]/shellcont[0]/shell/shellcont[1]/shell[1]").selectItem "         " & i & "", "C         10"
            Session.findById("wnd[0]/shellcont[0]/shell/shellcont[1]/shell[1]").expandNode "         " & i & ""
        Case Else
            Session.findById("wnd[0]/shellcont[0]/shell/shellcont[1]/shell[1]").selectItem "          " & i & "", "C         10"
            Session.findById("wnd[0]/shellcont[0]/shell/shellcont[1]/shell[1]").expandNode "          " & i & ""
    End Select
Next i

因此，上面的方法很好，但是我需要的不是selectItem，而是我需要从此项中获取文本。

Answer 1

我知道一种解决方法。

例如：

...
For i = 1 To 999
 Session.findById("wnd[0]/shellcont[0]/shell/shellcont[1]/shell[1]").selectItem right(space(10) & cstr(i),11) , "C         10"
 Session.findById("wnd[0]/shellcont[0]/shell/shellcont[1]/shell[1]").expandNode right(space(10) & cstr(i),11)
 session.findById("wnd[0]/shellcont[0]/shell/shellcont[1]/shell[1]").itemContextMenu right(space(10) & cstr(i),11) , "C         10"
 session.findById("wnd[0]/shellcont[0]/shell/shellcont[1]/shell[1]").selectContextMenuItem "&FIND"
 myText = session.findById("wnd[1]/usr/txtLVC_S_SEA-STRING").text
 session.findById("wnd[1]/tbar[0]/btn[12]").press
 msgbox myText
Next i

关于，脚本人

Answer 2

一个更快的解决方案可能看起来像这样：

...
set myTree = Session.findById("wnd[0]/shellcont[0]/shell/shellcont[1]/shell[1]") 
For i = 1 To 999
 myTree.selectItem right(space(10) & cstr(i),11) , "C         10"
 myTree.expandNode right(space(10) & cstr(i),11)
 myText = myTree.getItemText (right(space(10) & cstr(i),11) , "C         10")
 msgbox myText
Next i

关于，脚本人

SAP CK13N事务使用VBA

2 个答案: