*&excel文件数据上传内表,用ALV展示
*&---------------------------------------------------------------------*
REPORT Y0820_EXCELINPUT MESSAGE-ID Y_INFO_TEXT .
TYPE -POOLS : RLGRAP .
***********************定义数据模块*****************************************
DATA : BEGIN OF LINE ,
NAME TYPE C LENGTH 10 ,
MATNR TYPE C LENGTH 18 ,
ERSDA TYPE D ,
ERNAM TYPE C LENGTH 12 ,
LAEDA TYPE D ,
END OF LINE .
DATA : ITAB_WA LIKE LINE . "与 YEXCEL_TEST数据库表 结构一致
DATA : ITAB LIKE TABLE OF LINE .
DATA CELL_VALUE LIKE TABLE OF ALSMEX_TABLINE . "具有 Excel 数据的表行
DATA CELL_WA LIKE ALSMEX_TABLINE .
***********************屏幕*************************************************
PARAMETERS : EXCEL_IN
*&---------------------------------------------------------------------*
REPORT Y0820_EXCELINPUT MESSAGE-ID Y_INFO_TEXT .
TYPE -POOLS : RLGRAP .
***********************定义数据模块*****************************************
DATA : BEGIN OF LINE ,
NAME TYPE C LENGTH 10 ,
MATNR TYPE C LENGTH 18 ,
ERSDA TYPE D ,
ERNAM TYPE C LENGTH 12 ,
LAEDA TYPE D ,
END OF LINE .
DATA : ITAB_WA LIKE LINE . "与 YEXCEL_TEST数据库表 结构一致
DATA : ITAB LIKE TABLE OF LINE .
DATA CELL_VALUE LIKE TABLE OF ALSMEX_TABLINE . "具有 Excel 数据的表行
DATA CELL_WA LIKE ALSMEX_TABLINE .
***********************屏幕*************************************************
PARAMETERS : EXCEL_IN