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"
Editado por AnSanVal - 16/Abril/2021 a las 12:59