Sub Connect()
Dim sapConnection As Variant

Set sapConnection = Run("BEXAnalyzer.XLA!sapBEXgetConnection")
If sapConnection.IsConnected <> 1 Then
MsgBox "Нет соединения!"
Exit Sub
End If

End Sub

Sub Connect()
Dim sapConnection As Variant

Set sapConnection = Run("BEXAnalyzer.XLA!sapBEXgetConnection")
If sapConnection.IsConnected <> 1 Then
MsgBox "Нет соединения!"
Exit Sub
End If
Set objBAPIControl = CreateObject("SAP.Functions")
objBAPIControl.Connection.ApplicationServer = sapConnection.ApplicationServer
objBAPIControl.Connection.Password = sapConnection.Password
objBAPIControl.Connection.client = sapConnection.client
objBAPIControl.Connection.user = sapConnection.user
objBAPIControl.Connection.Language = sapConnection.Language
objBAPIControl.Connection.hostname = sapConnection.hostname
objBAPIControl.Connection.SystemNumber = sapConnection.SystemNumber
objBAPIControl.Connection.System = sapConnection.System
objBAPIControl.Connection.Destination = sapConnection.Destination
If objBAPIControl.Connection.logon(1, True) = True Then
Set objUserList = objBAPIControl.Add("BAPI_USER_GETLIST")
objUserList.exports("MAX_ROWS") = "99999"
objUserList.exports("WITH_USERNAME") = ""
returnFunc = objUserList.Call
End If
If returnFunc = True Then
Dim objTable As Object
Set objTable = objUserList.Tables("USERLIST")
ActiveSheet.Cells(4, 1) = "User count :" & objTable.RowCount
End If
End Sub

Call isAddinLoaded(loadIfNotLoaded:=True)
 
  'Get AddinName
  Dim lAddinName As String
  lAddinName = addinName(pSession)

  'Set server object
  trace False, "Set server object"
  With pServerObj
    With .configuration
      Set .ParentApplication = Application
      .Caller = "RUN"
      .eventconnected = ThisWorkbook.Name & "!SAPBEX0serverEvent"
    End With
   
    .ProgId = sessionID
    trace False, "pServerObj.ProgId: " & .ProgId
   
    .gwService = gwService
    trace False, "pServerObj.gwService: " & .gwService
   
    .gwHost = gwHost
    trace False, "pServerObj.gwHost: " & .gwHost
 
    'Get SessionID dependant on AddinName
    If (lAddinName = "BExAnalyzer.xla") Then
      sessionID = "_" & sessionID
    End If
    pSession = sessionID
    trace False, "Session: " & pSession

    'run sapBEXgetConnection makro of addin and retrieve connection
    trace False, "Run(" & lAddinName & "!sapBEXgetConnection)"
    Set pConnObj = Run(lAddinName & "!sapBEXgetConnection")
    If pConnObj Is Nothing Then
      trace False, "Connection Object is nothing"
      GoTo unexpectedError
    End If
    Set .connection = pConnObj
   
    Dim lRegResult As Boolean
    lRegResult = .register
    If lRegResult Then
      trace False, "registered"
    Else
      trace False, "Error in server registration: " & Err.Description
      GoTo unexpectedError
    End If
  End With
   
  pWorkbookID = workbookID
  pQueryID = queryID
  pJumpType = jumpType
  pJumpTarget = jumpTarget
   
  'the return value should be cReturnOK, however backend does not respond to such an answer
  SAPBEX0serverLaunch = cReturnNoConn
 
  GoTo functionEnd
 
unexpectedError:
  GoTo functionEnd
 
functionEnd:
  Select Case SAPBEX0serverLaunch
    Case cReturnOK
      trace False, "SAPBEX0serverLaunch: connected, Returncode:" & SAPBEX0serverLaunch
    Case cReturnNoConn
      trace False, "SAPBEX0serverLaunch: connected, Returncode:" & SAPBEX0serverLaunch
    Case cReturnWrongConn
      trace False, "SAPBEX0serverLaunch: wrong connection, Returncode:" & SAPBEX0serverLaunch
    Case cReturnError
      trace False, "SAPBEX0serverLaunch: error, Returncode:" & SAPBEX0serverLaunch
    Case Else
      SAPBEX0serverLaunch = cReturnError
      trace False, "SAPBEX0serverLaunch: unexpected error, Returncode:" & SAPBEX0serverLaunch
  End Select
 
  trace False, "<<< SAPBEX0serverLaunch():" & SAPBEX0serverLaunch
 
  Exit Function
End Function

Function ConnectToSap()
    Dim Logon
   
    Set gFuncControl = CreateObject("SAP.Functions")
    Set gLogonCtrl = CreateObject("SAP.LogonControl.1")

    gFuncControl.Connection = gLogonCtrl.NewConnection
    gFuncControl.Connection.user          = g_Conf.Login_sap_login
    gFuncControl.Connection.Password      = g_Conf.Login_sap_password
    gFuncControl.Connection.RfcWithDialog = 2
    gFuncControl.Connection.CodePage      = "1504"
   
    gFuncControl.Connection.Client            = g_Conf.Login_sap_mandt
    gFuncControl.Connection.Language          = "RU"
    gFuncControl.Connection.systemnumber      = g_Conf.Login_sap_no
    gFuncControl.Connection.System            = g_Conf.Login_sap_id
    gFuncControl.Connection.saprouter         = ""
    gFuncControl.Connection.ApplicationServer = g_Conf.Login_sap_server
             
    Logon = gFuncControl.Connection.Logon(0, True)
   
    ConnectToSap = Logon
End Function