ABAP中读取EXCEL中不同的SHEET数据

 

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 SY-MSGV4.       WHEN OTHERS. RAISE UPLOAD_OLE.     ENDCASE.   end-of-definition. * check parameters   if I_BEGIN_ROW > I_END_ROW. raise INCONSISTENT_PARAMETERS. endif.   i