Global connect, func As Object
Global result As Boolean
Global myfunc As Object
Global data As Object
Global fields As Object
 
Private Sub anmelden()
  Set func = CreateObject("SAP.Functions")
  Set connect = func.Connection
  If func.Connection.logon <> True Then
    func.RemoveAll
    MsgBox prompt:="Anmeldung fehlgeschlagen! Bitte verständigen Sie den _
      Administrator (Datei wdtfuncs.ocx registriert?)!"
    Exit Sub
  End If
End sub

Public Sub daten_lesen()
  call anmelden
  On Error GoTo errhandler
  Set myfunc = func.Add("RFC_READ_TABLE")
  myfunc.exports("QUERY_TABLE") = "T003"
  myfunc.exports("DELIMITER") = ","
  result = myfunc.Call
  Set fields = myfunc.tables.Item("FIELDS")
  Set data = myfunc.tables.Item("DATA")
  GoTo ende
errhandler:
  msgbox prompt:="Bei der Verarbeitung ist ein Fehler aufgetreten!"
ende:
  call create_table
End Sub

Public mytab As ADODB.Recordset
  Dim fnameAs String
  Dim flangAs Integer
  Dim ftypeAs String
  Dim sa As Long
  Dim cc As Long
  Public Sub create_table()
  Set mytab = New ADODB.Recordset
  For sa = 1 To fields.RowCount
    fname = fields(sa, 1)
    flang = fields(sa, 3)
    With mytab
      Select Case fields(sa, 4)
        Case "C"
          .fields.Append fname, adChar, flang
        Case "N"
          .fields.Append fname, adNumeric, flang
        Case "D"
          .fields.Append fname, adDate, flang
        Case "P"
          .fields.Append fname, adDouble, flang
      End Select
    End With
  Next sa
  mytab.Open
  For sa = 1 To data.RowCount
    For cc = 0 To (UBound(Split(data(1, 1), ",")))
      With mytab
        .AddNew
        .fields.Item(cc).Value = Split(data(sa, 1), ",")(cc)
        .Update
      End With
    Next cc
  Next sa
 
  Set func = Nothing
  Set connect = Nothing
End Sub

Peter71