用OLEDOI实现ABAP导出EXCEL表格

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...