Daten ins Excel (neuer Spreadsheet)

Code: Alles auswählen.

TYPE-POOLS:
        ole2
      .

DATA:
*     Referenz auf EXCEL.APPLICATION
      lx_excel        TYPE          ole2_object
*     Referenz auf EXCEL.WORKBOOKS
    , lx_workbooks    TYPE          ole2_object
*     Referenz auf EXCEL.WORKBOOK
    , lx_workbook     TYPE          ole2_object
*     Referenz auf EXCEL.WORKSHEETS
    , lx_worksheets   TYPE          ole2_object
*     Referenz auf EXCEL.WORKSHEET
    , lx_worksheet    TYPE          ole2_object
    .

* Excelinstanz erzeugen
CREATE OBJECT lx_excel 'EXCEL.APPLICATION'.

* Workbook holen
CALL METHOD OF lx_excel 'WORKBOOKS' = lx_workbooks.

* Neues Workbook hinzufügen
CALL METHOD OF lx_workbooks 'ADD' = lx_workbook.

* Arbeitsblätter holen
CALL METHOD OF lx_workbook 'WORKSHEETS' = lx_worksheets.

* Neues Arbeitsblatt anlegen
CALL METHOD OF lx_worksheets 'ADD' = lx_worksheet.

* Titel setzen
SET PROPERTY OF lx_worksheet 'NAME' = 'Neuer Name'.

* Excel anzeigen
SET PROPERTY OF lx_excel 'Visible' = 1.

* Objektreferenzen löschen
FREE OBJECT:
              lx_worksheet
            , lx_worksheets
            , lx_workbook
            , lx_workbooks
            , lx_excel
            .