用OLE DOI 实现ABAP导出EXCEL表格.docVIP

OLE导出： sap中abap 导出excel的方法很多，ole是其中一种，但其导出速度比较慢，一般只应用于对excel格式有特别要求的场所 REPORT YGL_MYOLE. INCLUDE OLE2INCL. * OLE OBJECT DATA: MYEXCEL TYPE OLE2_OBJECT, MYSHEET TYPE OLE2_OBJECT, MYCELL TYPE OLE2_OBJECT, MYWORKBOOK TYPE OLE2_OBJECT. ................................. *创建excel进程 CREATE OBJECT MYEXCEL EXCEL.APPLICATION. * 创建工作表 CALL METHOD OF MYEXCEL WORKBOOKS = MYWORKBOOK. * 创建sheet并添加到工作表 SET PROPERTY OF MYEXCEL SHEETSINNEWWORKBOOK = 1. CALL METHOD OF MYWORKBOOK ADD. * 选中excel中的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. * 退出excel 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_OBJECT, * RANGE TYPE OLE2_OBJECT, * BORDERS TYPE OLE2_OBJECT, * button TYPE OLE2_OBJECT, * int TYPE OLE2_OBJECT, * FONT TYPE OLE2_OBJECT. * ROW TYPE OLE2_OBJECT. * 填充单元格 FORM fill_cell USING i j val. * CALL METHOD OF EXCEL COLUMNS = COLUMN. * CALL METHOD OF COLUMN AUTOFIT. 导出EXCEL自动适应宽度