VBA SAP Verbindung herstellen

Wenn man automatisierte Berichte mit Daten aus einem SAP ERP oder Business Warehouse System erstellen möchte, muss man zunächst eine Verbindung zu einem SAP System herstellen. Es ist eine einfache VBA-Lösung auf der später weiter aufgebaut werden kann. Wie dies gelingt ist im folgenden Quellcode beschrieben. Die Verbindung kann später genutzt werden um auf Tabellen im ERP oder Business Warehouse System zuzugreifen oder verschiedene andere Aktion auszulösen.

Function Connect_to_SAP()

Dim myConnection As Object

Set myConnection = CreateObject("SAP.Functions")

With myConnection

 .Connection.System = "ABC" 'Systemname

 .Connection.client = "100" 'Mandant

 .Connection.user = "xyz"'Benutzer

 .Connection.password = "123" 'Passwort

 .Connection.Language = "DE" 'Sprace

 .Connection.systemnumber = "00" 'Systemnumber

 .Connection.hostname = "" 'Hostname

End With

'Anmeldung am Server, wenn False erscheint die Loginmaske, wenn True erfolgt die Anmeldung unterdrckt.

If myConnection.Connection.logon(0, False) <> True Then Exit Function  

  

'System Logoff

myConnection.Connection.LOGOFF

 

End Function

Aufgrund des Parameter False in der Verbindung erscheint folgendes Logon-Fenster. Soll dies nicht angezeigt werden, muss der Parameter auf True geändert werden.