Imprimir página | Cerrar ventana

ENTRAR EN SAP CON CODIGO VISUAL BASIC

Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Tus Funciones Favoritas & Aportaciones & Artí­culos
Descripción del foro: Para publicar código interesante, aportaciones y artículos
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=85956
Fecha de impresión: 28/Marzo/2024 a las 22:16


Tema: ENTRAR EN SAP CON CODIGO VISUAL BASIC
Publicado por: GENARO1908
Asunto: ENTRAR EN SAP CON CODIGO VISUAL BASIC
Fecha de publicación: 16/Abril/2021 a las 11:26
Buenas,

lo dejo por aqui, por si a alguien le interesa, con esto entro En sap, luego seria meter un script y a funcionar(nosotros tenemos el sap en automatico para entrar, no necesitamos meter contraseña)

► Editado (AnSnVal): Mensaje movido desde Excel. No he probado la efectividad del código,  no dispongo de SAP.

Private Sub LoginSAP()

If FindProcess("saplogon.exe") Then
Set SapGui = GetObject("SAPGUI")
Else
Call Shell("C:\Program Files (x86)\SAP\FrontEnd\SAPGUI\saplogon.exe", vbMinimizedFocus)
Esperar 5 ' Funcion para esperar unos segundos a que se ejecute el progama "saplogon"
Set SapGui = GetObject("SAPGUI")
End If
Esperar 2
Set Appl = SapGui.GetScriptingEngine
Set Connection = Appl.OpenConnection("PSG: SGDE Production", True)
Set session = Connection.Children(0)
session.findById("wnd[0]").sendVKey 0
End Sub

Private Sub Esperar(Tiempo As Integer)
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + Tiempo
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime
End Sub

para el q tenga otra maquina deberia cambiar "PSG: SGDE Production"



Imprimir página | Cerrar ventana