Data Interfaces

* Fill line in EXCEL sheet with header lines of table columns
*
PERFORM FILL_CELL USING 2 1 'ID'.
PERFORM FILL_CELL USING 2 2 'Name'.
PERFORM FILL_CELL USING 2 3 'Telephone'.
PERFORM FILL_CELL USING 2 4 'Discount'.
*
* Loop at customr table and print values in EXCEL sheet
*
LOOP AT CUSTOMER.
PERFORM FILL_CELL USING I 1 CUSTOMER-ID.
PERFORM FILL_CELL USING I 2 CUSTOMER-NAME.
PERFORM FILL_CELL USING I 3 CUSTOMER-TELEPHONE.
PERFORM FILL_CELL USING I 4 CUSTOMER-DISCOUNT.
I = I + 1.
ENDLOOP.
*
* Make the EXCEL sheet visible on the desktop
*
SET PROPERTY OF EXCEL 'VISIBLE' = 1.
WRITE: / TEXT-006 .
*
* Now leave the EXCEL application
* Note: You must go to the EXCEL application and respond to
* the dialog box
*
AT LINE-SELECTION.
CALL METHOD OF EXCEL 'QUIT'.
*
* Release all OLE objects
*
FREE OBJECT CELL.
FREE OBJECT EXCEL.
FREE OBJECT BOOKS.
*
* FORM routine which fills the specified cell in the EXCEL sheet
* with the given value
*
FORM FILL_CELL USING I J VAL.
CALL METHOD OF EXCEL 'CELLS' = CELL EXPORTING #1 = I #2 = J.
SET PROPERTY OF CELL 'VALUE' = VAL.
ENDFORM.