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

SAP日记——ABAP导出EXCEL的两种方法
一、OLE
ABAP通过OLE的方式导出EXCEL，由于数据时一条一条的生成，速度较慢，不适合内表数据较多的场景使用，但是其实现起来比较简单。
REPORTZTEST1.TABLES:ZWYM.“自定义的一张表TYPE-POOLS:SLIS,ole2.“需要用到OLE2DATA:excelTYPEole2_object,workbookTYPEole2_object,sheetTYPEole2_object,cellTYPEole2_object.DATA:applicationTYPEole2_object,bookTYPEole2_object,booksTYPEole2_object.DATA:ole_bookTYPEole2_object.DATA:FILENAME(100)TYPECVALUE'D:\data\test.xls'.“定义文件导出的路径"DATA:GT_ITABLIKETABLEOFZWYMWITHHEADERLINE.DATA:BEGINOFGT_ITABOCCURS0,“定义内表INCLUDESTRUCTUREZWYM.ENDOFGT_ITAB.SELECTION-SCREEN:BEGINOFBLOCKB1WITHFRAMETITLETEXT-001.“查询条件SELECT-OPTIONS:S_MATNRFORZWYM-MATNR.SELECTION-SCREEN:ENDOFBLOCKB1.START-OF-SELECTION.PERFORMGET_DATA.END-OF-SELECTION.PERFORMgen_excel.

FORMGET_DATA.SELECT*INTOCORRESPONDINGFIELDSOFTABLEGT_ITABFROMZWYMWHEREMATNRINS_MATNR.ENDFORM.“GET_DATA.

FORMgen_excel.CREATEOBJECTexcel'EXCEL.APPLICATION'.IFsy-subrcNE0.MESSAGE'不能生成EXCEL对象,检查系统是否安装MSEXCEL。'TYPE'E'.STOP.
ENDIF.SETPROPERTYOFexcel'DisplayAlerts'=0.CALLMETHODOFexcel'WORKBOOKS'=workbook.*PutExcelinbackground
SETPROPERTYOFexcel'VISIBLE'=1.*CreateworksheetSETPROPERTYOFexcel'SheetsInNewWorkbook'=1.CALLMETHODOFworkbook'ADD'.PERFORMgen_item.“此处调用formgen_item显示EXCEL明细GETPROPERTYOFexcel'ActiveSheet'=sheet.FREEOBJECTsheet.FREEOBJECTworkbook.GETPROPERTYOFexcel'ActiveWorkbook'=workbook.CALLMETHODOFworkbook'SAVEAS'EXPORTING#1=filename“保存路径#2=1.FREEOBJECTsheet.FREEOBJECTworkbook.FREEOBJECTexcel.ENDFORM."gen_excel

FORMgen_item.CALLMETHODOFexcel'WORKSHEETS'=sheet.CALLMETHODOFsheet'ADD'.FREEOBJECTsheet.CALLMETHODOFexcel'WORKSHEETS'=sheetEXPORTING#1=1.CALLMETHODOFsheet'ACTIVATE'.SETPROPERTYOFsheet'NAME'='btdata'.“导出的EXCEL表单名FREEOBJECTsheet."OKDEFINEc_cell.callmethodofexcel'CELLS'=cell“定义在excel的位置1为行2为列EXPORTING#1=&1#2=&2.END-OF-DEFINITION.DEFINEs_cell.setpropertyofcell&1=&2.“填充值1为VALUE2为填充内容END-OF-DEFINITION.*写标题行c_cell11.s_cell'VALUE''物料号'.c_cell12.s_cell'VALUE''工厂'.c_cell13.s_cell'VALUE''网格值'.c_cell14.s_cell'VALUE''产品名称'.c_cell15.s_cell'VALUE''颜色'.c_cell16.s_cell'V