Code: Alles auswählen.
SET PROPERTY OF me->ms_ole2_cell 'Value' = <ls_field> NO FLUSH.
Code: Alles auswählen.
PERFORM set_cell_value USING lv_zeile 4 wa_period-kondwert_n lc_no_bold lc_no_underln lc_align_left.
FORM set_cell_value USING p_zeile p_spalte p_wert p_bold p_ul p_align.
CALL METHOD OF o_excel 'Cells' = o_cell
EXPORTING
#1 = p_zeile "Zeile
#2 = p_spalte.
PERFORM check_excel_error.
SET PROPERTY OF o_cell 'Value' = p_wert.
PERFORM check_excel_error.
GET PROPERTY OF o_cell 'Font' = o_font.
PERFORM check_excel_error.
SET PROPERTY OF o_font 'Underline' = p_ul.
PERFORM check_excel_error.
SET PROPERTY OF o_font 'Bold' = p_bold.
PERFORM check_excel_error.
* "
* SET PROPERTY OF o_cell 'HorizontalAlignment' = p_align.
* PERFORM err_handler USING 'HorizontalAlignment'.
FREE OBJECT o_cell.
FREE OBJECT o_font.
Code: Alles auswählen.
FORM set_cell_value USING p_zeile p_spalte p_wert p_bold p_ul p_align.
data: f type f.
CALL METHOD OF o_excel 'Cells' = o_cell
EXPORTING
#1 = p_zeile "Zeile
#2 = p_spalte.
PERFORM check_excel_error.
f = p_wert.
SET PROPERTY OF o_cell 'Value' = f.
PERFORM check_excel_error.
Folgende Benutzer bedankten sich beim Autor black_adept für den Beitrag:
PeterPaletti