电脑桌面
添加小米粒文库到电脑桌面
安装后可以在桌面快捷访问

用OLEDOI实现ABAP导出EXCEL表格

用OLEDOI实现ABAP导出EXCEL表格_第1页
1/12
用OLEDOI实现ABAP导出EXCEL表格_第2页
2/12
用OLEDOI实现ABAP导出EXCEL表格_第3页
3/12
OLE 导出: sap 中abap 导出ex cel 的方法很多,ole 是其中一种,但其导出速度比较慢,一般只应用于对ex cel 格式有特别要求的场所 REPORT YGL_MYOLE. INCLUDE OLE2INCL. * OLE OBJECT DATA: MYEXCEL TYPE OLE2_OBJECT, MYSHEET TYPE OLE2_OBJECT, MYCELL TYPE OLE2_OBJECT, MYWORKBOOK TYPE OLE2_OBJECT. ................................. *创建ex cel 进程 CREATE OBJECT MYEXCEL 'EXCEL.APPLICATION'. * 创建工作表 CALL METHOD OF MYEXCEL 'WORKBOOKS' = MYWORKBOOK. * 创建sheet 并添加到工作表 SET PROPERTY OF MYEXCEL 'SHEETSINNEWWORKBOOK' = 1. CALL METHOD OF MYWORKBOOK 'ADD'. * 选中ex cel 中的cell,第一行的第二列。 CALL METHOD OF MYEXCEL 'CELLS' = MYCELL EXPORTING #1 = 1 #2 = 2. * 设置被选中的cell 的值 SET PROTERTY OF MYCELL 'VALUE' = 'HELLO WORD'. "你要输出的内容 GET PROPERTY OF MYEXCEL 'ACTIVESHEET' = MYSHEET. GET PROPERTY OF MYEXCEL 'ACTIVEWORKBOOK' = MYWORKBOOK. * 保存文件 CALL METHOD OF MYWORKBOOK 'SAVEAS' EXPORTING #1 = 'C:\TMP\AA.XLS' #2 = 1. CALL METHOD OF MYWORKBOOK 'CLOSE'. * 退出ex cel CALL METHOD OF MYEXCEL 'QUIT'. * 释放对象 FREE OBJECT MYSHEET. FREE OBJECT MYWORKBOOK. FREE OBJECT MYEXCEL. ******************************************************************************* 实例: TYPE -POOLS: ole2, slis. DEFINE add_field. wa_field-fieldname = &1 . wa_field-reptext_ddic = &2 . wa_field-no_zero = 'X' . "去掉0 * WA_FIELD_EIDT = 'X'. append wa_field to it_field. END -OF -DEFINITION . * 定义变量和字段组 DATA : g_repid TYPE sy-repid, gs_layout TYPE slis_layout_alv, wa_field TYPE slis_fieldcat_alv, it_field TYPE slis_t_fieldcat_alv. ******************************************************************************* * OLE EXCEL 变量 DATA : excel TYPE ole2_object, workbook TYPE ole2_object, sheet TYPE ole2_object, cell TYPE ole2_object. * CELL1 TYPE OLE2_OBJECT, * COLUMN TYPE OLE2_OBJ...

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

碎片内容

用OLEDOI实现ABAP导出EXCEL表格

确认删除?
VIP
微信客服
  • 扫码咨询
会员Q群
  • 会员专属群点击这里加入QQ群
客服邮箱
回到顶部