SAP ABAP EXCEL 导入

选择屏幕 输入框

用于属于导入的 EXCEL 文件路径

SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE TEXT-001.
  PARAMETERS p_file TYPE rlgrap-filename MEMORY ID fil MODIF ID ty1.
SELECTION-SCREEN END OF BLOCK blk1.

为输入框添加 F4 搜索帮助

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
  CALL FUNCTION 'WS_FILENAME_GET'
    EXPORTING
      mode             = 'O'
      title            = '导入模板'
    IMPORTING
      filename         = p_file
    EXCEPTIONS
      inv_winsys       = 1
      no_batch         = 2
      selection_cancel = 3
      selection_error  = 4
      OTHERS           = 5.

定义全局变量

定义类型ty_cols_rows和工作区gs_cols_rows的目的是便于维护修改读取 EXCEL 的行列数

TYPES: BEGIN OF ty_cols_rows,
         begin_col TYPE i,
         begin_row TYPE i,
         end_col   TYPE i,
         end_row   TYPE i,
       END OF ty_cols_rows.
DATA: gs_cols_rows TYPE ty_cols_rows.

定义导入的子例程

定义变量 lv_index 的目的是为了简洁代码可以使用field-symbols指针给工作区赋值，同时可以使用变量lv_index判断并对某些特殊数据进行处理

例如日期填入时可能包含小数点或其他的什么符号，这在SAP里是不被允许的

还有比如说给物料增加前导零等处理

FORM frm_upload_data USING lv_file LIKE rlgrap-filename
                     `                      ls_cols_rows LIKE gs_cols_rows.

  DATA: excel    TYPE ole2_object,
        lv_index TYPE i.

  DATA: lt_excel LIKE TABLE OF alsmex_tabline,
        ls_excel LIKE alsmex_tabline.

  FIELD-SYMBOLS: <fs>.

  CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
    EXPORTING
     `      filename                = lv_file
     `      i_begin_col             = ls_cols_rows-begin_col
     `      i_begin_row             = ls_cols_rows-begin_row
     `      i_end_col               = ls_cols_rows-end_col
     `      i_end_row               = ls_cols_rows-end_row
    TABLES
      intern                  = lt_excel
    EXCEPTIONS
      inconsistent_parameters = 1
      upload_ole              = 2
      OTHERS                  = 3.
  SET PROPERTY OF excel 'DisplayAlerts' = 0.

  SORT lt_excel BY row col.
  LOOP AT lt_excel INTO ls_excel.
    lv_index = ls_excel-col.

    IF lv_index EQ 5 OR lv_index EQ 6.
      WHILE ls_excel-value CA '.'.
        REPLACE '.' WITH '' INTO ls_excel-value.
        CONDENSE ls_excel-value NO-GAPS.
      ENDWHILE.
    ENDIF.

    ASSIGN COMPONENT lv_index OF STRUCTURE gs_data TO <fs>.
    <fs> = ls_excel-value.

    IF lv_index EQ 1.
      CALL FUNCTION 'CONVERSION_EXIT_MATN1_INPUT'
        EXPORTING
          input  = <fs>
        IMPORTING
          output = <fs>.
    ENDIF.

    AT END OF row.
      APPEND gs_data TO gt_data.
      CLEAR gs_data.
    ENDAT.
  ENDLOOP.
ENDFORM.

执行导入子例程

START-OF-SELECTION. 

gs_cols_rows-begin_col = 1.
 `  gs_cols_rows-begin_row = 2.
    gs_cols_rows-end_col = 12.
    gs_cols_rows-end_row = 9999.

    PERFORM frm_upload_data USING p_file gs_cols_rows.