SAP ABAP 如何读取EXCEL数据到内表
读取EXCEL数据到内表并输出
调用函数： ALSM_EXCEL_TO_INTERNAL_TABLE
*&---------------------------------*
*& Report ZCMH0009
*&
*&---------------------------------*
*& 读取EXCEL 的数据 到内表
*&
*&---------------------------------*
REPORT ZCMH0009.
INCLUDE OLE2INCL. "定义OLE变量
DATA: BEGIN OF IEXCEL OCCURS 0.
INCLUDE STRUCTURE ALSMEX_TABLINE.
DATA: END OF IEXCEL.
DATA: XLS LIKE RLGRAP-FILENAME VALUE 'C:\sap_usr02.xls'.
CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
EXPORTING
FILENAME = XLS
I_BEGIN_COL = 1
I_BEGIN_ROW = 1
I_END_COL = 100 " 读取多少列
I_END_ROW = 100 "读取多少行
TABLES
INTERN = IEXCEL
EXCEPTIONS
INCONSISTENT_PARAMETERS = 1
UPLOAD_OLE = 2
OTHERS = 3.
"读取后内表保存的结构为：第一行记录第一个单元的行值 列值 单元格内容 比如 0001 0001 第一个单元格内容
WRITE: /.
IF sy-subrc <> 0.
WRITE: / XLS,'读入错误！'.
ELSE.
LOOP AT IEXCEL.
WRITE IEXCEL-VALUE(20). "取前20个字符
AT END OF ROW. "每行行尾输出空行
WRITE : /.
ENDAT.
ENDLOOP.
ENDIF.
