SAP ABAP Excel模板上传及Excel数据批导

事务代码：al11 用来显示SAP目录（显示Excel目录位置）

事物代码：cg3z用来上载文件(上传Excel)

程序例子：

*&---------------------------------------------------------------------*
*& Report  ZRXD05P
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  zrxd05p.

TABLES: kna1,zrmm116,sscrfields,zpos_id_cust.
TYPE-POOLS:slis, truxs.
DATA: BEGIN OF it_display OCCURS 0.
        INCLUDE STRUCTURE zrxd05p.
DATA: END OF it_display.
DATA:zmsg(50) TYPE c,
     ztype(1) TYPE c.

DATA: BEGIN OF wa_input ,
kunnr LIKE kna1-kunnr,
message(50) TYPE c,
END OF wa_input.
DATA: it_input LIKE TABLE OF wa_input WITH HEADER LINE.
DATA: it_zrxd05p LIKE TABLE OF zrxd05p WITH HEADER LINE.
DATA: it_kna1 LIKE TABLE OF kna1 WITH HEADER LINE.
DATA: i_input LIKE TABLE OF zrxd05p WITH HEADER LINE.
DATA: i_zship1 LIKE TABLE OF zship1 WITH HEADER LINE.
DATA: xlstab TYPE truxs_t_text_data,
      filename TYPE string ,
      lf_rc    TYPE c,
      f_size TYPE i.
DATA: n TYPE i.
*ALV
DATA: gwa_field TYPE slis_fieldcat_alv.
DATA: git_field LIKE TABLE OF gwa_field.
DATA: gwa_layout TYPE slis_layout_alv.
DATA: gd_repid TYPE sy-repid.
DATA: lit_sort TYPE slis_t_sortinfo_alv.
DATA: lwa_sort TYPE slis_sortinfo_alv,
      gc_grid_title(50) TYPE c .

SELECTION-SCREEN: FUNCTION KEY 1.

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE t1.
PARAMETERS: p_file TYPE char128 .
SELECTION-SCREEN END OF BLOCK b1.

SELECTION-SCREEN BEGIN OF BLOCK rdg1 WITH FRAME TITLE s2.
PARAMETERS znew RADIOBUTTON GROUP rg1.
PARAMETERS zdel RADIOBUTTON GROUP rg1.
SELECTION-SCREEN END OF BLOCK rdg1.

INITIALIZATION.
  t1 = '选择模板文件'.
  s2 = '选择操作类型：'.
  %_p_file_%_app_%-text  = 'Excel文件(含表头)'.
  sscrfields-functxt_01 = '下载模板'.

AT SELECTION-SCREEN.
  IF sy-ucomm = 'FC01'.
    PERFORM frm_down.
  ENDIF.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
  PERFORM get_pc_filename.

START-OF-SELECTION.
  PERFORM upload_file.
  IF LINES( it_input ) = 0.
    MESSAGE s000(oo) WITH '文件为空，请重新上传。' DISPLAY LIKE 'E'.
    STOP.
  ELSE.
    PERFORM input_data.

  ENDIF.

*&---------------------------------------------------------------------*
*&      Form  GET_PC_FILENAME
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM get_pc_filename .
  CALL FUNCTION 'WS_FILENAME_GET'
    EXPORTING
      mask             = ',Excel文件(*.XLS;*.XLSX),*.XLS;*.XLSX,所有文件(*.*),*.*.'
      mode             = 'O'
    IMPORTING
      filename         = p_file
      rc               = lf_rc
    EXCEPTIONS