** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Tus Funciones Favoritas & Aportaciones & Artí­culos
  Mensajes nuevos Mensajes nuevos RSS - ENTRAR EN SAP CON CODIGO VISUAL BASIC
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoENTRAR EN SAP CON CODIGO VISUAL BASIC

 Responder Responder
Autor
Mensaje
GENARO1908 Ver desplegable
Nuevo
Nuevo


Unido: 27/Agosto/2006
Localización: España
Estado: Sin conexión
Puntos: 42
Enlace directo a este mensaje Tema: ENTRAR EN SAP CON CODIGO VISUAL BASIC
    Enviado: 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"


Editado por AnSanVal - 16/Abril/2021 a las 12:59
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable