*& Report ZEXLUPLOAD *

*& *

*&---------------------------------------------------------------------*

*& Sreeni Meka *

*& Dated 07/30/98. *

*&---------------------------------------------------------------------*

*& Create a file

REPORT ZEXLUPLOAD .

INCLUDE OLE2INCL.

DATA FILENAME(20) VALUE 'c:\temp\test.xls'.

DATA: EXCEL TYPE OLE2_OBJECT.

DATA: BOOKS TYPE OLE2_OBJECT.

DATA: CELL TYPE OLE2_OBJECT.

DATA: ROW TYPE I, COLUMN TYPE I.

FIELD-SYMBOLS: <F>.

DATA: BEGIN OF ITAB OCCURS 10,

FIELD1(5),

FIELD2(5),

FIELD3(5),

FIELD4(5),

FIELD5(5),

FIELD6(5),

FIELD7(5),

END OF ITAB.

DATA: VALUE(20).

CREATE OBJECT EXCEL 'EXCEL.APPLICATION'.

CALL METHOD OF EXCEL 'WORKBOOKS' = BOOKS.

CALL METHOD OF BOOKS 'OPEN' EXPORTING #1 = FILENAME

#2 = 1.

DO 9 TIMES.

ROW = SY-INDEX.

DO 9 TIMES.

COLUMN = SY-INDEX.

CALL METHOD OF EXCEL 'CELLS' = CELL EXPORTING #1 = ROW

#2 = COLUMN.

ASSIGN COMPONENT COLUMN OF STRUCTURE ITAB TO <F>.

GET PROPERTY OF CELL 'VALUE' = VALUE.

MOVE VALUE TO <F>.

ENDDO.

APPEND ITAB.

ENDDO.

CALL METHOD OF EXCEL 'QUIT'.

FREE OBJECT CELL.

FREE OBJECT EXCEL.

FREE OBJECT BOOKS.

*LOOP THE INTERNAL TABLE.

LOOP AT ITAB.

WRITE:/ ITAB-FIELD1, ITAB-FIELD2, ITAB-FIELD3, ITAB-FIELD4, ITAB-FIELD5,

ITAB-FIELD6, ITAB-FIELD7.

ENDLOOP.