Sub FullExecution2()
Set Connection = GetObject("SAPGUI").GetScriptingEngine.Children(0)
If Not IsObject(session) Then
Set SAPsession = Connection.Children(0)
End If
With SAPsession
.findById("wnd[0]").maximize
Dim objExcel
Dim objSheet, intRow, i
Set...