Por favor, ajude-me a converter o seguinte script de VBS para VBA (Macro do Excel). Em vez de abrir o SAP e digitar o Usuário e Senha todos os dias, quero que abra a partir de um arquivo do Excel.
Aqui está o script atual que tenho, mas por alguma razão, a janela pop-up do SAP não permanece aberta e o Excel não funciona após executá-lo.
Sub LOGONSAP()
If Not IsObject(SAPguiApp) Then
Set SAPguiApp = CreateObject("Sapgui.ScriptingCtrl.1")
End If
If Not IsObject(Connection) Then
Set Connection = SAPguiApp.OpenConnection("MYSYSTEM", True)
End If
If Not IsObject(session) Then
Set session = Connection.Children(0)
End If
session.findById("wnd[0]/usr/txtRSYST-BNAME").Text = "MYUSER"
session.findById("wnd[0]/usr/pwdRSYST-BCODE").Text = "MYPSSW"
session.findById("wnd[0]/usr/pwdRSYST-BCODE").SetFocus
session.findById("wnd[0]/usr/pwdRSYST-BCODE").caretPosition = 2
session.findById("wnd[0]").sendVKey 0
End Sub