- 16 Set 2018 às 09:40
#36813
Pessoal preciso de um código que abra a tela de logIn do ECC do SAP 740, estou com a Tela de Seleção de Conexões aberta e preciso que o VBA acesse o ECC Production que está na lista.
Estou preso na primeira tela, preciso que o VBA abra a segunda tela que é a de mandante, usuário, senha e idioma.
Option Explicit
Public SAPGuiApp As Object
Public Connection As Object
Public Session As Object
Sub ConexaoSAP()
Dim SAPTaskID As Double
Dim SAPLogonPad As String
SAPLogonPad = "C:\Program Files (x86)\SAP\FrontEnd\SapGui\saplogon.exe"
On Error Resume Next
AppActivate "SAP Logon 740"
If Err <> 0 Then
Err = 0
SAPTaskID = Shell(SAPLogonPad, vbMinimizedNoFocus)
If Err <> 0 Then
MsgBox "Cannot start SAPLOGON", vbCritical, "SAPLOGON FAILED"
Else
'MsgBox "SAP Logon activated " & SAPTaskID, vbInformation, "SAP Running"
End If
End If
On Error GoTo NAOLOGADO
Set Session = GetObject("SAPGUI").GetScriptingEngine.Children(0).Children(0)
GoTo LOGADO
NAOLOGADO:
'Seta sessao e faz Login
If Not IsObject(SAPGuiApp) Then Set SAPGuiApp = CreateObject("Sapgui.ScriptingCtrl.1")
If Not IsObject(Connection) Then Set Connection = SAPGuiApp.OpenConnection(" ***NÃO SEI O QUE COLOCAR AQUI PARA ABRIR A JANELA DE LOGIN*** ", True)
If Not IsObject(Session) Then Set Session = Connection.Children(0)
Session.findById("wnd[0]/usr/txtRSYST-MANDT").Text = "MANDANTE" '***Nesta linha aparece o Erro de tempo em execução '91' A variavel do objeto ou a variavel do bloco with não foi definida.
Session.findById("wnd[0]/usr/txtRSYST-BNAME").Text = "USERNAME"
Session.findById("wnd[0]/usr/pwdRSYST-BCODE").Text = "PASSWORD"
Session.findById("wnd[0]/usr/txtRSYST-LANGU").Text = "PT"
Session.findById("wnd[0]").sendVKey 0
LOGADO:
On Error GoTo -1 'Desliga GoTo
'========= TELA INICIAL DO SAP ========='
Session.findById("wnd[0]/tbar[0]/okcd").Text = "IW38" 'Entra na tela IW38
Session.findById("wnd[0]").sendVKey 0
'MAIS CÓDIGO.......
'Termina a sessão com SAP e trabalho os dados no Excel
End Sub
Estou preso na primeira tela, preciso que o VBA abra a segunda tela que é a de mandante, usuário, senha e idioma.
Option Explicit
Public SAPGuiApp As Object
Public Connection As Object
Public Session As Object
Sub ConexaoSAP()
Dim SAPTaskID As Double
Dim SAPLogonPad As String
SAPLogonPad = "C:\Program Files (x86)\SAP\FrontEnd\SapGui\saplogon.exe"
On Error Resume Next
AppActivate "SAP Logon 740"
If Err <> 0 Then
Err = 0
SAPTaskID = Shell(SAPLogonPad, vbMinimizedNoFocus)
If Err <> 0 Then
MsgBox "Cannot start SAPLOGON", vbCritical, "SAPLOGON FAILED"
Else
'MsgBox "SAP Logon activated " & SAPTaskID, vbInformation, "SAP Running"
End If
End If
On Error GoTo NAOLOGADO
Set Session = GetObject("SAPGUI").GetScriptingEngine.Children(0).Children(0)
GoTo LOGADO
NAOLOGADO:
'Seta sessao e faz Login
If Not IsObject(SAPGuiApp) Then Set SAPGuiApp = CreateObject("Sapgui.ScriptingCtrl.1")
If Not IsObject(Connection) Then Set Connection = SAPGuiApp.OpenConnection(" ***NÃO SEI O QUE COLOCAR AQUI PARA ABRIR A JANELA DE LOGIN*** ", True)
If Not IsObject(Session) Then Set Session = Connection.Children(0)
Session.findById("wnd[0]/usr/txtRSYST-MANDT").Text = "MANDANTE" '***Nesta linha aparece o Erro de tempo em execução '91' A variavel do objeto ou a variavel do bloco with não foi definida.
Session.findById("wnd[0]/usr/txtRSYST-BNAME").Text = "USERNAME"
Session.findById("wnd[0]/usr/pwdRSYST-BCODE").Text = "PASSWORD"
Session.findById("wnd[0]/usr/txtRSYST-LANGU").Text = "PT"
Session.findById("wnd[0]").sendVKey 0
LOGADO:
On Error GoTo -1 'Desliga GoTo
'========= TELA INICIAL DO SAP ========='
Session.findById("wnd[0]/tbar[0]/okcd").Text = "IW38" 'Entra na tela IW38
Session.findById("wnd[0]").sendVKey 0
'MAIS CÓDIGO.......
'Termina a sessão com SAP e trabalho os dados no Excel
End Sub
