Zugriff mittels VBA auf Remotebaustein

Code: Alles auswählen.

sub read_bewertung.
Dim aufruf As Boolean
    Dim fcontrol As Object
    Dim exception As String
    Dim bewertung As bewertung
    Dim lieferant As lieferant
    Dim Connection As Object
    
    Set fcontrol = CreateObject("SAP.Functions")
       
    Set Connection = fcontrol.Connection
    
    Connection.Client = "010"
    Connection.Language = "DE"
    
    If Connection.logon(0, False) <> True Then
        MsgBox "Login zu SAP nicht möglich"
        Exit Sub
    End If
    fcontrol.Connection = Connection
            
    ' Fehlermeldung: SAP data type not supported
    ' und fcontrol.Add() gibt kein Objekt zurueck
    aufruf = get_bewertungen(fcontrol, exception)
end sub

Public Function get_bewertungen(functionControl As Object, exception As String) As Boolean
    
   ' Die Konstanten beziehen sich auf das Tabellenblatt Steuerung
   Const beginRow = 2 ' Ab dieser Zeile stehen die Einkaufsorganisationen
   Const colEinkaufOrg = 5 ' In dieser Spalten stehen die Einkaufsorganisationen
   Const beginRowEingang = 2 ' In dieser Zeile stehen die Datumswerte Wareneingang von, Wareneingang bis
   Const colEingangVon = 8 ' In dieser Spalte steht das Datum Wareneingang von
   Const colEingangBis = 9 ' In dieser Spalte steht das Datum Wareneingang bis
    
   Dim read_lieferanten As Object
   Dim einkauf_org As String
   Dim idx As Integer
   Dim orowFields As Object
   Dim returnFunction As Boolean
   Dim error_message As Object
   
   Set read_lieferanten = functionControl.Add("ZREAD_BEWERTUNG")
   ' read_lieferanten steht immer auf nothing wie lässt sich das Objekt sonst erzeugen?          
   
   idx = beginRow
   Do
    einkauf_org = Excel.Worksheets("Steuerung").Cells(idx, colEinkaufOrg)
    If einkauf_org = "" Then
      Exit Do
    End If
    idx = idx + 1
    Set orowFields = read_lieferanten.Tables("EINKAUF_ORG").AppendRow
    orowFields(1, "EKORG") = einkauf_org
   Loop
   
   read_lieferanten.exports("EINGANG_VON") = Excel.Worksheets("Steuerung").Cells(beginRowEingang, colEingangVon)
   read_lieferanten.exports("EINGANG_BIS") = Excel.Worksheets("Steuerung").Cells(beginRowEingang, colEingangBis)
   ' error_message.Value
   Set error_message = read_lieferanten.imports("ERROR_MESSAGE")
   
   returnFunction = read_lieferanten.Call
    
   If read_lieferanten.exception = "" And returnFunction Then
     get_bewertungen = returnFunction
   Else
     exception = "Fehler beim Lesen aller Bewertungen" & error_message.value
     get_bewertungen = False
   End If
    
End Function