![8e2caee381e6c83589d55cdcfdc43c06.png](https://img-blog.csdnimg.cn/img_convert/8e2caee381e6c83589d55cdcfdc43c06.png)
ABAP中读取EXCEL中不同的SHEET数据 SAP提供了标准的读取EXCEL的函数(ALSM_EXCEL_TO_INTERNAL_TABLE),但是此标准函数无法满足对同一EXCEL进行不同SHEET的数据读取,一下方法就是教你如何通过修改程序来实现ALSM_EXCEL_TO_INTERNAL_TABLE读取多个SHEET; 一、拷贝ALSM_EXCEL_TO_INTERNAL_TABLE函数,拷贝时函数组选择自定义函数组 二、将ALSM_EXCEL_TO_INTERNAL_TABLE函数中的LALSMEXTOP中的数据拷贝都你自定义函数的TOP中; 三、将函数ALSM_EXCEL_TO_INTERNAL_TABLE中的 INCLUDE LALSMEXUXX.INCLUDE LALSMEXF01.引用到你自定义的函数中; 四、将ALSM_EXCEL_TO_INTERNAL_TABLE中的代码修改如下: function ZALSM_EXCEL_TO_INTERNAL_TABLE . *"---------------------------------------------------------------------- *"*"Local interface: *" IMPORTING *" VALUE(FILENAME) LIKE RLGRAP-FILENAME *" VALUE(I_BEGIN_COL) TYPE I *" VALUE(I_BEGIN_ROW) TYPE I *" VALUE(I_END_COL) TYPE I *" VALUE(I_END_ROW) TYPE I *" VALUE(SHEET_NAME) LIKE ALSMEX_TABLINE-VALUE OPTIONAL *" TABLES *" INTERN STRUCTURE ALSMEX_TABLINE *" EXCEPTIONS *" INCONSISTENT_PARAMETERS *" UPLOAD_OLE *"---------------------------------------------------------------------- data: EXCEL_TAB type TY_T_SENDER. data: LD_SEPARATOR type C. data: APPLICATION type OLE2_OBJECT, WORKBOOK type OLE2_OBJECT, RANGE type OLE2_OBJECT, WORKSHEET type OLE2_OBJECT. data: H_CELL type OLE2_OBJECT, H_CELL1 type OLE2_OBJECT. data: LD_RC type I. * Rückgabewert der Methode "clipboard_export " * Makro für Fehlerbehandlung der Methods define M_MESSAGE. CASE SY-SUBRC. WHEN 0. WHEN 1. MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO WITH SY-MSGV1 SY-MSGV2 SY-MSGV3