Hallo zusammen,
ich habe folgendes Problem: Ich verbinde mich per Objekt SAP.Functions zu einem SAP System und rufe dort das BAPI RFC_READ_TABLE auf um eine Tabelle aus dem SAP System zu lesen. Das funktioniert soweit ganz gut. Wenn ich das BAPI im SAP System direkt aufrufe, werden mir bspw. Uhrzeiten korrekt ausgegeben, also bspw. 000918 für 00:09:18 Uhr. Genauso (also mit den führenden Nullen) müssten die Daten auch an Excel übergeben werden. Excel macht aus meinem Beispiel 918, also schneidet die Nullen weg.
Hier das Coding dazu:
' Import nach Excel
If T_E_Data.rowcount > 0 And ret = True Then
For i = 1 To T_E_Data.rowcount
strDataRow = T_E_Data(i, 1)
DataRow = Split(strDataRow, "|")
' Spaltenüberschriften...
If Col = False Then
For x = 0 To UBound(DataRow)
Sheets("Data").Cells(1, x + 1).Value = T_I_Fields(x + 1, 1)
Next x
Col = True
End If
' Importierte Daten in Zeilen schreiben
For x = 0 To UBound(DataRow)
Sheets("Data").Cells(i + 1, x + 1).Value = (DataRow(x)
Next x
Next i
Else
Application.ScreenUpdating = True
Application.DisplayAlerts = True
MsgBox "No data has been imported!"
Sheets("Data").Delete
Exit Sub
End If
Hat jemand eine Idee, wie ich die Daten im ersten Schritt am besten unkonvertiert in die Zellen schreiben kann? Um die Formatierung etc. würde ich mich dann im weiteren Ablauf kümmern.
Gruß
|