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
-
CALL METHOD OF wbookobj " Create wsheet objectEXPORTING #1 = 'c:\XXXX.xls'. EXPORTING #1 = p_file.
‘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.