Code: Alles auswählen.
*
CREATE OBJECT H_EXCEL 'EXCEL.APPLICATION'.
IF SY-SUBRC <> 0. WRITE: / 'ERROR'. ENDIF.
*
SET PROPERTY OF H_EXCEL 'Visible' = '1'.
IF SY-SUBRC <> 0. WRITE: / 'ERROR'. ENDIF.
*
CALL METHOD OF H_EXCEL 'Workbooks' = H_MAPL.
IF SY-SUBRC <> 0. WRITE: / 'ERROR'. ENDIF.
CALL METHOD OF H_MAPL 'Add' = H_MAP.
IF SY-SUBRC <> 0. WRITE: / 'ERROR'. ENDIF.
*
CALL METHOD OF H_EXCEL 'Cells' = H_CELL EXPORTING #1 = 1 #2 = 1.
IF SY-SUBRC <> 0. WRITE: / 'ERROR'. ENDIF.
*
SET PROPERTY OF H_CELL 'Value' = 100 .
IF SY-SUBRC <> 0. WRITE: / 'ERROR'. ENDIF.
*
CALL METHOD OF H_EXCEL 'hWnd' = H_HWND.
IF SY-SUBRC <> 0. WRITE: / 'ERROR'. ENDIF.
*
FREE OBJECT H_EXCEL.
FREE OBJECT H_MAPL.
FREE OBJECT H_MAP.
Code: Alles auswählen.
SET PROPERTY OF H_EXCEL 'Visible' = 0.
Code: Alles auswählen.
SET PROPERTY OF H_EXCEL 'Visible' = '1'.