SAP ABAP OLE 操作EXCEL小结教学教材.doc

《SAP ABAP OLE 操作EXCEL小结教学教材.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

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

2、M仅供学习与交流，如有侵权请联系网站删除谢谢8精品好文档，推荐学习交流FORM 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-filena

3、me,         ls_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.  IFlc_ful

5、lpath=''.    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=p_objid.*检查表wwwdata中是

6、否存在所指定的模板文件    IFsy-subrcNE0ORlo_objdata-objidEQspace.“如果不存在，则给出错误提示      CONCATENATE'模板文件'ls_objnam'不存在'INTOls_errtxt.      MESSAGEls_errtxtTYPE仅供学习与交流，如有侵权请联系网站删除谢谢8精品好文档，推荐学习交流'I'.    ENDIF.    ls_destination=p_dest.”保存路径*如果存在，调用DOWNLOAD_WEB_OBJECT函数下载模板到路径下    CALLFUNCTION'DOWNLOAD_WEB_OBJEC

7、T'      EXPORTING        key        =lo_objdata        destination=ls_destination      IMPORTING        rc         =li_rc.    IFli_rcNE0.      CONCATENATE'模板文件：'ls_objnam'下载失败'INTOls_errtxt.      MESSAGEls_errtxtTYPE'E'.