REPORT EXCEL.
INCLUDE OLE2INCL.
DATA: APPLICATION TYPE OLE2_OBJECT,
WORKBOOK TYPE OLE2_OBJECT,
SHEET TYPE OLE2_OBJECT,
CELLS TYPE OLE2_OBJECT.
DATA: ROW_MAX TYPE I VALUE 256,
ROWS TYPE I VALUE 1.
INDEX TYPE I.
FIELD-SYMBOLS: <NAME>.
CREATE OBJECT APPLICATION ‘Excel.application’.
SET PROPERTY OF APPLICATION ‘Visible’ = 1.
* 宣告一EXCEL 工作底槁档(WORKBOOK)
CALL METHOD OF APPLICATION ‘Workbooks’ = WORKBOOK.
s
* 增加一新的工作表(SHEET),编号是 1 号
CALL METHOD OF WORKBOOK ‘Add’.
CALL METHOD OF APPLICATION ‘Worksheets’ = SHEET
EXPORTING #1 = 1.
* 设定此工作表开启使用
CALL METHOD OF SHEET ‘Activate’.
PERFORM FILL_SHEET.
FREE APPLICATION.
*-------------------------------------------
* FORM FILL_SHEET
*-------------------------------------------
FORM FILL_SHEET.
SELECT * FROM KNA1.
ROWS = ROWS + 1. “至第ROWS 列
INDEX = ROW_MAX * ( ROWS - 1 ) + 1.
DO 10 TIMES. “如要每一列放入10 个存格的数据
ASSIGN COMPONENT SY-INDEX OF STRUCTURE KNA1 TO <NAME>.
CALL METHOD OF SHEET ‘Cells’ = CELLS
EXPORTING #1 = INDEX.
SET PROPERTY OF CELLS ‘Value’ = <NAME>.
ADD 1 TO INDEX.
ENDDO.
ENDSELECT.