Goataria de auxilio - Erro 424

[Ellen Lima]

Option Explicit

Dim Appl, SapGuiAuto, Connection, Session, WScript, wshShell, proc, ApplSAP, Creator 'Application,SapGuiAuto, Connection, session, WScript'

Sub Automatizacao_SAP()

    'Inicia o aplicativo SAP se não estiver aberto'
    Set wshShell = CreateObject("WScript.Shell")
    Set proc = wshShell.Exec("C:\Program Files\SAP\NWBC800\NWBC.exe")

    'Aguarda o aplicativo SAP abrir completamente'
   Application.Wait Now + TimeValue("0:00:5")
   
'Conexao com o SAP'
If Not IsObject(Appl) Then
   Set SapGuiAuto = GetObject("SAPGUISERVER")
   Set Appl = SapGuiAuto.GetScriptingEngine
End If
If IsObject(WScript) Then
   WScript.ConnectObject Session, "on"
   WScript.ConnectObject Application, "on"
End If

'Rotina'
Session.findById("wnd[0]").resizeWorkingPane 217, 18, False
Session.findById("wnd[0]/tbar[0]/okcd").Text = "ME23N" 'Insere a transacao'
Session.findById("wnd[0]").sendVKey 0
Session.findById("wnd[0]/tbar[1]/btn[17]").press
Session.findById("wnd[1]/usr/subSUB0:SAPLMEGUI:0003/radMEPO_SELECT-BSTYP_B").SetFocus
Session.findById("wnd[1]/usr/subSUB0:SAPLMEGUI:0003/radMEPO_SELECT-BSTYP_B").Select
Session.findById("wnd[1]/usr/subSUB0:SAPLMEGUI:0003/ctxtMEPO_SELECT-BANFN").Text = "4101212624"
Session.findById("wnd[1]/usr/subSUB0:SAPLMEGUI:0003/ctxtMEPO_SELECT-BANFN").SetFocus
Session.findById("wnd[1]/usr/subSUB0:SAPLMEGUI:0003/ctxtMEPO_SELECT-BANFN").caretPosition = 10
Session.findById("wnd[1]/tbar[0]/btn[0]").press

End Sub
 

[LoftVoyager55]

Parece que você está tentando automatizar a interação com o SAP usando VBA. Seu código parece estar no caminho certo, mas há algumas coisas a considerar:
Certifique-se de que o caminho para o executável do SAP NWBC (NWBC.exe) esteja correto. Caso contrário, o script não será capaz de abrir o aplicativo corretamente.
Use o método Wait com cuidado. Esperar um tempo fixo (como 5 segundos) pode não ser confiável, pois a abertura do SAP pode variar dependendo do sistema e da carga. Considere usar uma abordagem mais robusta para esperar a abertura do SAP completamente.
Verifique se o objeto Session foi corretamente inicializado antes de tentar interagir com ele. Caso contrário, suas chamadas pachinko gratis podem falhar.
Além disso, certifique-se de que seu código está em conformidade com as políticas de automação do SAP e que você tem permissão para realizar essas ações. Experimente executar o código passo a passo para identificar possíveis problemas e ajustá-lo conforme necessário.

Editado Abril 26 por LoftVoyager55

[LoftSide16]

Este código VBA parece ser utilizado para automatizar tarefas no SAP usando o SAP GUI Scripting. Ele inicia o aplicativo SAP, espera alguns segundos para que ele abra completamente, e então realiza uma série de ações, como redimensionar a janela, inserir uma transação, e pressionar botões no fortune tiger. É importante ter cuidado ao usar automações desse tipo, pois podem violar políticas de segurança ou termos de serviço da empresa. Certifique-se de ter permissão para automatizar essas tarefas e de seguir as diretrizes da sua organização.

Editado Abril 28 por LoftSide16