Tópicos relacionados a códigos VBA, gravação de macros, etc.
Por FAMenezes
#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
#60804
@FAMenezes, Tudo bom... sei que já faz um tempo que você postou uma pergunta pedindo ajuda para entrar no SAP via Macro, estou passando pelo mesmo problema que você e gostaria de saber se você conseguiu resolver... se sim poderia me dar uma ajuda...
Obrigado
Holerite filtrar

Bom dia Segue uma opção Até[…]

Contar Frequencia com Critérios

Acham que é muito dificil pessoal? :(

Caspirro, Bom Dia. Notei que voce esta colocando […]

Office 2019

Pessoal boa noite!! Alguém sabe me dizer […]

Olá Veja se era isso. Até Foxtri

Boa tarde amigos! Peço um auxílio, […]

[Resolvido] Filtro de Imagens

Camarada... perfeito... nem sei como lhe agradecer[…]

@osvaldomp Muitissimo Obrigado!!! Alé[…]