From 57c9d8ab4dba7e10707986dd9df7fc5f00a44bd7 Mon Sep 17 00:00:00 2001 From: Domi Bigl Date: Fri, 1 Jul 2022 18:34:10 +0000 Subject: [PATCH 1/2] add freeze of column A --- src/zdemo_excel3.prog.abap | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/zdemo_excel3.prog.abap b/src/zdemo_excel3.prog.abap index 1c4f24e..c6772e7 100644 --- a/src/zdemo_excel3.prog.abap +++ b/src/zdemo_excel3.prog.abap @@ -66,7 +66,7 @@ START-OF-SELECTION. 'Airline;Flight Number;Date;Airfare;Airline Currency;Plane Type;Max. capacity econ.;Occupied econ.;Total;Max. capacity bus.;Occupied bus.;Max. capacity 1st;Occupied 1st'. ENDIF. - lo_worksheet->freeze_panes( ip_num_rows = 3 ). "freeze column headers when scrolling + lo_worksheet->freeze_panes( ip_num_columns = 1 ip_num_rows = 3 ). "freeze column headers when scrolling IF lines( lt_test ) >= 1. ls_error-cell_coords = |B2:B{ lines( lt_test ) + 1 }|. ls_error-number_stored_as_text = abap_true. From 94c7ef81208a0c59d7b30507b1243f0abb69e652 Mon Sep 17 00:00:00 2001 From: Domi Bigl Date: Fri, 1 Jul 2022 18:36:05 +0000 Subject: [PATCH 2/2] add demo report with ZCL_EXCEL_WRITER_HUGE_FILE --- src/zdemo_excel50.prog.abap | 198 ++++++++++++++++++++++++++++++++++++ src/zdemo_excel50.prog.xml | 35 +++++++ 2 files changed, 233 insertions(+) create mode 100644 src/zdemo_excel50.prog.abap create mode 100644 src/zdemo_excel50.prog.xml diff --git a/src/zdemo_excel50.prog.abap b/src/zdemo_excel50.prog.abap new file mode 100644 index 0000000..bf5dbfb --- /dev/null +++ b/src/zdemo_excel50.prog.abap @@ -0,0 +1,198 @@ +*&---------------------------------------------------------------------* +*& Report ZDEMO_EXCEL50 +*& +*&---------------------------------------------------------------------* +*& Like ZDEMO_EXCEL3 but with ZCL_EXCEL_WRITER_HUGE_FILE writer class +*& +*&---------------------------------------------------------------------* + +REPORT zdemo_excel50. + +TYPES: ty_sflight_lines TYPE TABLE OF sflight, + ty_scarr_lines TYPE TABLE OF scarr. + +DATA: lo_excel TYPE REF TO zcl_excel, + lo_worksheet TYPE REF TO zcl_excel_worksheet, + lo_column TYPE REF TO zcl_excel_column. + +DATA: ls_table_settings TYPE zexcel_s_table_settings. + + +DATA: lv_title TYPE zexcel_sheet_title, + lt_carr TYPE ty_scarr_lines, + row TYPE zexcel_cell_row VALUE 2, + ls_error TYPE zcl_excel_worksheet=>mty_s_ignored_errors, + lt_error TYPE zcl_excel_worksheet=>mty_th_ignored_errors, + lo_range TYPE REF TO zcl_excel_range. +DATA: lo_data_validation TYPE REF TO zcl_excel_data_validation. +FIELD-SYMBOLS: LIKE LINE OF lt_carr. + +CONSTANTS: c_airlines TYPE string VALUE 'Airlines'. + + +CONSTANTS: gc_save_file_name TYPE string VALUE '50_iTab.xlsx'. +INCLUDE zdemo_excel_outputopt_incl. + +PARAMETERS: p_empty TYPE flag. +PARAMETERS: p_checkr NO-DISPLAY TYPE abap_bool. + +START-OF-SELECTION. + " Creates active sheet + CREATE OBJECT lo_excel. + + " Get active sheet + lo_worksheet = lo_excel->get_active_worksheet( ). + lo_worksheet->set_title( ip_title = 'Internal table' ). + + DATA lt_test TYPE ty_sflight_lines. + + IF p_empty <> abap_true. + IF p_checkr = abap_true. + PERFORM load_fixed_data_for_checker CHANGING lt_test. + ELSE. + SELECT * FROM sflight INTO TABLE lt_test. "#EC CI_NOWHERE + ENDIF. + ENDIF. + + ls_table_settings-table_style = zcl_excel_table=>builtinstyle_medium2. + ls_table_settings-show_row_stripes = abap_true. + ls_table_settings-nofilters = abap_true. + + lo_worksheet->bind_table( ip_table = lt_test + is_table_settings = ls_table_settings ). + + IF p_checkr = abap_true. + PERFORM set_column_headers USING lo_worksheet + 'Airline;Flight Number;Date;Airfare;Airline Currency;Plane Type;Max. capacity econ.;Occupied econ.;Total;Max. capacity bus.;Occupied bus.;Max. capacity 1st;Occupied 1st'. + ENDIF. + + lo_worksheet->freeze_panes( ip_num_columns = 1 ip_num_rows = 3 ). "freeze column headers when scrolling + IF lines( lt_test ) >= 1. + ls_error-cell_coords = |B2:B{ lines( lt_test ) + 1 }|. + ls_error-number_stored_as_text = abap_true. + INSERT ls_error INTO TABLE lt_error. + lo_worksheet->set_ignored_errors( lt_error ). + ENDIF. + + lo_column = lo_worksheet->get_column( ip_column = 'E' ). "make date field a bit wider + lo_column->set_width( ip_width = 11 ). + " Add another table for data validations + lo_worksheet = lo_excel->add_new_worksheet( ). + lv_title = 'Data Validation'. + lo_worksheet->set_title( lv_title ). + lo_worksheet->set_cell( ip_row = 1 ip_column = 'A' ip_value = c_airlines ). + IF p_checkr = abap_true. + PERFORM load_scarr_data_for_checker CHANGING lt_carr. + ELSE. + SELECT * FROM scarr INTO TABLE lt_carr. "#EC CI_NOWHERE + ENDIF. + LOOP AT lt_carr ASSIGNING . + lo_worksheet->set_cell( ip_row = row ip_column = 'A' ip_value = -carrid ). + row = row + 1. + ENDLOOP. + row = row - 1. + lo_range = lo_excel->add_new_range( ). + lo_range->name = c_airlines. + lo_range->set_value( ip_sheet_name = lv_title + ip_start_column = 'A' + ip_start_row = 2 + ip_stop_column = 'A' + ip_stop_row = row ). + " Set Data Validation + lo_excel->set_active_sheet_index( 1 ). + lo_worksheet = lo_excel->get_active_worksheet( ). + + lo_data_validation = lo_worksheet->add_new_data_validation( ). + lo_data_validation->type = zcl_excel_data_validation=>c_type_list. + lo_data_validation->formula1 = c_airlines. + lo_data_validation->cell_row = 4. + lo_data_validation->cell_column = 'C'. + +*** Create output + lcl_output=>output( cl_excel = lo_excel iv_writerclass_name = 'ZCL_EXCEL_WRITER_HUGE_FILE' ). + + + +FORM load_fixed_data_for_checker CHANGING ct_test TYPE ty_sflight_lines. + DATA: lt_lines TYPE TABLE OF string. + + APPEND 'AA;0017;20171219; 422;USD;747-400 ;385;371;191334;31;28;21;21' TO lt_lines. + APPEND 'AA;0017;20180309; 422;USD;747-400 ;385;365;189984;31;29;21;20' TO lt_lines. + APPEND 'AA;0017;20180528; 422;USD;747-400 ;385;374;193482;31;30;21;20' TO lt_lines. + APPEND 'AA;0017;20180816; 422;USD;747-400 ;385;372;193127;31;30;21;20' TO lt_lines. + APPEND 'AA;0017;20181104; 422;USD;747-400 ;385; 44; 23908;31; 4;21; 3' TO lt_lines. + APPEND 'AA;0017;20190123; 422;USD;747-400 ;385; 40; 20347;31; 3;21; 2' TO lt_lines. + APPEND 'AZ;0555;20171219; 185;EUR;737-800 ;140;133; 32143;12;12;10;10' TO lt_lines. + APPEND 'AZ;0555;20180309; 185;EUR;737-800 ;140;137; 32595;12;12;10;10' TO lt_lines. + APPEND 'AZ;0555;20180528; 185;EUR;737-800 ;140;134; 31899;12;11;10;10' TO lt_lines. + APPEND 'AZ;0555;20180816; 185;EUR;737-800 ;140;128; 29775;12;10;10; 9' TO lt_lines. + APPEND 'AZ;0555;20181104; 185;EUR;737-800 ;140; 0; 0;12; 0;10; 0' TO lt_lines. + APPEND 'AZ;0555;20190123; 185;EUR;737-800 ;140; 23; 5392;12; 1;10; 2' TO lt_lines. + APPEND 'AZ;0789;20171219;1030;EUR;767-200 ;260;250;307176;21;20;11;11' TO lt_lines. + APPEND 'AZ;0789;20180309;1030;EUR;767-200 ;260;252;306054;21;20;11;10' TO lt_lines. + APPEND 'AZ;0789;20180528;1030;EUR;767-200 ;260;252;307063;21;20;11;10' TO lt_lines. + APPEND 'AZ;0789;20180816;1030;EUR;767-200 ;260;249;300739;21;19;11;10' TO lt_lines. + APPEND 'AZ;0789;20181104;1030;EUR;767-200 ;260;104;127647;21; 8;11; 5' TO lt_lines. + APPEND 'AZ;0789;20190123;1030;EUR;767-200 ;260; 18; 22268;21; 1;11; 1' TO lt_lines. + APPEND 'DL;0106;20171217; 611;USD;A380-800;475;458;324379;30;29;20;20' TO lt_lines. + APPEND 'DL;0106;20180307; 611;USD;A380-800;475;458;324330;30;30;20;20' TO lt_lines. + APPEND 'DL;0106;20180526; 611;USD;A380-800;475;459;328149;30;29;20;20' TO lt_lines. + APPEND 'DL;0106;20180814; 611;USD;A380-800;475;462;326805;30;30;20;18' TO lt_lines. + APPEND 'DL;0106;20181102; 611;USD;A380-800;475;167;115554;30;10;20; 6' TO lt_lines. + APPEND 'DL;0106;20190121; 611;USD;A380-800;475; 11; 9073;30; 1;20; 1' TO lt_lines. + + PERFORM load_data USING lt_lines CHANGING ct_test. +ENDFORM. + +FORM load_scarr_data_for_checker CHANGING ct_scarr TYPE ty_scarr_lines. + DATA: lt_lines TYPE TABLE OF string. + + APPEND 'AA;American Airlines;USD;http://www.aa.com ' TO lt_lines. + APPEND 'AZ;Alitalia ;EUR;http://www.alitalia.it ' TO lt_lines. + APPEND 'DL;Delta Airlines ;USD;http://www.delta-air.com' TO lt_lines. + + PERFORM load_data USING lt_lines CHANGING ct_scarr. +ENDFORM. + +FORM load_data USING it_data TYPE table CHANGING ct_data TYPE table. + DATA: lv_line TYPE string, + lt_fields TYPE TABLE OF string, + lv_comp TYPE i, + lv_field TYPE string, + lv_ref_line TYPE REF TO data. + FIELD-SYMBOLS: + TYPE simple, + TYPE any. + + CREATE DATA lv_ref_line LIKE LINE OF ct_data. + ASSIGN lv_ref_line->* TO . + + LOOP AT it_data INTO lv_line. + CLEAR . + SPLIT lv_line AT ';' INTO TABLE lt_fields. + lv_comp = 2. + LOOP AT lt_fields INTO lv_field. + ASSIGN COMPONENT lv_comp OF STRUCTURE TO . + = lv_field. + lv_comp = lv_comp + 1. + ENDLOOP. + APPEND TO ct_data. + ENDLOOP. +ENDFORM. + +FORM set_column_headers + USING io_worksheet TYPE REF TO zcl_excel_worksheet + iv_headers TYPE csequence + RAISING zcx_excel. + + DATA: lt_headers TYPE TABLE OF string, + lv_header TYPE string, + lv_tabix TYPE i. + + SPLIT iv_headers AT ';' INTO TABLE lt_headers. + LOOP AT lt_headers INTO lv_header. + lv_tabix = sy-tabix. + io_worksheet->set_cell( ip_row = 1 ip_column = lv_tabix ip_value = lv_header ). + ENDLOOP. + +ENDFORM. diff --git a/src/zdemo_excel50.prog.xml b/src/zdemo_excel50.prog.xml new file mode 100644 index 0000000..ae12642 --- /dev/null +++ b/src/zdemo_excel50.prog.xml @@ -0,0 +1,35 @@ + + + + + + ZDEMO_EXCEL50 + 1 + T + E + X + X + + + + R + abap2xlsx Demo: Export internal table + 38 + + + S + P_EMPTY + Leave Table Empty + 25 + + + S + P_PATH + . + 24 + D + + + + +