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

SAP日记——ABAP导出EXCEL的两种方法一、OLEABAP通过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_excelFORM?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?sheet?ACTIVATE.??SET?PROPERTY?OF?sheet?NAME?=?btdata.“导出的EXCEL表单名??FREE?OBJECT?sheet.???OK??DEFINE?c_cel