SAP Zugriff via Excel VBA | Herbers Excel-Forum

Hey,
ich würde gerne auf SAP zugreifen und aus einer bestimmten Tabelle Daten auslesen, die ich dann _
in Excel anzeigen lasse. Hierfür benötige ich allerdings den sogenannten "Funktionsbaustein" von _
SAP. Weiß jemand wie man den bekommen kann? Mir wurde gesagt eine Übersicht bekommt man mit der _
Transaktion SE37 für die ich allerdings keine Berechtigung habe. Kann man den Funktionsbaustein _ nicht einfach im offenen Fenster irgendwo ablesen. Hier ist mal mein Code, vielleicht hat ja jemand von euch auch schon mal mit VBA Excel auf SAP zugegriffen und eine Tabelle anzeigen lassen.

Private Sub CommandButton1_Click()
'Deklaration der Objekte und Variablen
Dim functionCtrl As Object          'Function Control (Sammelobjekt)
Dim sapConnection As Object         'Verbindungsobjekt
Dim theFunc As Object               'Function Objekt
'Erstellen eines Funktionsobjektes
Set functionCtrl = CreateObject("SAP.Functions")
'Kontakt zu SAP aufnehmen
Set sapConnection = functionCtrl.Connection
'Logon mit Initialwerten
sapConnection.Client = "000"
sapConnection.user = "SAPuser"
sapConnection.Language = "DE"
If sapConnection.logon(0, False) <> True Then
MsgBox "Keine Verbindung zum R/3!"
Exit Sub            'Programm beenden
End If
'Referenz auf Funktionsobjekt "FUNKTIONSBAUSTEIN"
Set theFunc = functionCtrl.Add("FUNKTIONSBAUSTEIN")
'Vorbereitung der Ausgabe auf EXCEL-Sheet
Worksheets(1).Select
Cells.Clear
'Deklaration
Dim customers As Object
Dim returnFunc As Boolean
Dim startzeil As Integer
Dim endcol As Integer
Dim the_name As String
startzeil = 1
'Festlegen der Importparameter für Funktionsaufruf
For start_char = Asc("A") To Asc("Z")
the_name = Chr$(start_char) + "*"
theFunc.exports("NAME1") = the_name
theFunc.exports("KUNNR") = "*"
returnFunc = theFunc.Call
die_exception = theFunc.Exception
If returnFunc = True Then
Set customers = theFunc.tables.Item("CUSTOMER_T")
endcol = 0
Call tt(the_name, customers, startzeil, endcol)
startzeil = endcol
Set customers = Nothing
Else
If die_exception = "NO_RECORD_FOUND" Then
Cells(startzeil, 1) = "Keine Werte vorhanden für " + the_name
startzeil = startzeil + 1
Else
MsgBox "Fehler beim Zugriff auf Funktion im R/3 ! "
Exit Sub
End If
End If
Next start_char
'Vebindung zum R/3 beenden !
functionCtrl.Connection.logoff
'Objekte und damit Speicherplatz freigeben
Set sapConnection = Nothing
Set functionCtrl = Nothing
MsgBox "Programm beendet!", 16, "Beenden"
End Sub