Passing Excel data to Internal Table
*&---------------------------------------------------------------------*
*& Report ZVB_UPLOAD
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT zvb_upload.
TABLES:vbak.
TYPES:BEGIN OF ty_file,
vbeln TYPE vbak-vbeln,
auart TYPE vbak-auart,
END OF ty_file.
DATA:it_file TYPE TABLE OF ty_file,
iw_file TYPE ty_file.
DATA:lv_file TYPE rlgrap-filename,
it_raw TYPE truxs_t_text_data.
PARAMETERS:p_file TYPE ibipparms-path.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
CALL FUNCTION 'F4_FILENAME'
EXPORTING
program_name = syst-cprog
dynpro_number = syst-dynnr
field_name = ' '
IMPORTING
file_name = p_file.
START-OF-SELECTION.
lv_file = p_file.
CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'
EXPORTING
* I_FIELD_SEPERATOR = '#'
i_line_header = 'X'
i_tab_raw_data = it_raw " WORK TABLE
i_filename = lv_file
TABLES
i_tab_converted_data = it_file[] "ACTUAL DATA
EXCEPTIONS
conversion_failed = 1
OTHERS = 2.
LOOP AT it_file INTO iw_file.
WRITE:/ iw_file-vbeln, iw_file-auart.
ENDLOOP.
INPUT:
OUTPUT:
Comments
Post a Comment