Avalados por :

Como converter um script VBS para VBA para automatizar o SAP a partir do Excel

  • Creado 01/03/2024
  • Modificado 01/03/2024
  • 10 Vistas
0
Cargando...

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

Pedro Pascal
Se unió el 07/03/2018
Pinterest
Telegram
Linkedin
Whatsapp

1 Respuestas

0
Cargando...

Olá Tony,

Bem-vindo ao Fórum de Linguagem de Scripting.

Você pode tentar isso:

Sub LOGONSAP()

Dim SAPguiAPP As SAPFEWSELib.GuiApplication

Dim Connection As SAPFEWSELib.GuiConnection

Para usar esta solução, é necessário adicionar primeiro a biblioteca da API de Scripting do SAP GUI como referência ao seu projeto VBA a partir do menu Ferramentas. Como fazer isso está descrito aqui .

Nos informe sobre seus resultados.

Saudações

Stefan

Respondido el 15/04/2024
LUCIANO RIOJA GHIOTTO
Se unió el 13/07/2019

contacto@primeinstitute.com

(+51) 1641 9379
(+57) 1489 6964

© 2024 Copyright. Todos los derechos reservados.

Desarrollado por Prime Institute

¡Hola! Soy Diana, asesora académica de Prime Institute, indícame en que curso estas interesado, saludos!
Hola ¿Puedo ayudarte?