Hallo ABAP-Gemeinde,
bin noch ein ziemliches ABAP- Greenhorn
Ich möchte gerne Daten aus einer Exceltabelle
in eine SAP-Tabelle übernehmen, anscheinend übernehme ich dabei aber mich...
Folgender Versuch schlägt fehl:
REPORT Z_TAB_UPLOAD_ABL.
TABLES: T9LDF.
DATA: DATA_TAB(1024).
DATA: MyFILENAME like RLGRAP-FILENAME
VALUE 'C:\Eigene Dateien\9LDF0707.txt'.
DATA: MyFILETYPE LIKE RLGRAP-FILETYPE VALUE 'DAT'.
* Interne Tabelle für die Datenübernahme
DATA: Begin of WA_T9LDF occurs 10,
MANDT LIKE T9LDF-MANDT,
DFDOM like T9LDF-DFDOM,
DFTXT like T9LDF-DFTXT,
DFTXT_F LIKE T9LDF-DFTXT_F,
KAPLAF LIKE T9LDF-KAPLAF.
DATA: END OF WA_T9LDF.
* Erst einmal alle vorhandenen Einträge
* der T9LDF löschen
LOOP AT T9LDF.
DELETE T9LDF.
ENDLOOP.
START-OF-SELECTION.
CALL FUNCTION 'WS_UPLOAD' IN BACKGROUND TASK
EXPORTING
* CODEPAGE = ' '
FILENAME = MyFILENAME
FILETYPE = MyFILETYPE
* HEADLEN = ' '
* LINE_EXIT = ' '
* TRUNCLEN = ' '
* USER_FORM = ' '
* USER_PROG = ' '
* DAT_D_FORMAT = ' '
* IMPORTING
* FILELENGTH =
TABLES
DATA_TAB = WA_T9LDF.
* EXCEPTIONS
* CONVERSION_ERROR = 1
* FILE_OPEN_ERROR = 2
* FILE_READ_ERROR = 3
* INVALID_TYPE = 4
* NO_BATCH = 5
* UNKNOWN_ERROR = 6
* INVALID_TABLE_WIDTH = 7
* GUI_REFUSE_FILETRANSFER = 8
* CUSTOMER_ERROR = 9
* OTHERS = 10
* Fehlerroutine
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
Loop at wa_t9ldf.
* Interne Tabellenwerte auf dem Screen ausgeben.
Write: / wa_t9ldf-MANDT,
wa_t9ldf-DFDOM,
wa_t9ldf-DFTXT,
wa_t9ldf-DFTXT_F,
wa_t9ldf-KAPLAF.
* Zuweisung und Update
move wa_t9ldf to t9ldf.
insert t9ldf.
endloop.
END-OF-Selection.
___________________________________________
Vielleicht hat ja jemand ein funktionierendes Beispiel oder
einen heissen Tipp für mich armen Mensch.
Viele Grüsse und ein schönes Wochenende
Günther