SAP日记ABAP导出EXCEL的两种方式(OLE,DOI).docxVIP

SAP日记——ABAP导出EXCEL的两种方法 一、OLE ABAP通过OLE的方式导出EXCEL，由于数据时一条一条的生成，速度较慢， 不适合内表数据较多的场景使用， 但是其实现起来比较简单。 REPORT??ZTEST1.TABLES:?ZWYM. “自定义的一张表TYPE-POOLS:SLIS,ole2. “需要用到OLE2DATA:?excel?????TYPE?ole2_object,??????workbook??TYPE?ole2_object,??????sheet?????TYPE?ole2_object,??????cell??????TYPE?ole2_object.DATA:?application?TYPE?ole2_object,??????book????????TYPE?ole2_object,??????books???????TYPE?ole2_object.DATA:?ole_book????TYPE?ole2_object.DATA:?FILENAME(100)??TYPE?C?VALUE?D:\data\test.xls. “ 定义文件导出的路径DATA:?GT_ITAB?LIKE?TABLE?OF?ZWYM?WITH?HEADER?LINE.DATA:BEGIN?OF?GT_ITAB?OCCURS?0, “定义内表??INCLUDE?STRUCTURE?ZWYM.?????END?OF?GT_ITAB.SELECTION-SCREEN:BEGIN?OF?BLOCK?B1?WITH?FRAME?TITLE?TEXT-001. “查询条件??SELECT-OPTIONS:S_MATNR?FOR?ZWYM-MATNR.SELECTION-SCREEN:END?OF?BLOCK?B1.START-OF-SELECTION.??PERFORM?GET_DATA.END-OF-SELECTION.?PERFORM?gen_excel. FORM?GET_DATA. ??SELECT?*?INTO?CORRESPONDING?FIELDS?OF?TABLE?GT_ITAB?FROM?ZWYM?WHERE?MATNR?IN?S_MATNR.ENDFORM. “GET_DATA. FORM?gen_excel.??CREATE?OBJECT?excel?EXCEL.APPLICATION.?IF?sy-subrc?NE?0?.????MESSAGE?不能生成EXCEL对象,检查系统是否安装?MS?EXCEL。?TYPE?E.????STOP. ?ENDIF.??SET?PROPERTY?OF?excel?DisplayAlerts?=?0.??CALL?METHOD?OF?excel?WORKBOOKS?=?workbook?.*??Put?Excel?in?background ??SET?PROPERTY?OF?excel?VISIBLE?=?1.*??Create?worksheet??SET?PROPERTY?OF?excel?SheetsInNewWorkbook?=?1.??CALL?METHOD?OF?workbook?ADD.??PERFORM?gen_item. “此处调用form gen_item 显示EXCEL明细??GET?PROPERTY?OF?excel?ActiveSheet?=?sheet.??FREE?OBJECT?sheet.??FREE?OBJECT?workbook.??GET?PROPERTY?OF?excel?ActiveWorkbook?=?workbook.??CALL?METHOD?OF?workbook?SAVEAS????EXPORTING????#1?=?filename “保存路径????#2?=?1.??FREE?OBJECT?sheet.??FREE?OBJECT?workbook.??FREE?OBJECT?excel.ENDFORM.????????????????????gen_excel FORM?gen_item.??CALL?METHOD?OF?excel?WORKSHEETS?=?sheet.??CALL?METHOD?OF?sheet?ADD.??FREE?OBJECT?sheet.??CALL?METHOD?OF?excel?WORKSHEETS?=?sheet????EXPORTING????#1?=?1.??CALL?METHOD?OF?s