ABAP批导程序

*&---------------------------------------------------------------------*
*& Report  ZUPLOAD_TEST
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT  zupload_test.
*----------------------------------------------------------------------*
* 类型池声明
*----------------------------------------------------------------------*
TYPE-POOLS: slis,
            ole2,
            vrm,
            icon.
*----------------------------------------------------------------------*
* 数据库表声明
*----------------------------------------------------------------------*
TABLES: sscrfields.                 " 选择屏幕上的字段
DATA: l_filetab TYPE filetable,
      l_rc      TYPE i.
DATA: gt_tab TYPE TABLE OF makt WITH HEADER LINE.
DATA: BEGIN OF i_excel OCCURS 0.
        INCLUDE STRUCTURE alsmex_tabline.
DATA: END OF i_excel.
DATA: l_answer(1) TYPE c.
DATA: l_column TYPE i.
FIELD-SYMBOLS: <fs>.
DATA: l_pathname LIKE rlgrap-filename.
DATA: gv_ucomm TYPE sy-ucomm.
CONSTANTS:
  c_begin_row TYPE i VALUE 1,       "Beginning row of excel file
  c_begin_col TYPE i VALUE 1,       "Beginning column of excel file
  c_end_row   TYPE i VALUE 9999,    "Ending row of excel file
  c_end_col   TYPE i VALUE 55.      "Ending column of excel file

DATA: gt_fieldcat TYPE STANDARD TABLE OF lvc_s_fcat.  " 字段目录的内表
DATA: ls_fieldcat TYPE lvc_s_fcat.                   " 字段目录的工作区
DATA: gs_layout TYPE lvc_s_layo.                       " ALV布局

DATA: c_path TYPE char128 .

*----------------------------------------------------------------------*
* 宏定义
*----------------------------------------------------------------------*
DEFINE fillfiedcat.

  ls_fieldcat-fieldname     = &1.    " ALV 控制: 内部表字段的字段名称
  ls_fieldcat-scrtext_l     = &2.    " 长字段标签
  ls_fieldcat-no_zero       = &3.    " 无前导零
  ls_fieldcat-outputlen     = &4.    " 输出长度
  append ls_fieldcat to gt_fieldcat.
  clear ls_fieldcat.

END-OF-DEFINITION.

*&---------------------------------------------------------------------*
*& Selection Screen/选择屏幕
*&---------------------------------------------------------------------*
SELECTION-SCREEN BEGIN OF BLOCK bl01 WITH FRAME TITLE text-000.
PARAMETERS: p_fname  LIKE rlgrap-filename MEMORY ID m01.      " 获取文件路径
SELECTION-SCREEN END OF BLOCK bl01.
SELECTION-SCREEN: FUNCTION KEY 1.
*&---------------------------------------------------------------------*
*& INITIALIZATION/选择屏幕前初始化
*&---------------------------------------------------------------------*
INITIALIZATION.
  "初始化屏幕
  P