用OLEDOI实现ABAP导出ECEL表格

OLE导出:sap中abap导出excel的方法很多,ole是其中一种,但其导出速度比较慢,一般只应用于对excel格式有特别要求的场所REPORTYGL_MYOLE.INCLUDEOLE2INCL.*OLEOBJECTDATA:MYEXCELTYPEOLE2_OBJECT,MYSHEETTYPEOLE2_OBJECT,MYCELLTYPEOLE2_OBJECT,MYWORKBOOKTYPEOLE2_OBJECT..................................*创建excel进程CREATEOBJECTMYEXCEL'EXCEL.APPLICATION'.*创建工作表CALLMETHODOFMYEXCEL'WORKBOOKS'=MYWORKBOOK.*创建sheet并添加到工作表SETPROPERTYOFMYEXCEL'SHEETSINNEWWORKBOOK'=1.CALLMETHODOFMYWORKBOOK'ADD'.*选中excel中的cell,第一行的第二列。CALLMETHODOFMYEXCEL'CELLS'=MYCELLEXPORTING#1=1#2=2.*设置被选中的cell的值SETPROTERTYOFMYCELL'VALUE'='HELLOWORD'."你要输出的内容GETPROPERTYOFMYEXCEL'ACTIVESHEET'=MYSHEET.GETPROPERTYOFMYEXCEL'ACTIVEWORKBOOK'=MYWORKBOOK.*保存文件CALLMETHODOFMYWORKBOOK'SAVEAS'EXPORTING#1='C:\TMP\AA.XLS'#2=1.CALLMETHODOFMYWORKBOOK'CLOSE'.*退出excelCALLMETHODOFMYEXCEL'QUIT'.*释放对象FREEOBJECTMYSHEET.FREEOBJECTMYWORKBOOK.FREEOBJECTMYEXCEL.*******************************************************************************实例:TYPE-POOLS:ole2,slis.DEFINEadd_field.wa_field-fieldname=&1.wa_field-reptext_ddic=&2.wa_field-no_zero='X'."去掉0*WA_FIELD_EIDT='X'.appendwa_fieldtoit_field.END-OF-DEFINITION.*定义变量和字段组DATA:g_repidTYPEsy-repid,gs_layoutTYPEslis_layout_alv,wa_fieldTYPEslis_fieldcat_alv,it_fieldTYPEslis_t_fieldcat_alv.********************************************************************************OLEEXCEL变量DATA:excelTYPEole2_object,workbookTYPEole2_object,sheetTYPEole2_object,cellTYPEole2_object.*CELL1TYPEOLE2_OBJECT,*COLUMNTYPEOLE2_OBJECT,*RANGETYPEOLE2_OBJECT,*BORDERSTYPEOLE2_OBJECT,*buttonTYPEOLE2_OBJECT,*intTYPEOLE2_OBJECT,*FONTTYPEOLE2_OBJECT.*ROWTYPEOLE2_OBJECT.*填充单元格FORMfill_cellUSINGijval.*CALLMETHODOFEXCEL'COLUMNS'=COLUMN.*CALLMETHODOFCOLUMN'AUTOFIT'."导出EXCEL自动适应宽度CALLMETHODOFexcel'CELLS'=cellNOFLUSHEXPORTING#1=i#2=j.SETPROPERTYOFcell'VALUE'=valnoflush.FREEOBJECTcellNOFLUSH.*GETPROPERTYOFCELL'FONT'=FONT.*SETPROPERTYOFFONT'BOLD'=BOLD.ENDFORM."FILL_CELL*处理进度条FORMp_processUSINGi_processedLIKEsy-tabixi_totalLIKEsy-tabix.DATA:i_percentTYPEi,i_text2(72)TYPEc,i_timesTYPEi,i_proc(10)TYPEc.i_times=0.i_percent=(i_processed*100)DIVi_total.i_times=(i_percent-STRLEN(i_proc))DIV10.DOi_timesTIMES.CONCATENATEi_proc'■'INTOi_proc.CONDENSEi_proc.ENDDO.IFi_percent>0.WRITEi_percentTOi_text2.CONDENSEi_text2.CONCATENATEi_text2'%'i_procINTOi_text2.ENDIF.CONCATENATE'正在导出EXCEL,目前的进度为'i_text2INTOi_text2SEPARATEDBYspace."合并文本CONDENSEi_text2."缩进文本*启动指示钟CALLFUNCTION'SAPGUI_PROGRESS_INDICATOR'EXPORTING*PERCENTAGE=I_PERCENTtext=i_text2EXCEPTIONSOTHERS=1.ENDFORM."P_PROCESSDOI:推荐用DOI方式导数据到Excel,而不要用OLE,DOI是调用SAP自带的类来操作的,可控性更高,并且可以把Excel窗口当作一个片屏幕控件放入屏幕的容器中。具体请参考:http://help.sap.com/saphelp_nw04/helpdata/en/e9/0be775408e11d1893b0000e8323c4f/frameset.htm实例:DOI功能很强大,可以做到很多功能,而且可以使用VBA扩展新功能,比如可以做出如下图效果:更多的东西请看在线帮助里"TheSpreadsheetInterface"一章,有详细的结构定义和方法说明。运行报表前首先要在事务代码OAOR里面新建一个Excel模板,然后调用DOI的类把这个程序调出来后写入数据。给一个简单的DOI模板,这个模板是单元格一格一格填充的,其实可以一块一起填充。*&---------------------------------------------------------------------**&ReportZ_Rocky_TEST*&*&----------...

1、当您付费下载文档后,您只拥有了使用权限,并不意味着购买了版权,文档只能用于自身使用,不得用于其他商业用途(如 [转卖]进行直接盈利或[编辑后售卖]进行间接盈利)。
2、本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供参考,付费前请自行鉴别。
3、如文档内容存在侵犯商业秘密、侵犯著作权等,请点击“举报”。

常见问题具体如下:

1、问:已经付过费的文档可以多次下载吗?

      答:可以。登陆您已经付过费的账号,付过费的文档可以免费进行多次下载。

2、问:已经付过费的文档不知下载到什么地方去了?

     答:电脑端-浏览器下载列表里可以找到;手机端-文件管理或下载里可以找到。

            如以上两种方式都没有找到,请提供您的交易单号或截图及接收文档的邮箱等有效信息,发送到客服邮箱,客服经核实后,会将您已经付过费的文档即时发到您邮箱。

注:微信交易号是以“420000”开头的28位数字;

       支付宝交易号是以“2024XXXX”交易日期开头的28位数字。

客服邮箱:

biganzikefu@outlook.com

所有的文档都被视为“模板”,用于写作参考,下载前须认真查看,确认无误后再购买;

文档大部份都是可以预览的,笔杆子文库无法对文档的真实性、完整性、准确性以及专业性等问题提供审核和保证,请慎重购买;

文档的总页数、文档格式和文档大小以系统显示为准(内容中显示的页数不一定正确),网站客服只以系统显示的页数、文件格式、文档大小作为依据;

如果您还有什么不清楚的或需要我们协助,可以联系客服邮箱:

biganzikefu@outlook.com

常见问题具体如下:

1、问:已经付过费的文档可以多次下载吗?

      答:可以。登陆您已经付过费的账号,付过费的文档可以免费进行多次下载。

2、问:已经付过费的文档不知下载到什么地方去了?

     答:电脑端-浏览器下载列表里可以找到;手机端-文件管理或下载里可以找到。

            如以上两种方式都没有找到,请提供您的交易单号或截图及接收文档的邮箱等有效信息,发送到客服邮箱,客服经核实后,会将您已经付过费的文档即时发到您邮箱。

注:微信交易号是以“420000”开头的28位数字;

       支付宝交易号是以“2024XXXX”交易日期开头的28位数字。

确认删除?