Using OLE to Add Data

Using OLE to Add Data
以要将KNA1(Customer General Data)中的资料存入EXCEL的存格(CELL)为例:
FORM FILL_SHEET.
DATA: ROW_MAX TYPE I VALUE 256,
ROWS TYPE I VALUE 1.
INDEX TYPE I.
FIELD-SYMBOLS: <NAME>.
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.