Sub Exe_VL01N() Dim Application, SapGuiAuto, Connection, session, WScript Dim x As Integer Dim qtd As String If Not IsObject(Application) Then Set SapGuiAuto = GetObject("SAPGUI") Set Application = SapGuiAuto.GetScriptingEngine End If If N...