ABAP EXCEL文件导入ABAP内表中详解编程语言

REPORT ZIMPEXCEL .
TYPES: BEGIN OF ty_upload,
         field1(12) TYPE c,
         field2(12) TYPE c,
         field3(12) TYPE c,
       END OF ty_upload.

DATA: it_upload TYPE STANDARD TABLE OF ty_upload,
      wa_upload TYPE ty_upload,
      itab TYPE STANDARD TABLE OF alsmex_tabline WITH DEFAULT KEY.

FIELD-SYMBOLS: <wa_itab> TYPE alsmex_tabline.

CALL FUNCTION ‘ALSM_EXCEL_TO_INTERNAL_TABLE’
  EXPORTING
    FILENAME                      = ‘c:/test.xls’
    I_BEGIN_COL                   = 1
    I_BEGIN_ROW                   = 1
    I_END_COL                     = 3
    I_END_ROW                     = 65535
  TABLES
    INTERN                        = itab
  EXCEPTIONS
    INCONSISTENT_PARAMETERS       = 1
    UPLOAD_OLE                    = 2
    OTHERS                        = 3.
IF SY-SUBRC <> 0.
ENDIF.
SORT itab BY row.
LOOP AT itab ASSIGNING <wa_itab>.
  CASE <wa_itab>-col.
  WHEN ‘0001’.
    wa_upload-field1 = <wa_itab>-value.
  WHEN ‘0002’.
    wa_upload-field2 = <wa_itab>-value.
  WHEN ‘0003’.
    wa_upload-field3 = <wa_itab>-value.
  ENDCASE.
  AT END OF row.
    APPEND wa_upload TO it_upload.
    CLEAR wa_upload.
  ENDAT.
ENDLOOP.