*&---------------------------------------------------------------------* *& Report ZDEMO_EXCEL2 *& Test Styles for ABAP2XLSX *&---------------------------------------------------------------------* *& *& *&---------------------------------------------------------------------* report zdemo_excel2. data: lo_excel type ref to zcl_excel, lo_worksheet type ref to zcl_excel_worksheet, lo_style_bold type ref to zcl_excel_style, lo_style_underline type ref to zcl_excel_style, lo_style_filled type ref to zcl_excel_style, lo_style_border type ref to zcl_excel_style, lo_style_button type ref to zcl_excel_style, lo_border_dark type ref to zcl_excel_style_border, lo_border_light type ref to zcl_excel_style_border. data: lv_style_bold_guid type zexcel_cell_style, lv_style_underline_guid type zexcel_cell_style, lv_style_filled_guid type zexcel_cell_style, lv_style_filled_green_guid type zexcel_cell_style, lv_style_border_guid type zexcel_cell_style, lv_style_button_guid type zexcel_cell_style, lv_style_filled_turquoise_guid type zexcel_cell_style, lo_style_gr_cornerlb_guid type zexcel_cell_style, lo_style_gr_cornerlt_guid type zexcel_cell_style, lo_style_gr_cornerrb_guid type zexcel_cell_style, lo_style_gr_cornerrt_guid type zexcel_cell_style, lo_style_gr_horizontal90_guid type zexcel_cell_style, lo_style_gr_horizontal270_guid type zexcel_cell_style, lo_style_gr_horizontalb_guid type zexcel_cell_style, lo_style_gr_vertical_guid type zexcel_cell_style, lo_style_gr_vertical2_guid type zexcel_cell_style, lo_style_gr_fromcenter_guid type zexcel_cell_style, lo_style_gr_diagonal45_guid type zexcel_cell_style, lo_style_gr_diagonal45b_guid type zexcel_cell_style, lo_style_gr_diagonal135_guid type zexcel_cell_style, lo_style_gr_diagonal135b_guid type zexcel_cell_style . data: lv_file type xstring, lv_bytecount type i, lt_file_tab type solix_tab. data: lv_full_path type string, lv_workdir type string, lv_file_separator type c. data: lo_row_dim type ref to zcl_excel_worksheet_rowdimensi. constants: gc_save_file_name type string value '02_Styles.xlsx'. include zdemo_excel_outputopt_incl. start-of-selection. " Creates active sheet create object lo_excel. " Create border object create object lo_border_dark. lo_border_dark->border_color-rgb = zcl_excel_style_color=>c_black. lo_border_dark->border_style = zcl_excel_style_border=>c_border_thin. create object lo_border_light. lo_border_light->border_color-rgb = zcl_excel_style_color=>c_gray. lo_border_light->border_style = zcl_excel_style_border=>c_border_thin. " Create a bold / italic style lo_style_bold = lo_excel->add_new_style( ). lo_style_bold->font->bold = abap_true. lo_style_bold->font->italic = abap_true. lo_style_bold->font->name = zcl_excel_style_font=>c_name_arial. lo_style_bold->font->scheme = zcl_excel_style_font=>c_scheme_none. lo_style_bold->font->color-rgb = zcl_excel_style_color=>c_red. lv_style_bold_guid = lo_style_bold->get_guid( ). " Create an underline double style lo_style_underline = lo_excel->add_new_style( ). lo_style_underline->font->underline = abap_true. lo_style_underline->font->underline_mode = zcl_excel_style_font=>c_underline_double. lo_style_underline->font->name = zcl_excel_style_font=>c_name_roman. lo_style_underline->font->scheme = zcl_excel_style_font=>c_scheme_none. lo_style_underline->font->family = zcl_excel_style_font=>c_family_roman. lv_style_underline_guid = lo_style_underline->get_guid( ). " Create filled style yellow lo_style_filled = lo_excel->add_new_style( ). lo_style_filled->fill->filltype = zcl_excel_style_fill=>c_fill_solid. lo_style_filled->fill->fgcolor-theme = zcl_excel_style_color=>c_theme_accent6. lv_style_filled_guid = lo_style_filled->get_guid( ). " Create border with button effects lo_style_button = lo_excel->add_new_style( ). lo_style_button->borders->right = lo_border_dark. lo_style_button->borders->down = lo_border_dark. lo_style_button->borders->left = lo_border_light. lo_style_button->borders->top = lo_border_light. lv_style_button_guid = lo_style_button->get_guid( ). "Create style with border lo_style_border = lo_excel->add_new_style( ). lo_style_border->borders->allborders = lo_border_dark. lo_style_border->borders->diagonal = lo_border_dark. lo_style_border->borders->diagonal_mode = zcl_excel_style_borders=>c_diagonal_both. lv_style_border_guid = lo_style_border->get_guid( ). " Create filled style green lo_style_filled = lo_excel->add_new_style( ). lo_style_filled->fill->filltype = zcl_excel_style_fill=>c_fill_solid. lo_style_filled->fill->fgcolor-rgb = zcl_excel_style_color=>c_green. lo_style_filled->font->name = zcl_excel_style_font=>c_name_cambria. lo_style_filled->font->scheme = zcl_excel_style_font=>c_scheme_major. lv_style_filled_green_guid = lo_style_filled->get_guid( ). " Create filled with gradients lo_style_filled = lo_excel->add_new_style( ). lo_style_filled->fill->filltype = zcl_excel_style_fill=>c_fill_gradient_cornerlb. lo_style_filled->fill->fgcolor-rgb = zcl_excel_style_color=>c_blue. lo_style_filled->fill->bgcolor-rgb = zcl_excel_style_color=>c_white. lo_style_filled->font->name = zcl_excel_style_font=>c_name_cambria. lo_style_filled->font->scheme = zcl_excel_style_font=>c_scheme_major. lo_style_gr_cornerlb_guid = lo_style_filled->get_guid( ). lo_style_filled = lo_excel->add_new_style( ). lo_style_filled->fill->filltype = zcl_excel_style_fill=>c_fill_gradient_cornerlt. lo_style_filled->fill->fgcolor-rgb = zcl_excel_style_color=>c_blue. lo_style_filled->fill->bgcolor-rgb = zcl_excel_style_color=>c_white. lo_style_filled->font->name = zcl_excel_style_font=>c_name_cambria. lo_style_filled->font->scheme = zcl_excel_style_font=>c_scheme_major. lo_style_gr_cornerlt_guid = lo_style_filled->get_guid( ). lo_style_filled = lo_excel->add_new_style( ). lo_style_filled->fill->filltype = zcl_excel_style_fill=>c_fill_gradient_cornerrb. lo_style_filled->fill->fgcolor-rgb = zcl_excel_style_color=>c_blue. lo_style_filled->fill->bgcolor-rgb = zcl_excel_style_color=>c_white. lo_style_filled->font->name = zcl_excel_style_font=>c_name_cambria. lo_style_filled->font->scheme = zcl_excel_style_font=>c_scheme_major. lo_style_gr_cornerrb_guid = lo_style_filled->get_guid( ). lo_style_filled = lo_excel->add_new_style( ). lo_style_filled->fill->filltype = zcl_excel_style_fill=>c_fill_gradient_cornerrt. lo_style_filled->fill->fgcolor-rgb = zcl_excel_style_color=>c_blue. lo_style_filled->fill->bgcolor-rgb = zcl_excel_style_color=>c_white. lo_style_filled->font->name = zcl_excel_style_font=>c_name_cambria. lo_style_filled->font->scheme = zcl_excel_style_font=>c_scheme_major. lo_style_gr_cornerrt_guid = lo_style_filled->get_guid( ). lo_style_filled = lo_excel->add_new_style( ). lo_style_filled->fill->filltype = zcl_excel_style_fill=>c_fill_gradient_horizontal90. lo_style_filled->fill->fgcolor-rgb = zcl_excel_style_color=>c_blue. lo_style_filled->fill->bgcolor-rgb = zcl_excel_style_color=>c_white. lo_style_filled->font->name = zcl_excel_style_font=>c_name_cambria. lo_style_filled->font->scheme = zcl_excel_style_font=>c_scheme_major. lo_style_gr_horizontal90_guid = lo_style_filled->get_guid( ). lo_style_filled = lo_excel->add_new_style( ). lo_style_filled->fill->filltype = zcl_excel_style_fill=>c_fill_gradient_horizontal270. lo_style_filled->fill->fgcolor-rgb = zcl_excel_style_color=>c_blue. lo_style_filled->fill->bgcolor-rgb = zcl_excel_style_color=>c_white. lo_style_filled->font->name = zcl_excel_style_font=>c_name_cambria. lo_style_filled->font->scheme = zcl_excel_style_font=>c_scheme_major. lo_style_gr_horizontal270_guid = lo_style_filled->get_guid( ). lo_style_filled = lo_excel->add_new_style( ). lo_style_filled->fill->filltype = zcl_excel_style_fill=>c_fill_gradient_horizontalb. lo_style_filled->fill->fgcolor-rgb = zcl_excel_style_color=>c_blue. lo_style_filled->fill->bgcolor-rgb = zcl_excel_style_color=>c_white. lo_style_filled->font->name = zcl_excel_style_font=>c_name_cambria. lo_style_filled->font->scheme = zcl_excel_style_font=>c_scheme_major. lo_style_gr_horizontalb_guid = lo_style_filled->get_guid( ). lo_style_filled = lo_excel->add_new_style( ). lo_style_filled->fill->filltype = zcl_excel_style_fill=>c_fill_gradient_vertical. lo_style_filled->fill->fgcolor-rgb = zcl_excel_style_color=>c_blue. lo_style_filled->fill->bgcolor-rgb = zcl_excel_style_color=>c_white. lo_style_filled->font->name = zcl_excel_style_font=>c_name_cambria. lo_style_filled->font->scheme = zcl_excel_style_font=>c_scheme_major. lo_style_gr_vertical_guid = lo_style_filled->get_guid( ). lo_style_filled = lo_excel->add_new_style( ). lo_style_filled->fill->filltype = zcl_excel_style_fill=>c_fill_gradient_vertical. lo_style_filled->fill->fgcolor-rgb = zcl_excel_style_color=>c_white. lo_style_filled->fill->bgcolor-rgb = zcl_excel_style_color=>c_blue. lo_style_filled->font->name = zcl_excel_style_font=>c_name_cambria. lo_style_filled->font->scheme = zcl_excel_style_font=>c_scheme_major. lo_style_gr_vertical2_guid = lo_style_filled->get_guid( ). lo_style_filled = lo_excel->add_new_style( ). lo_style_filled->fill->filltype = zcl_excel_style_fill=>c_fill_gradient_fromcenter. lo_style_filled->fill->fgcolor-rgb = zcl_excel_style_color=>c_blue. lo_style_filled->fill->bgcolor-rgb = zcl_excel_style_color=>c_white. lo_style_filled->font->name = zcl_excel_style_font=>c_name_cambria. lo_style_filled->font->scheme = zcl_excel_style_font=>c_scheme_major. lo_style_gr_fromcenter_guid = lo_style_filled->get_guid( ). lo_style_filled = lo_excel->add_new_style( ). lo_style_filled->fill->filltype = zcl_excel_style_fill=>c_fill_gradient_diagonal45. lo_style_filled->fill->fgcolor-rgb = zcl_excel_style_color=>c_blue. lo_style_filled->fill->bgcolor-rgb = zcl_excel_style_color=>c_white. lo_style_filled->font->name = zcl_excel_style_font=>c_name_cambria. lo_style_filled->font->scheme = zcl_excel_style_font=>c_scheme_major. lo_style_gr_diagonal45_guid = lo_style_filled->get_guid( ). lo_style_filled = lo_excel->add_new_style( ). lo_style_filled->fill->filltype = zcl_excel_style_fill=>c_fill_gradient_diagonal45b. lo_style_filled->fill->fgcolor-rgb = zcl_excel_style_color=>c_blue. lo_style_filled->fill->bgcolor-rgb = zcl_excel_style_color=>c_white. lo_style_filled->font->name = zcl_excel_style_font=>c_name_cambria. lo_style_filled->font->scheme = zcl_excel_style_font=>c_scheme_major. lo_style_gr_diagonal45b_guid = lo_style_filled->get_guid( ). lo_style_filled = lo_excel->add_new_style( ). lo_style_filled->fill->filltype = zcl_excel_style_fill=>c_fill_gradient_diagonal135. lo_style_filled->fill->fgcolor-rgb = zcl_excel_style_color=>c_blue. lo_style_filled->fill->bgcolor-rgb = zcl_excel_style_color=>c_white. lo_style_filled->font->name = zcl_excel_style_font=>c_name_cambria. lo_style_filled->font->scheme = zcl_excel_style_font=>c_scheme_major. lo_style_gr_diagonal135_guid = lo_style_filled->get_guid( ). lo_style_filled = lo_excel->add_new_style( ). lo_style_filled->fill->filltype = zcl_excel_style_fill=>c_fill_gradient_diagonal135b. lo_style_filled->fill->fgcolor-rgb = zcl_excel_style_color=>c_blue. lo_style_filled->fill->bgcolor-rgb = zcl_excel_style_color=>c_white. lo_style_filled->font->name = zcl_excel_style_font=>c_name_cambria. lo_style_filled->font->scheme = zcl_excel_style_font=>c_scheme_major. lo_style_gr_diagonal135b_guid = lo_style_filled->get_guid( ). " Create filled style turquoise using legacy excel ver <= 2003 palette. (https://code.sdn.sap.com/spaces/abap2xlsx/tickets/92) lo_style_filled = lo_excel->add_new_style( ). lo_excel->legacy_palette->set_color( "replace built-in color from palette with out custom RGB turquoise ip_index = 16 ip_color = '0040E0D0' ). lo_style_filled->fill->filltype = zcl_excel_style_fill=>c_fill_solid. lo_style_filled->fill->fgcolor-indexed = 16. lv_style_filled_turquoise_guid = lo_style_filled->get_guid( ). " Get active sheet lo_worksheet = lo_excel->get_active_worksheet( ). lo_worksheet->set_title( ip_title = 'Styles' ). lo_worksheet->set_cell( ip_column = 'B' ip_row = 2 ip_value = 'Hello world' ). lo_worksheet->set_cell( ip_column = 'C' ip_row = 3 ip_value = 'Bold text' ip_style = lv_style_bold_guid ). lo_worksheet->set_cell( ip_column = 'D' ip_row = 4 ip_value = 'Underlined text' ip_style = lv_style_underline_guid ). lo_worksheet->set_cell( ip_column = 'B' ip_row = 5 ip_value = 'Filled text' ip_style = lv_style_filled_guid ). lo_worksheet->set_cell( ip_column = 'C' ip_row = 6 ip_value = 'Borders' ip_style = lv_style_border_guid ). lo_worksheet->set_cell( ip_column = 'D' ip_row = 7 ip_value = 'I''m not a button :)' ip_style = lv_style_button_guid ). lo_worksheet->set_cell( ip_column = 'B' ip_row = 9 ip_value = 'Modified color for Excel 2003' ip_style = lv_style_filled_turquoise_guid ). " Fill the cell and apply one style lo_worksheet->set_cell( ip_column = 'B' ip_row = 6 ip_value = 'Filled text' ip_style = lv_style_filled_guid ). " Change the style lo_worksheet->set_cell_style( ip_column = 'B' ip_row = 6 ip_style = lv_style_filled_green_guid ). " Add Style to an empty cell to test Fix for Issue "#44 Exception ZCX_EXCEL thrown when style is set for an empty cell " https://code.sdn.sap.com/spaces/abap2xlsx/tickets/44-exception-zcx_excel-thrown-when-style-is-set-for-an-empty-cell lo_worksheet->set_cell_style( ip_column = 'E' ip_row = 6 ip_style = lv_style_filled_green_guid ). lo_worksheet->set_cell( ip_column = 'B' ip_row = 10 ip_style = lo_style_gr_cornerlb_guid ip_value = zcL_excel_style_fill=>c_fill_gradient_cornerlb ). lo_row_dim = lo_worksheet->get_row_dimension( ip_row = 10 ). lo_row_dim->set_row_height( ip_row_height = 30 ). lo_worksheet->set_cell( ip_column = 'C' ip_row = 11 ip_style = lo_style_gr_cornerlt_guid ip_value = zcL_excel_style_fill=>c_fill_gradient_cornerlt ). lo_row_dim = lo_worksheet->get_row_dimension( ip_row = 11 ). lo_row_dim->set_row_height( ip_row_height = 30 ). lo_worksheet->set_cell( ip_column = 'B' ip_row = 12 ip_style = lo_style_gr_cornerrb_guid ip_value = zcL_excel_style_fill=>c_fill_gradient_cornerrb ). lo_row_dim = lo_worksheet->get_row_dimension( ip_row = 12 ). lo_row_dim->set_row_height( ip_row_height = 30 ). lo_worksheet->set_cell( ip_column = 'C' ip_row = 13 ip_style = lo_style_gr_cornerrt_guid ip_value = zcL_excel_style_fill=>c_fill_gradient_cornerrt ). lo_row_dim = lo_worksheet->get_row_dimension( ip_row = 13 ). lo_row_dim->set_row_height( ip_row_height = 30 ). lo_worksheet->set_cell( ip_column = 'B' ip_row = 14 ip_style = lo_style_gr_horizontal90_guid ip_value = zcL_excel_style_fill=>c_fill_gradient_horizontal90 ). lo_row_dim = lo_worksheet->get_row_dimension( ip_row = 14 ). lo_row_dim->set_row_height( ip_row_height = 30 ). lo_worksheet->set_cell( ip_column = 'C' ip_row = 15 ip_style = lo_style_gr_horizontal270_guid ip_value = zcL_excel_style_fill=>c_fill_gradient_horizontal270 ). lo_row_dim = lo_worksheet->get_row_dimension( ip_row = 15 ). lo_row_dim->set_row_height( ip_row_height = 30 ). lo_worksheet->set_cell( ip_column = 'B' ip_row = 16 ip_style = lo_style_gr_horizontalb_guid ip_value = zcL_excel_style_fill=>c_fill_gradient_horizontalb ). lo_row_dim = lo_worksheet->get_row_dimension( ip_row = 16 ). lo_row_dim->set_row_height( ip_row_height = 30 ). lo_worksheet->set_cell( ip_column = 'C' ip_row = 17 ip_style = lo_style_gr_vertical_guid ip_value = zcL_excel_style_fill=>c_fill_gradient_vertical ). lo_row_dim = lo_worksheet->get_row_dimension( ip_row = 17 ). lo_row_dim->set_row_height( ip_row_height = 30 ). lo_worksheet->set_cell( ip_column = 'B' ip_row = 18 ip_style = lo_style_gr_vertical2_guid ip_value = zcL_excel_style_fill=>c_fill_gradient_vertical ). lo_row_dim = lo_worksheet->get_row_dimension( ip_row = 18 ). lo_row_dim->set_row_height( ip_row_height = 30 ). lo_worksheet->set_cell( ip_column = 'C' ip_row = 19 ip_style = lo_style_gr_fromcenter_guid ip_value = zcL_excel_style_fill=>c_fill_gradient_fromcenter ). lo_row_dim = lo_worksheet->get_row_dimension( ip_row = 19 ). lo_row_dim->set_row_height( ip_row_height = 30 ). lo_worksheet->set_cell( ip_column = 'B' ip_row = 20 ip_style = lo_style_gr_diagonal45_guid ip_value = zcL_excel_style_fill=>c_fill_gradient_diagonal45 ). lo_row_dim = lo_worksheet->get_row_dimension( ip_row = 20 ). lo_row_dim->set_row_height( ip_row_height = 30 ). lo_worksheet->set_cell( ip_column = 'C' ip_row = 21 ip_style = lo_style_gr_diagonal45b_guid ip_value = zcL_excel_style_fill=>c_fill_gradient_diagonal45b ). lo_row_dim = lo_worksheet->get_row_dimension( ip_row = 21 ). lo_row_dim->set_row_height( ip_row_height = 30 ). lo_worksheet->set_cell( ip_column = 'B' ip_row = 22 ip_style = lo_style_gr_diagonal135_guid ip_value = zcL_excel_style_fill=>c_fill_gradient_diagonal135 ). lo_row_dim = lo_worksheet->get_row_dimension( ip_row = 22 ). lo_row_dim->set_row_height( ip_row_height = 30 ). lo_worksheet->set_cell( ip_column = 'C' ip_row = 23 ip_style = lo_style_gr_diagonal135b_guid ip_value = zcL_excel_style_fill=>c_fill_gradient_diagonal135b ). lo_row_dim = lo_worksheet->get_row_dimension( ip_row = 23 ). lo_row_dim->set_row_height( ip_row_height = 30 ). * CREATE OBJECT lo_excel_writer TYPE zcl_excel_writer_2007. * lv_file = lo_excel_writer->write_file( lo_excel ). * * " Convert to binary * CALL FUNCTION 'SCMS_XSTRING_TO_BINARY' * EXPORTING * buffer = lv_file * IMPORTING * output_length = lv_bytecount * TABLES * binary_tab = lt_file_tab. ** " This method is only available on AS ABAP > 6.40 ** lt_file_tab = cl_bcs_convert=>xstring_to_solix( iv_xstring = lv_file ). ** lv_bytecount = xstrlen( lv_file ). * * " Save the file * cl_gui_frontend_services=>gui_download( EXPORTING bin_filesize = lv_bytecount * filename = lv_full_path * filetype = 'BIN' * CHANGING data_tab = lt_file_tab ). lcl_output=>output( lo_excel ).