OLE手动创建EXCEL

DATA:
excelobj TYPE ole2_object, " Excel object
wbookobj TYPE ole2_object, " Workbook object
wsheetobj TYPE ole2_object, " Worksheet object
rangeobj TYPE ole2_object, " Range object
cellobj TYPE ole2_object, " Cell object
row TYPE ole2_object.

CREATE OBJECT excelobj ‘Excel.Application’. " Create excel object
IF sy-subrc NE 0.
MESSAGE s009.
EXIT.
ELSE.
SET PROPERTY OF excelobj ‘Visible’ = 1. " Set excel visible
CALL METHOD OF excelobj " Create wbook object
‘Workbooks’ = wbookobj.

CALL METHOD OF wbookobj 'Open' = wbookobj

•  EXPORTING #1 = 'c:\XXXX.xls'.
  EXPORTING #1 = p_file.
  

  CALL METHOD OF wbookobj " Create wsheet object
  ‘Worksheets’ = wsheetobj EXPORTING #1 = c_sheet.
  CALL METHOD OF wsheetobj ‘Activate’.
  ENDIF.
  *创建文本填充EXCEL
  CONCATENATE ‘单位名称：’ butxt INTO butxt.
  PERFORM frm_fill_xls USING 3 1 butxt.
  *释放对象
  FREE OBJECT wsheetobj.
  FREE OBJECT wbookobj.
  FREE OBJECT excelobj.

*指定行列写入值
FORM frm_fill_xls USING value(pr_row) value(pr_col) value(pr_dat).
CALL METHOD OF wsheetobj ‘Cells’ = cellobj
EXPORTING #1 = pr_row #2 = pr_col .
SET PROPERTY OF cellobj ‘value’ = pr_dat .
ENDFORM.