sap abap ole 操作excel小结

《sap abap ole 操作excel小结》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、SAPABAPOLE操作EXCEL小结 ABAP直接操作EXCEL实现数据处理。这里是用OLE实现操作EXCEL的。现在还有DOI操作EXCEL等方法。以后用到再做介绍。此处不是直接生成EXCEL文件，而是从服务器已经上传的EXCEL模板中下载模板然后打开修改实现数据保存。也可以直接创建新的EXCEL文件往里面传递数据并设置格式。这里不做介绍。 1.采用模板文件实现。上传EXCEL模板 T-code：SMW0 WebRFC的二进制数据包：MI点击按钮，上传excel模板。模板数据保存在系统表wwwdata中。 2.在程序中下载模板*下载EXCE

2、L模板FORMFORM temp_excel_get. DATA: lo_objdataLIKEwwwdatatab,        lo_mimeLIKEw3mime,        lc_filename TYPEstringVALUE"test01",        lc_fullpath TYPEstring VALUE"D:test",        lc_path     TYPE stringVALUE"D:test",        ls_destinationLIKErlgrap-filename,        ls

3、_objnamTYPEstring,        li_rcLIKEsy-subrc,        ls_errtxtTYPEstring. DATA:p_objidTYPEwwwdatatab-objid,      p_destLIKEsapb-sappfad. p_objid="ZTEST.XLS".“此处为EXCEL模板名称 CALLMETHODcl_gui_frontend_services=>file_save_dialog”调用保存对话框   EXPORTING     default_extension   ="XLS"  

4、   default_file_name   =lc_filename   CHANGING     filename            =lc_filename     path                =lc_path     fullpath            =lc_fullpath   EXCEPTIONS     cntl_error          =1     error_no_gui        =2     not_supported_by_gui=3     OTHERS              =4.

5、 IFlc_fullpath="".   MESSAGE "不能打开excel"TYPE"E". ENDIF. IFsy-subrc=0.   p_dest=lc_fullpath.*   concatenatep_objid".XLS"intols_objnam.   CONDENSEls_objnamNO-GAPS.   SELECTSINGLErelidobjidFROMwwwdataINTOCORRESPONDINGFIELDSOFlo_objdata          WHEREsrtf2=0ANDrelid="MI"ANDobjid

6、=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_OB

7、JECT"     EXPORTING       key        =lo_objdata       destination=ls_destination     IMPORTING       rc         =li_rc.   IFli_rcNE0.     CONCATENATE"模板文件："ls_objnam"下载失败"INTOls_errtxt.     MESSAGEls_errtxtTYPE"E".   ENDIF.   fname=ls_destination. ENDIF.ENDFORM.            

8、       "fm_excel 3.下载完模板后，打开模板文件，填入数据  CREATEOBJECTexcel"EXCEL.APPLICATION"