Conecta con SAP desde Visual Basic Access Excel

Academia Plasticaweb

Especial Programadores Conecta con SAP desde Visual Basic Access Excel
Comentario Si quieres más detalle envía un correo al profesor on-line.
Código

Es importante el "SystemNumber" que varia según la instalación. Desde cualquier transacción SAP, pulsando status se puede identificar este dato.

Dim oConnection as object
Dim oLogonCtrl as object


Set oLogonCtrl = CreateObject(SAP.LogonControl.1)
Set OCONNECTION = oLogonCtrl.NewConnection
OCONNECTION.User = ""
OCONNECTION.Client = "910"
OCONNECTION.System = "PS1"
OCONNECTION.Language = "ES"
OCONNECTION.SystemNumber = "00"
OCONNECTION.Password = ""

If Not OCONNECTION.Logon(Me.Hwnd, False) Then
MsgBox "Fallo en la conexion con SAP"

Else
OCONNECTION.SystemInformation

End If