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