一个上传EXCEL导入示例

REPORT  ZTEST_UPEXCEL.
 
data: gt_table type TABLE OF SFLIGHT,
      gs_table like line of gt_table.
DATA:lt_excel TYPE TABLE OF ZSTABLINE.
DATA ls_excel LIKE LINE OF lt_excel.
FIELD-SYMBOLS:<fs>.
CONSTANTS: gc_begin_row TYPE i VALUE ,
"Beginning row of excel file
           gc_begin_col TYPE i VALUE ,
           "Beginning column of excel file
           gc_end_row   TYPE i VALUE ,
           "Ending row of excel file
           gc_end_col   TYPE i VALUE .
"Ending column of excel file
 
PARAMETERS: p_file  LIKE rlgrap-filename.  "定义存放上传文件路径名的变量
 
initialization.
 
at selection-screen on  VALUE-REQUEST FOR p_file.   "这个只用在批处理这边
  PERFORM sub_find USING p_file.
 
start-of-selection.
 
  CALL FUNCTION 'ZALSM_EXCEL_TO_INTERNAL_TABLE'
    EXPORTING
      filename                      = p_file
      i_begin_col                   = "gc_begin_row'
      i_begin_row                   = "gc_begin_col
      i_end_col                     = "gc_end_row
      i_end_row                     = "gc_end_col
    TABLES
      intern                        = lt_excel
* EXCEPTIONS
*   INCONSISTENT_PARAMETERS       = 1
*   UPLOAD_OLE                    = 2
*   OTHERS                        = 3
            .
  IF sy-subrc <> .
* Implement suitable error handling here
  ENDIF.
  LOOP AT lt_excel INTO ls_excel.
 
    ASSIGN COMPONENT ls_excel-col OF STRUCTURE gs_table to <fs>.   "把工作区gs_tab中的字段赋给字段符号，而工作区gs_tab中的字段取决于内表中的列ls_excel-col
    CONDENSE ls_excel-value.                  " 去掉空格
    <fs> = ls_excel-value.
    at end of row.                                    "如果是最后一行就把工作区gs_tab存到内表gt_tab中
      "gs_tab-row = ls_excel-row.
      APPEND gs_table TO gt_table.
      CLEAR: gs_table.
 
    ENDAT.
 
  ENDLOOP.
 
  INSERT SFLIGHT FROM TABLE GT_TABLE ACCEPTING DUPLICATE KEYS.
  IF SY-SUBRC = .
    COMMIT WORK.
    MESSAGE '维护成功' type 'S'.
 
  ENDIF.
*&---------------------------------------------------------------------*
*&      Form  SUB_FIND
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_P_FILE  text
*----------------------------------------------------------------------*
FORM SUB_FIND  USING    P_P_FILE.
 
*  DATA: LD_DEFAULT_EXTENSION TYPE STRING VALUE 'CSV'.
  DATA: LT_FILE_TAB          TYPE FILETABLE.
  DATA: LS_FILE_LINE         TYPE FILE_TABLE.
  DATA: LD_RC                TYPE I,
        LW_TITLE  TYPE STRING,
        LW_FILTER TYPE STRING.
 
*   变量赋值
  LW_TITLE  = '选择文件'.
  LW_FILTER = 'Excel文件|*.xl;*.xls;*.xlsx|'.
 
  CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_OPEN_DIALOG
    EXPORTING
      WINDOW_TITLE            = LW_TITLE
      FILE_FILTER             = LW_FILTER
      INITIAL_DIRECTORY       = 'C:\'
    CHANGING
      FILE_TABLE              = LT_FILE_TAB
      RC                      = LD_RC
    EXCEPTIONS
      FILE_OPEN_DIALOG_FAILED = 1
      CNTL_ERROR              = 2
      ERROR_NO_GUI            = 3
      NOT_SUPPORTED_BY_GUI    = 4
      OTHERS                  = 5.
  IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
               WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ELSE.
    CHECK LD_RC = 1.
    READ TABLE LT_FILE_TAB INTO LS_FILE_LINE INDEX 1.
    CHECK SY-SUBRC = 0.
    MOVE LS_FILE_LINE-FILENAME TO p_file.
  ENDIF.
  " F4_FOR_FILES
 
ENDFORM.                    " SUB_FIND