ABAP使用OLE方法总结.docx

ABAP使用OLE方法总结

第一篇：ABAP使用OLE方法总结SAPABAPOLE操作EXCEL小结ABAP直接操作EXCEL实现数据处理。这里是用OLE实现操作EXCEL的。现在还有DOI操作EXCEL等方法。以后用到再做介绍。此处不是直接生成EXCEL文件，而是从服务器已经上传的EXCEL模板中下载模板然后打开修改实现数据保存。也可以直接创建新的EXCEL文件往里面传递数据并设置格式。这里不做介绍。1.采用模板文件实现。上传EXCEL模板T-code：SMW0WebRFC的二进制数据包：MI点击模板数据保存在系统表tl_error=1error_no_gui=2not_supported_by_gui=3OTHERS=4.IFlc_fullpath=“".MESSAGE”不能打开excel“TYPE”E“.ENDIF.IFsy-subrc=0.p_dest=lc_fullpath.*concatenatep_objid”.XLS“intols_objnam.CONDENSEls_objnamNO-GAPS.SELECTSINGLErelidobjidFROMwwwdataINTOCORRESPONDINGFIELDSOFlo_objdataWHEREsrtf2=0ANDrelid=”MI“ANDobjid=p_objid.*检查表wwwdata中是否存在所指定的模板文件IFsy-subrcNE0ORlo_objdata-objidEQspace.“如果不存在，则给出错误提示CONCATENATE”模板文件“ls_objnam”不存在“INTOls_errtxt.MESSAGEls_errtxtTYPE”I“.ENDIF.ls_destination=p_dest.”保存路径*如果存在，调用DOWNLOAD_WEB_OBJECT函数下载模板到路径下CALLFUNCTION”DOWNLOAD_WEB_OBJECT“EXPORTINGkey=lo_objdatadestination=ls_destinationIMPORTINGrc=li_rc.IFli_rcNE0.CONCATENATE”模板文件：“ls_objnam”下载失败“INTOls_errtxt.MESSAGEls_errtxtTYPE”E“.ENDIF.fname=ls_destination.ENDIF.ENDFORM.”fm_excel3.下载完模板后，打开模板文件，填入数据CREATEOBJECTexcel“EXCEL.APPLICATION”.“CreateEXCELOBJECTIFsy-subrcNE0.EXIT.ENDIF.SETPROPERTYOFexcel”Visible“=0.”1/0是否显示EXCELCALLMETHODOFexcel“Workbooks”=workbook.CALLMETHODOFworkbook“Open”EXPORTING#1=fname..“打开上面下载路径下的excel文件CALLMETHODOFexcel”Sheets“=sheetEXPORTING#1=1.CALLMETHODOFsheet”Select“.CALLMETHODOFsheet”ACTIVATE“.“sheet激活SETPROPERTYOFsheet”NAME“=sheetname.“设定sheet名称*此处假设内表itab中已经存在需要写入excel中的数据*并且假如从模板的第7行开始插入数据LOOPATitabINTOwa.tab=wa-tabix+6.*在excel中插入一行PERFORMexcel_row_insertUSINGsheettab1.*填充所插入行的每个单元格的数据PERFORMfill_rangeUSINGtab1wa-t01.PERFORMfill_rangeUSINGtab2wa-t02.PERFORMfill_rangeUSINGtab3wa-t03.PERFORMfill_rangeUSINGtab4wa-t04.PERFORMfill_rangeUSINGtab5wa-t05.PERFORMfill_rangeUSINGtab6wa-t06.ENDLOOP.*设置EXCEL中所插入的数据行边框线格式为黑色有边框bod=tab.CONDENSEbodNO-GAPS.CONCATENATE”A6:F“bodINTObod.PERFORMborderrangeUSINGexcelbod.PERFORMsub_excel_save.”保存excel数据*&-------**&Formsub_excel_save*&-------**text*--------*FORMsub_excel_save.GETPROPERTYO