Imports SAPBAPIControlLib
Public Sub ConnectSAP()
Dim bapi As Object
Dim connection As Object
Dim oProject As Object
Dim a As String
bapi = CreateObject("SAP.Functions")
connection = bapi.connection
connection.ApplicationServer = "XXX.XX.XX.XX"
connection.Client = "XXX"
connection.System = "XXX"
connection.SystemNumber = "XX"
connection.User = "XXXXXXX"
connection.Password = "XXXX"
connection.Language = "XX"
If (connection.Logon(0, False)) Then
oProject = bapi.Add("BAPI_PROJECT_GETINFO")
oProject.exports("PROJECT_DEF") = "R71240"
If oProject.Call = True Then
a ...
Go to the complete details ...