Ahí va un ejemplo de una aceptación completa que hice de listas de lotes de inspección, para dar el resultado y luego cerrarlos.
If Not IsObject(application) Then
Set SapGuiAuto = GetObject("SAPGUI")
Set application = SapGuiAuto.GetScriptingEngine
End If
If Not IsObject(connection) Then
Set connection = application.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 application, "on"
End If
session.findById("wnd[0]").maximize
i=0
j= session.findById("wnd[0]/usr/cntlGRID1/shellcont/shell").RowCount
Do While (i<j)
session.findById("wnd[0]/usr/cntlGRID1/shellcont/shell").setCurrentCell i,""
session.findById("wnd[0]/usr/cntlGRID1/shellcont/shell").selectedRows = i
session.findById("wnd[0]/tbar[1]/btn[44]").press
session.findById("wnd[0]").sendVKey 4
session.findById("wnd[1]/usr/cntlTREE_CONTROL_AREA/shellcont/shell").selectItem " 5","1"
session.findById("wnd[1]/usr/cntlTREE_CONTROL_AREA/shellcont/shell").ensureVisibleHorizontalItem " 5","1"
session.findById("wnd[1]/usr/cntlTREE_CONTROL_AREA/shellcont/shell").doubleClickItem " 5","1"
session.findById("wnd[0]/usr/tabsEE_DATEN/tabpSISP/ssubSUB_EE_DATEN:SAPLQEEM:0202/subSUB_EE_FCODE:SAPLQEEM:5300/btnCLOSING").press
session.findById("wnd[0]/tbar[0]/btn[11]").press
session.findById("wnd[0]/usr/cntlGRID1/shellcont/shell").setCurrentCell i,""
session.findById("wnd[0]/usr/cntlGRID1/shellcont/shell").selectedRows = i
session.findById("wnd[0]/tbar[1]/btn[41]").press
session.findById("wnd[0]/usr/tabsUD_DATA/tabpBB").select
session.findById("wnd[0]/usr/tabsUD_DATA/tabpBB/ssubSUB_UD_DATA:SAPMQEVA:0102/txtRQEVA-VMENGE01").text = session.findById("wnd[0]/usr/tabsUD_DATA/tabpBB/ssubSUB_UD_DATA:SAPMQEVA:0102/txtRQEVA-ZUBUCHMG_F").text
session.findById("wnd[0]/usr/tabsUD_DATA/tabpBB/ssubSUB_UD_DATA:SAPMQEVA:0102/txtRQEVA-VMENGE01").caretPosition = 1
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]/usr/tabsUD_DATA/tabpPLMK").select
session.findById("wnd[0]/mbar/menu[1]/menu[0]").select
session.findById("wnd[0]/mbar/menu[1]/menu[4]").select
session.findById("wnd[1]/usr/cntlTREE_CONTROL_AREA/shellcont/shell").expandNode " 2"
session.findById("wnd[1]/usr/cntlTREE_CONTROL_AREA/shellcont/shell").topNode = " 1"
session.findById("wnd[1]/usr/cntlTREE_CONTROL_AREA/shellcont/shell").selectItem " 3","1"
session.findById("wnd[1]/usr/cntlTREE_CONTROL_AREA/shellcont/shell").ensureVisibleHorizontalItem " 3","1"
session.findById("wnd[1]/usr/cntlTREE_CONTROL_AREA/shellcont/shell").doubleClickItem " 3","1"
session.findById("wnd[0]/tbar[0]/btn[11]").press
i=i+1
Loop
session.findById("wnd[0]/tbar[1]/btn[14]").press