Hallo Udo,
eine Session kannst Du folgender Maßen Starten :
Dim SapObj As Object
'--use the gui function..
Set SapObj = CreateObject("SAP.Functions")
SapObj.Connection.Client = "123" '-- SAP Mandanten Nummer
SapObj.Connection.User = Environ("USERNAME") '-- SAP Username
SapObj.Connection.Language = "DE" '-- SAP Anmeldesprache
SapObj.Connection.System = "ABC" '-- SAP System
SapObj.Connection.ApplicationServer = "SapServer" '-- SAP Server
SapObj.Connection.SystemNumber = "xy" '-- SAP Systemnummer
If SapObj.Connection.Logon(0, false) Then
MsgBox "Anmeldung Ok"
Else
MsgBox "Anmeldung fehlgeschlagen"
End If
'-- Logoff
SapObj.Connection.LOGOFF
Es muß allerdings der SAP Client auf dem Rechner installiert sein
und der Verweis auf die Funktionen in Excel vorhanden sein.
Gruß
Roland
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP