Code: Alles auswählen.
DATA: lo_excel TYPE REF TO zcl_excel,
lo_excel_writer TYPE REF TO zif_excel_writer,
lo_worksheet TYPE REF TO zcl_excel_worksheet,
lo_style_conditional2 TYPE REF TO zcl_excel_style_conditional,
column_dimension TYPE REF TO zcl_excel_worksheet_columndime.
DATA: lt_field_catalog TYPE zexcel_t_fieldcatalog,
ls_table_settings TYPE zexcel_s_table_settings,
ls_iconset TYPE zexcel_conditional_iconset.
DATA: lv_file TYPE xstring,
lv_bytecount TYPE i,
lt_file_tab TYPE solix_tab,
lv_title TYPE zexcel_sheet_title.
" Creates active sheet
CREATE OBJECT lo_excel.
" Get active sheet
lo_worksheet = lo_excel->get_active_worksheet( ).
lo_worksheet->set_title( lv_title ).
"Tabellen Einstellungen:
ls_table_settings-top_left_column = 'A'.
ls_table_settings-top_left_row = '1'.
"ls_table_settings-table_style = zcl_excel_table=>builtinstyle_medium5.
lt_field_catalog = zcl_excel_common=>get_fieldcatalog( ip_table = lt_info001 ).
PERFORM set_display_fieldcatalog.
lo_worksheet->bind_table( ip_table = lt_info001
is_table_settings = ls_table_settings
it_field_catalog = lt_field_catalog ).
CREATE OBJECT lo_excel_writer TYPE zcl_excel_writer_2007.
lv_file = lo_excel_writer->write_file( lo_excel ).
IF cb_app IS NOT INITIAL.
OPEN DATASET lv_default_file_name FOR APPENDING IN BINARY MODE.
ELSE.
OPEN DATASET lv_default_file_name FOR OUTPUT IN BINARY MODE.
ENDIF.
TRANSFER lv_file TO lv_default_file_name.
CLOSE DATASET lv_default_file_name.
Code: Alles auswählen.
data:
lt_data type standard table of ... with default key,
lt_csv type stringtab,
lt_line type stringtab,
ld_csv type string.
field-symbols:
<ld_csv> type string,
<la_data> type any,
<la_line> type string,
<la_field> type any.
loop at lt_data assigning <la_data>.
clear ld_index.
refresh lt_line.
do.
add 1 to ld_index.
assign component ld_index of structure <la_data> to <la_field>.
if sy-subrc ne 0.
exit. "from do.
endif.
append initial line to lt_line assigning <la_line>.
<la_line> = <la_field>. "<-- Hier muss man die Daten evtl. umwandeln.
enddo.
append initial line to lt_csv assigning <ld_csv>.
concatenate lines of lt_line into <ld_csv> separated by ';'.
endloop.
concatenate lines of lt_csv into ld_csv separated by cl_abap_char_utilities=>cr_lf.Folgende Benutzer bedankten sich beim Autor a-dead-trousers für den Beitrag:
Thomas17