Zuerst mein TestcodeMit SAPGUI in Excel/VBA, warum ändert das Ändern der .VerticalScrollbar.Position eines GuiTableControl das Objekt "Verbindung"?
Sub mytest2()
If Not IsObject(MyApplication) Then
Set SapGuiAuto = GetObject("SAPGUI")
Set MyApplication = SapGuiAuto.GetScriptingEngine
End If
If Not IsObject(Connection) Then
Set Connection = MyApplication.Children(0)
End If
If Not IsObject(session) Then
Set session = Connection.Children(0)
End If
If IsObject(Wscript) Then
Wscript.ConnectObject session, "on"
Wscript.ConnectObject MyApplication, "on"
End If
Dim MyTableStr As String
Dim MyTable As Variant
MyTableStr = "wnd[0]/usr/subSUB_ALL:SAPLCOIH:3001/ssubSUB_LEVEL:SAPLCOIH:1107/tabsTS_1100/tabpVGUE/ssubSUB_AUFTRAG:SAPLCOVG:3010/tblSAPLCOVGTCTRL_3010"
Set MyTable = session.findById(MyTableStr)
MyTable.VerticalScrollbar.Position = MyTable.VerticalScrollbar.Position + 1
Debug.Print MyTable.VerticalScrollbar.Position & " position"
Dieser Code der Tabellen vertikale Position erhöht und dann auf der debug.print Linie mit Fehlern fehlschlagen Fehlern Laufzeit 445
„Objekt dieser Aktion nicht unterstützt“ Wenn ich noch einmal die Zeile hinzufüge
Zwischen der .position Linie und der debug.print Linie, es funktioniert und die Position wird gedruckt.
Warum passiert das?