REPORT RSDEMO01 NO STANDARD PAGE HEADING.

* this report demonstrates how to send some ABAP data to an

* EXCEL sheet using OLE automation.

INCLUDE OLE2INCL.

* handles for OLE objects

DATA: H_EXCEL TYPE OLE2_OBJECT,        " Excel object

      H_MAPL TYPE OLE2_OBJECT,         " list of workbooks

      H_MAP TYPE OLE2_OBJECT,          " workbook

      H_ZL TYPE OLE2_OBJECT,           " cell

      H_F TYPE OLE2_OBJECT.            " font

TABLES: SPFLI.

DATA  H TYPE I.

* table of flights

DATA: IT_SPFLI LIKE SPFLI OCCURS 10 WITH HEADER LINE.

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

*&   Event START-OF-SELECTION

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

START-OF-SELECTION.

* read flights

  SELECT * FROM SPFLI INTO TABLE IT_SPFLI UP TO 10 ROWS.

* display header

  ULINE (61).

  WRITE: /     SY-VLINE NO-GAP,

          (3)  'Flg'(001) COLOR COL_HEADING NO-GAP, SY-VLINE NO-GAP,

          (4)  'Nr'(002) COLOR COL_HEADING NO-GAP, SY-VLINE NO-GAP,

          (20) 'Von'(003) COLOR COL_HEADING NO-GAP, SY-VLINE NO-GAP,

          (20) 'Nach'(004) COLOR COL_HEADING NO-GAP, SY-VLINE NO-GAP,

          (8)  'Zeit'(005) COLOR COL_HEADING NO-GAP, SY-VLINE NO-GAP.

  ULINE (61).

* display flights

  LOOP AT IT_SPFLI.

  WRITE: / SY-VLINE NO-GAP,

           IT_SPFLI-CARRID COLOR COL_KEY NO-GAP, SY-VLINE NO-GAP,

           IT_SPFLI-CONNID COLOR COL_NORMAL NO-GAP, SY-VLINE NO-GAP,

           IT_SPFLI-CITYFROM COLOR COL_NORMAL NO-GAP, SY-VLINE NO-GAP,

           IT_SPFLI-CITYTO COLOR COL_NORMAL NO-GAP, SY-VLINE NO-GAP,

           IT_SPFLI-DEPTIME COLOR COL_NORMAL NO-GAP, SY-VLINE NO-GAP.

  ENDLOOP.

  ULINE (61).

* tell user what is going on

  CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'

     EXPORTING

*           PERCENTAGE = 0

           TEXT       = TEXT-007

       EXCEPTIONS

            OTHERS     = 1.

* start Excel

  CREATE OBJECT H_EXCEL 'EXCEL.APPLICATION'.

  PERFORM ERR_HDL.

  SET PROPERTY OF H_EXCEL  'Visible' = 1.

  PERFORM ERR_HDL.

* tell user what is going on

  CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'

     EXPORTING

*           PERCENTAGE = 0

           TEXT       = TEXT-008

       EXCEPTIONS

            OTHERS     = 1.

* get list of workbooks, initially empty

  CALL METHOD OF H_EXCEL 'Workbooks' = H_MAPL.

  PERFORM ERR_HDL.

* add a new workbook

  CALL METHOD OF H_MAPL 'Add' = H_MAP.

  PERFORM ERR_HDL.

* tell user what is going on

  CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'

     EXPORTING

*           PERCENTAGE = 0

           TEXT       = TEXT-009

       EXCEPTIONS

            OTHERS     = 1.

* output column headings to active Excel sheet

  PERFORM FILL_CELL USING 1 1 1 'Flug'(001).

  PERFORM FILL_CELL USING 1 2 1 'Nr'(002).

  PERFORM FILL_CELL USING 1 3 1 'Von'(003).

  PERFORM FILL_CELL USING 1 4 1 'Nach'(004).

  PERFORM FILL_CELL USING 1 5 1 'Zeit'(005).

  LOOP AT IT_SPFLI.

* copy flights to active EXCEL sheet

    H = SY-TABIX + 1.

    PERFORM FILL_CELL USING H 1 0 IT_SPFLI-CARRID.

    PERFORM FILL_CELL USING H 2 0 IT_SPFLI-CONNID.

    PERFORM FILL_CELL USING H 3 0 IT_SPFLI-CITYFROM.

    PERFORM FILL_CELL USING H 4 0 IT_SPFLI-CITYTO.

    PERFORM FILL_CELL USING H 5 0 IT_SPFLI-DEPTIME.

  ENDLOOP.

* disconnect from Excel

  FREE OBJECT H_EXCEL.

  PERFORM ERR_HDL.

*---------------------------------------------------------------------*

*       FORM FILL_CELL                                                *

*---------------------------------------------------------------------*

*       sets cell at coordinates i,j to value val boldtype bold       *

*---------------------------------------------------------------------*

FORM FILL_CELL USING I J BOLD VAL.

  CALL METHOD OF H_EXCEL 'Cells' = H_ZL EXPORTING #1 = I #2 = J.

  PERFORM ERR_HDL.

  SET PROPERTY OF H_ZL 'Value' = VAL .

  PERFORM ERR_HDL.

  GET PROPERTY OF H_ZL 'Font' = H_F.

  PERFORM ERR_HDL.

  SET PROPERTY OF H_F 'Bold' = BOLD .

  PERFORM ERR_HDL.

ENDFORM.

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

*&      Form  ERR_HDL

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

*       outputs OLE error if any                                       *

*----------------------------------------------------------------------*

*  -->  p1        text

*  <--  p2        text

*----------------------------------------------------------------------*

FORM ERR_HDL.

IF SY-SUBRC <> 0.

  WRITE: / 'Fehler bei OLE-Automation:'(010), SY-SUBRC.

  STOP.

ENDIF.

ENDFORM.                    " ERR_HDL