ole 操作，原来是对excel的操作

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.