ActiveX-Komponente SAP-Functions
Ptonka
ich versuche mit VBA eine Verbindung in unserem Netzwerk zu SAP herzustellen.
Dazu habe ich zum Testen der Verbindung folgenden Code benutzt:
Function SAPBUCHUNG()
' on error resume next
SAP_USER = "xxxxxxxxxxxxxx"
SAP_MANDANT = "yyyyyyyyyyyyyyy"
SAP_SYSTEM = "zzzzzzzzzzzzzzzzzz"
SAP_SYSTEMNUMBER = "qqqqqqqqqqqqqqqqq"
SAP_CODED_PWD = "pwpwpwpwpwpwpw"
Set FunctionCtrl = CreateObject("SAP.Functions")
Set sapConnection = FunctionCtrl.Connection
sapConnection.ApplicationServer = SAP_SYSTEM
sapConnection.SAPRouter = SAP_Router
sapConnection.SystemNumber = SAP_SYSTEMNUMBER
sapConnection.Client = SAP_MANDANT
sapConnection.Language = "DE"
sapConnection.RFCWithDialog = "0"
sapConnection.User = SAP_USER
sapConnection.Password = SAP_CODED_PWD
If Not sapConnection.logon(0, True) Then
MsgBox "Error on Logon."
Else
MsgBox "Logon successfull"
End If
If ( loggedOn ) Then
sapConnection.LogOff
End If
MsgBox "Logout"
End Function
Ich erhalte allerdings als Rückmeldung (Laufzeitfehler) u.a. folgendes:Code: 800A01AD
Fehler: ActiveX-Komponenten kann kein Objekt erstellen: 'SAP.Functions'
Ich habe leider keine Ahnung, wo ich den Fehler suchen muss - im Script, in der SAP-GUI-Installation, in der Micrsosoft-Installlation.
Kann mir hier jemand einen Tipp geben?
Danke im Voraus,
Ptonka