SAP Daten per RFC Baustein RFC READTABLE in Excel

'SAP Objekte  
Public objConSMD As Object
Public objLogSMD As Object
Public objRrtSMD As Object
Public objFunSMD As Object
 
'RFC_READ_TABLE Objekte  
Public SMDFunc As Object
Public SMDTabObj As Object
Public rtcLogSMD As Integer
Public SMDData() As String

Sub Start()
 
Dim i As Long
Dim k As Long
 
Sheets(1).Select
 
'Sub SAPLogon  
SAPLogon
 
If rtcLogSMD = 1 Then
    'SAPLogon = True  
    SMDRead_Table ("T001")  
 
    For i = 0 To UBound(SMDData, 1)
        For k = 0 To UBound(SMDData, 2)
            Cells(i + 1, UBound(SMDData, 2) - k + 1).Value = SMDData(i, k)
    Next k, i
 
    'Sub SAPLogoff  
    SAPLogoff
End If
 
End Sub

Private Sub SAPLogon()
 
    Dim lv_cell As Range
 
    'Create Logon Control  
    Set objLogSMD = CreateObject("SAP.Logoncontrol.1")  
    'Get Connection Object  
    Set objConSMD = objLogSMD.NewConnection
    'Set Logon Parameters  
    'Set Systen Parameters  
    objConSMD.System = Range("Zugangsdaten!B1").Value2  
    objConSMD.ApplicationServer = Range("Zugangsdaten!B2").Value2  
    objConSMD.SystemNumber = Range("Zugangsdaten!B3").Value2  
    'Set User Data  
    objConSMD.Client = Range("Zugangsdaten!B4").Value2  
    objConSMD.User = Range("Zugangsdaten!B5").Value2  
    'objConSMD.Password = ""  
    objConSMD.Language = Range("Zugangsdaten!B6").Value2  
    'Set SNC Data  
    objConSMD.SNC = True
    objConSMD.SNCName = Range("Zugangsdaten!B7").Value2  
    objConSMD.SNCQuality = 3
 
    'Open SAP Connection  
    If objConSMD.Logon(0, False) = False Then
        MsgBox Range("Zugangsdaten!B1").Value2 + " Verbindungsfehler"  
        rtcLogSMD = 0
    Exit Sub
    End If
 
    rtcLogSMD = 1
    Set objFunSMD = CreateObject("SAP.Functions")  
    'Log on to the R/3 System.  
    Set objFunSMD.Connection = objConSMD
    Set SMDFunc = objFunSMD.Add("RFC_READ_TABLE")  
 
End Sub

Sub SMDRead_Table(Table As String)
 
Dim T() As String
Dim i As Long
Dim k As Long
 
SMDFunc.Exports("DELIMITER") = vbTab  
'SMDFunc.Exports("NO_DATA") = "X"  
SMDFunc.Exports("QUERY_TABLE") = Table  
SMDFunc.Exports("ROWCOUNT") = "500"  
 
'******** Create Table Object ************  
Set SMDTabObj = SMDFunc.Tables("FIELDS")  
SMDTabObj.freetable
 
'SMDTabObj.appendrow  
'SMDTabObj.appendrow  
'SMDTabObj.cell(1, 1) = "CHECKTABLE"  
'SMDTabObj.cell(2, 1) = "KEYFLAG"  
 
'******** Create Table Object ************  
Set SMDTabObj = SMDFunc.Tables("OPTIONS")  
SMDTabObj.freetable
'SMDTabObj.appendrow  
'SMDTabObj.cell(1, 1) = "TABNAME EQ '" & Tab_Nam & "' AND LENG NE 0"  
 
'******** Create Table Object ************  
Set SMDTabObj = SMDFunc.Tables("DATA")  
SMDTabObj.freetable
 
If SMDFunc.Call = True Then
'******** Read Result ************  
T = Split(SMDTabObj.Cell(1, 1), vbTab)
 
ReDim SMDData(SMDTabObj.Rows.Count, UBound(T))
 
k = 0
For Each Element In SMDTabObj.Rows
    T = Split(Element("WA"), vbTab)  
    For i = 0 To UBound(T)
        SMDData(k, UBound(T) - i) = T(i)
    Next i
    k = k + 1
Next Element
 
Else
    MsgBox SMDFunc.Exception
End If
 
'*** ohne Mandant  
ReDim Preserve SMDData(SMDTabObj.Rows.Count, UBound(T) - 1)
 
End Sub