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.