From b7481a40774d95b32e781113df1b933e377218d9 Mon Sep 17 00:00:00 2001 From: Ivan Femia Date: Wed, 4 May 2011 19:15:49 +0000 Subject: [PATCH] Issue #83 and issue #90 fixed git-svn-id: https://subversion.assembla.com/svn/abap2xlsx/trunk@169 b7d68dce-7c3c-4a99-8ce0-9ea847f5d049 --- ZA2X/CLAS/ZCL_EXCEL_WRITER_CSV.slnk | 108 ++++++++++++-- ZA2X/PROG/ZDEMO_EXCEL.slnk | 7 +- ZA2X/PROG/ZDEMO_EXCEL26.slnk | 76 ++++------ ZA2X/PROG/ZDEMO_EXCEL27.slnk | 214 ++++++++-------------------- ZA2X/PROG/ZDEMO_EXCEL28.slnk | 28 +++- 5 files changed, 206 insertions(+), 227 deletions(-) diff --git a/ZA2X/CLAS/ZCL_EXCEL_WRITER_CSV.slnk b/ZA2X/CLAS/ZCL_EXCEL_WRITER_CSV.slnk index c2b1fa0..370b7e2 100644 --- a/ZA2X/CLAS/ZCL_EXCEL_WRITER_CSV.slnk +++ b/ZA2X/CLAS/ZCL_EXCEL_WRITER_CSV.slnk @@ -1,6 +1,6 @@ - - + + class ZCL_EXCEL_WRITER_CSV definition public final @@ -10,7 +10,18 @@ *"* do not include other source files here!!! public section. - interfaces ZIF_EXCEL_WRITER . + interfaces ZIF_EXCEL_WRITER . + + class-methods SET_DELIMITER + importing + value(IP_VALUE) type CHAR01 default ';' . + class-methods SET_ENCLOSURE + importing + value(IP_VALUE) type CHAR01 default '"' . + class CL_ABAP_CHAR_UTILITIES definition load . + class-methods SET_ENDOFLINE + importing + value(IP_VALUE) type ANY default CL_ABAP_CHAR_UTILITIES=>CR_LF . *"* protected components of class ZCL_EXCEL_WRITER_2007 *"* do not include other source files here!!! protected section. @@ -19,6 +30,9 @@ protected section. private section. data EXCEL type ref to ZCL_EXCEL . + class-data DELIMITER type CHAR01 value ';'. "#EC NOTEXT . + class-data ENCLOSURE type CHAR01 value '"'. "#EC NOTEXT . + class-data EOL type CHAR01 value CL_ABAP_CHAR_UTILITIES=>CR_LF. "#EC NOTEXT . methods CREATE returning @@ -34,15 +48,18 @@ private section. *"* implementation or private method's signature *"* use this source file for any macro definitions you need *"* in the implementation part of the class - + + + + method ZIF_EXCEL_WRITER~WRITE_FILE. me->excel = io_excel. ep_file = me->create( ). endmethod. - - + + method CREATE. * .csv format with ; delimiter @@ -51,8 +68,8 @@ endmethod. endmethod. - - + + method CREATE_CSV. TYPES: BEGIN OF lty_format, @@ -60,7 +77,10 @@ endmethod. attvalue TYPE SEOVALUE, END OF lty_format. DATA: lt_format TYPE STANDARD TABLE OF lty_format, - ls_format LIKE LINE OF lt_format. + ls_format LIKE LINE OF lt_format, + lv_date TYPE DATS, + lv_tmp TYPE string, + lv_time TYPE CHAR08. DATA: lo_iterator TYPE REF TO cl_object_collection_iterator, lo_worksheet TYPE REF TO zcl_excel_worksheet. @@ -85,11 +105,23 @@ endmethod. AND typtype = 1 AND type = 'ZEXCEL_NUMBER_FORMAT'. +* --- Retrieve SAP date format + CLEAR ls_format. + SELECT ddtext INTO ls_format-attvalue FROM dd07t WHERE domname = 'XUDATFM' + AND ddlanguage = sy-langu. + ls_format-cmpname = 'DATE'. + CONDENSE ls_format-attvalue. + CONCATENATE '''' ls_format-attvalue '''' INTO ls_format-attvalue. + APPEND ls_format TO lt_format. + ENDSELECT. + + LOOP AT lt_format INTO ls_format. TRANSLATE ls_format-attvalue TO UPPER CASE. MODIFY lt_format FROM ls_format. ENDLOOP. + * STEP 1: Collect strings from the first worksheet lo_iterator = excel->get_worksheets_iterator( ). WHILE lo_iterator->if_object_collection_iterator~has_next( ) EQ abap_true. @@ -163,14 +195,17 @@ endmethod. * --- Add empty rows WHILE lv_row < <fs_sheet_content>-cell_row. - CONCATENATE lv_string cl_abap_char_utilities=>newline INTO lv_string. +* CONCATENATE lv_string cl_abap_char_utilities=>newline INTO lv_string. +* CONCATENATE lv_string cl_abap_char_utilities=>cr_lf INTO lv_string. + CONCATENATE lv_string zcl_excel_writer_csv=>eol INTO lv_string. lv_row = lv_row + 1. lv_col = 1. ENDWHILE. * --- Add empty columns WHILE lv_col < <fs_sheet_content>-cell_column. - CONCATENATE lv_string ';' INTO lv_string. " ls_shared_string-string_value. +* CONCATENATE lv_string ';' INTO lv_string. + CONCATENATE lv_string zcl_excel_writer_csv=>delimiter INTO lv_string. lv_col = lv_col + 1. ENDWHILE. @@ -181,18 +216,43 @@ endmethod. WHEN 'd' OR 'D'. lc_value = zcl_excel_common=>excel_string_to_date( ip_value = <fs_sheet_content>-cell_value ). + TRY. + lv_date = lc_value. + CALL FUNCTION 'CONVERT_DATE_TO_EXTERNAL' + EXPORTING + DATE_INTERNAL = lv_date + IMPORTING + DATE_EXTERNAL = lv_tmp + EXCEPTIONS + DATE_INTERNAL_IS_INVALID = 1 + OTHERS = 2 + . + IF SY-SUBRC = 0. + lc_value = lv_tmp. + ENDIF. + + CATCH CX_SY_CONVERSION_NO_NUMBER. + + ENDTRY. WHEN 't' OR 'T'. lc_value = zcl_excel_common=>excel_string_to_time( ip_value = <fs_sheet_content>-cell_value ). - + write lc_value to lv_time USING EDIT MASK '__:__:__'. + lc_value = lv_time. WHEN OTHERS. lc_value = <fs_sheet_content>-cell_value. ENDCASE. - REPLACE ALL OCCURRENCES OF '"' in lc_value with '""'. - FIND FIRST OCCURRENCE OF ';' IN lc_value. " <fs_sheet_content>-cell_value. + +* REPLACE ALL OCCURRENCES OF '"' in lc_value with '""'. + CONCATENATE zcl_excel_writer_csv=>enclosure zcl_excel_writer_csv=>enclosure INTO lv_tmp. + CONDENSE lv_tmp. + REPLACE ALL OCCURRENCES OF zcl_excel_writer_csv=>enclosure in lc_value with lv_tmp. + +* FIND FIRST OCCURRENCE OF ';' IN lc_value. + FIND FIRST OCCURRENCE OF zcl_excel_writer_csv=>delimiter IN lc_value. IF sy-subrc = 0. - CONCATENATE lv_string '"' lc_value '"' INTO lv_string. + CONCATENATE lv_string zcl_excel_writer_csv=>enclosure lc_value zcl_excel_writer_csv=>enclosure INTO lv_string. ELSE. CONCATENATE lv_string lc_value INTO lv_string. ENDIF. @@ -213,6 +273,24 @@ endmethod. OTHERS = 2 . +endmethod. + + + + method SET_DELIMITER. + delimiter = ip_value. +endmethod. + + + + method SET_ENCLOSURE. + zcl_excel_writer_csv=>enclosure = ip_value. +endmethod. + + + + method SET_ENDOFLINE. + zcl_excel_writer_csv=>eol = ip_value. endmethod. diff --git a/ZA2X/PROG/ZDEMO_EXCEL.slnk b/ZA2X/PROG/ZDEMO_EXCEL.slnk index 358ec43..9633074 100644 --- a/ZA2X/PROG/ZDEMO_EXCEL.slnk +++ b/ZA2X/PROG/ZDEMO_EXCEL.slnk @@ -1,5 +1,5 @@ - + @@ -62,6 +62,7 @@ START-OF-SELECTION. SUBMIT zdemo_excel23 WITH p_path = p_path AND RETURN. " abap2xlsx Demo: Multiple sheets with and w/o grid lines, print options SUBMIT zdemo_excel24 WITH p_path = p_path AND RETURN. " abap2xlsx Demo: Multiple sheets with different default date formats SUBMIT zdemo_excel25 AND RETURN. " abap2xlsx Demo: Create and xlsx on Application Server (could be executed in batch mode) - SUBMIT zdemo_excel26 WITH p_path = p_path WITH p_reader = abap_true AND RETURN. " abap2xlsx Demo: Read cell format - SUBMIT zdemo_excel27 WITH p_path = p_path WITH p_reader = abap_true AND RETURN. " abap2xlsx Demo: Read style format + SUBMIT zdemo_excel26 WITH p_path = p_path AND RETURN. " abap2xlsx Demo: Reader demo +* SUBMIT zdemo_excel27 WITH p_path = p_path AND RETURN. " abap2xlsx Demo: empty + SUBMIT zdemo_excel28 WITH p_path = p_path AND RETURN. " abap2xlsx Demo: Read style format diff --git a/ZA2X/PROG/ZDEMO_EXCEL26.slnk b/ZA2X/PROG/ZDEMO_EXCEL26.slnk index 8bd3983..6562ca8 100644 --- a/ZA2X/PROG/ZDEMO_EXCEL26.slnk +++ b/ZA2X/PROG/ZDEMO_EXCEL26.slnk @@ -1,5 +1,5 @@ - + @@ -19,10 +19,7 @@ REPORT zdemo_excel26. DATA: lo_excel TYPE REF TO zcl_excel, lo_excel_writer TYPE REF TO zif_excel_writer, - lo_excel_reader TYPE REF TO zif_excel_reader, - lo_worksheet TYPE REF TO zcl_excel_worksheet, - lo_hyperlink TYPE REF TO zcl_excel_hyperlink, - column_dimension TYPE REF TO zcl_excel_worksheet_columndime. + lo_excel_reader TYPE REF TO zif_excel_reader. DATA: lv_file TYPE xstring, lv_bytecount TYPE i, @@ -32,10 +29,10 @@ DATA: lv_full_path TYPE string, lv_workdir TYPE string, lv_file_separator TYPE c. -CONSTANTS: lv_default_file_name TYPE string VALUE '26_HelloWorld.xlsx'. +CONSTANTS: lv_demo01 TYPE string VALUE '01_HelloWorld.xlsx'. +CONSTANTS: lv_demo02 TYPE string VALUE '02_Styles.xlsx'. -PARAMETERS: p_path TYPE zexcel_export_dir, - p_reader TYPE abap_bool AS CHECKBOX. +PARAMETERS: p_path TYPE zexcel_export_dir. AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_path. lv_workdir = p_path. @@ -54,25 +51,16 @@ START-OF-SELECTION. p_path = lv_workdir. ENDIF. cl_gui_frontend_services=>get_file_separator( CHANGING file_separator = lv_file_separator ). - CONCATENATE p_path lv_file_separator lv_default_file_name INTO lv_full_path. - " Creates active sheet - CREATE OBJECT lo_excel. +* Demo01 - " Get active sheet - lo_worksheet = lo_excel->get_active_worksheet( ). - lo_worksheet->set_title( ip_title = 'Sheet1' ). - lo_worksheet->set_cell( ip_column = 'B' ip_row = 2 ip_value = 'Hello world' ). - lo_worksheet->set_cell( ip_column = 'B' ip_row = 3 ip_value = sy-datum ). - lo_worksheet->set_cell( ip_column = 'C' ip_row = 3 ip_value = sy-uzeit ). - lo_hyperlink = zcl_excel_hyperlink=>create_external_link( iv_url = 'https://cw.sdn.sap.com/cw/groups/abap2xlsx' ). - lo_worksheet->set_cell( ip_column = 'B' ip_row = 4 ip_value = 'Click here to visit abap2xlsx homepage' ip_hyperlink = lo_hyperlink ). - - column_dimension = lo_worksheet->get_column_dimension( ip_column = 'B' ). - column_dimension->set_width( ip_width = 11 ). + CONCATENATE p_path lv_file_separator lv_demo01 INTO lv_full_path. + CREATE OBJECT lo_excel_reader TYPE zcl_excel_reader_2007. CREATE OBJECT lo_excel_writer TYPE zcl_excel_writer_2007. + lo_excel = lo_excel_reader->load_file( lv_full_path ). lv_file = lo_excel_writer->write_file( lo_excel ). + REPLACE '.xlsx' IN lv_full_path WITH 'FromReader.xlsx'. " Convert to binary CALL FUNCTION 'SCMS_XSTRING_TO_BINARY' @@ -82,36 +70,34 @@ START-OF-SELECTION. 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 ). +* Demo02 - IF p_reader = abap_true. - CREATE OBJECT lo_excel_reader TYPE zcl_excel_reader_2007. - CREATE OBJECT lo_excel_writer TYPE zcl_excel_writer_2007. - lo_excel = lo_excel_reader->load_file( lv_full_path ). - lv_file = lo_excel_writer->write_file( lo_excel ). - REPLACE '.xlsx' IN lv_full_path WITH 'FromReader.xlsx'. + CONCATENATE p_path lv_file_separator lv_demo02 INTO lv_full_path. - " Convert to binary - CALL FUNCTION 'SCMS_XSTRING_TO_BINARY' - EXPORTING - buffer = lv_file - IMPORTING - output_length = lv_bytecount - TABLES - binary_tab = lt_file_tab. + CREATE OBJECT lo_excel_reader TYPE zcl_excel_reader_2007. + CREATE OBJECT lo_excel_writer TYPE zcl_excel_writer_2007. + lo_excel = lo_excel_reader->load_file( lv_full_path ). + lv_file = lo_excel_writer->write_file( lo_excel ). + REPLACE '.xlsx' IN lv_full_path WITH 'FromReader.xlsx'. - " 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 ). - ENDIF. + " Convert to binary + CALL FUNCTION 'SCMS_XSTRING_TO_BINARY' + EXPORTING + buffer = lv_file + IMPORTING + output_length = lv_bytecount + TABLES + binary_tab = lt_file_tab. + + " 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 ). diff --git a/ZA2X/PROG/ZDEMO_EXCEL27.slnk b/ZA2X/PROG/ZDEMO_EXCEL27.slnk index bca04a5..54258a0 100644 --- a/ZA2X/PROG/ZDEMO_EXCEL27.slnk +++ b/ZA2X/PROG/ZDEMO_EXCEL27.slnk @@ -1,5 +1,5 @@ - + @@ -16,160 +16,60 @@ *&---------------------------------------------------------------------* REPORT zdemo_excel27. - -DATA: lo_excel TYPE REF TO zcl_excel, - lo_excel_writer TYPE REF TO zif_excel_writer, - lo_excel_reader TYPE REF TO zif_excel_reader, - 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. - -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. - -CONSTANTS: lv_default_file_name TYPE string VALUE '27_Styles.xlsx'. - -PARAMETERS: p_path TYPE zexcel_export_dir, - p_reader TYPE abap_bool AS CHECKBOX. - -AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_path. - lv_workdir = p_path. - cl_gui_frontend_services=>directory_browse( EXPORTING initial_folder = lv_workdir - CHANGING selected_folder = lv_workdir ). - p_path = lv_workdir. - -INITIALIZATION. - cl_gui_frontend_services=>get_sapgui_workdir( CHANGING sapworkdir = lv_workdir ). - cl_gui_cfw=>flush( ). - p_path = lv_workdir. - -START-OF-SELECTION. - - IF p_path IS INITIAL. - p_path = lv_workdir. - ENDIF. - cl_gui_frontend_services=>get_file_separator( CHANGING file_separator = lv_file_separator ). - CONCATENATE p_path lv_file_separator lv_default_file_name INTO lv_full_path. - - " Creates active sheet - CREATE OBJECT lo_excel. - - " Create border object - CREATE OBJECT lo_border_dark. - lo_border_dark->border_color = 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 = 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->color = 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. - 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 = zcl_excel_style_color=>c_yellow. - 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. - 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 = zcl_excel_style_color=>c_green. - lv_style_filled_green_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 ). - " 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 ). - - 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 ). - - IF p_reader = abap_true. - CREATE OBJECT lo_excel_reader TYPE zcl_excel_reader_2007. - CREATE OBJECT lo_excel_writer TYPE zcl_excel_writer_2007. - lo_excel = lo_excel_reader->load_file( lv_full_path ). - lv_file = lo_excel_writer->write_file( lo_excel ). - REPLACE '.xlsx' IN lv_full_path WITH 'FromReader.xlsx'. - - " Convert to binary - CALL FUNCTION 'SCMS_XSTRING_TO_BINARY' - EXPORTING - buffer = lv_file - IMPORTING - output_length = lv_bytecount - TABLES - binary_tab = lt_file_tab. - - " 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 ). - ENDIF. +* +*DATA: lo_excel TYPE REF TO zcl_excel, +* lo_excel_writer TYPE REF TO zif_excel_writer, +* lo_excel_reader TYPE REF TO zif_excel_reader. +* +*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. +* +*CONSTANTS: lv_default_file_name TYPE string VALUE '27_Styles.xlsx'. +* +*PARAMETERS: p_path TYPE zexcel_export_dir. +* +*AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_path. +* lv_workdir = p_path. +* cl_gui_frontend_services=>directory_browse( EXPORTING initial_folder = lv_workdir +* CHANGING selected_folder = lv_workdir ). +* p_path = lv_workdir. +* +*INITIALIZATION. +* cl_gui_frontend_services=>get_sapgui_workdir( CHANGING sapworkdir = lv_workdir ). +* cl_gui_cfw=>flush( ). +* p_path = lv_workdir. +* +*START-OF-SELECTION. +* +* IF p_path IS INITIAL. +* p_path = lv_workdir. +* ENDIF. +* cl_gui_frontend_services=>get_file_separator( CHANGING file_separator = lv_file_separator ). +* CONCATENATE p_path lv_file_separator lv_default_file_name INTO lv_full_path. +* +* CREATE OBJECT lo_excel_reader TYPE zcl_excel_reader_2007. +* CREATE OBJECT lo_excel_writer TYPE zcl_excel_writer_2007. +* lo_excel = lo_excel_reader->load_file( lv_full_path ). +* lv_file = lo_excel_writer->write_file( lo_excel ). +* REPLACE '.xlsx' IN lv_full_path WITH 'FromReader.xlsx'. +* +* " Convert to binary +* CALL FUNCTION 'SCMS_XSTRING_TO_BINARY' +* EXPORTING +* buffer = lv_file +* IMPORTING +* output_length = lv_bytecount +* TABLES +* binary_tab = lt_file_tab. +* +* " 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 ). diff --git a/ZA2X/PROG/ZDEMO_EXCEL28.slnk b/ZA2X/PROG/ZDEMO_EXCEL28.slnk index 9e9e83c..d98af66 100644 --- a/ZA2X/PROG/ZDEMO_EXCEL28.slnk +++ b/ZA2X/PROG/ZDEMO_EXCEL28.slnk @@ -1,5 +1,5 @@ - + @@ -42,6 +42,7 @@ AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_path. INITIALIZATION. cl_gui_frontend_services=>get_sapgui_workdir( CHANGING sapworkdir = lv_workdir ). + cl_gui_cfw=>flush( ). p_path = lv_workdir. START-OF-SELECTION. @@ -50,7 +51,7 @@ START-OF-SELECTION. p_path = lv_workdir. ENDIF. cl_gui_frontend_services=>get_file_separator( CHANGING file_separator = lv_file_separator ). - CONCATENATE p_path lv_file_separator lv_default_file_name INTO p_path. + CONCATENATE p_path lv_file_separator lv_default_file_name INTO lv_full_path. " Creates active sheet CREATE OBJECT lo_excel. @@ -58,7 +59,7 @@ START-OF-SELECTION. " Get active sheet lo_worksheet = lo_excel->get_active_worksheet( ). lo_worksheet->set_title( ip_title = 'Sheet1' ). - lo_worksheet->set_cell( ip_column = 'B' ip_row = 2 ip_value = 'Hello ;"; world' ). + lo_worksheet->set_cell( ip_column = 'B' ip_row = 2 ip_value = 'Hello world' ). lo_worksheet->set_cell( ip_column = 'B' ip_row = 3 ip_value = sy-datum ). lo_worksheet->set_cell( ip_column = 'C' ip_row = 3 ip_value = sy-uzeit ). lo_hyperlink = zcl_excel_hyperlink=>create_external_link( iv_url = 'https://cw.sdn.sap.com/cw/groups/abap2xlsx' ). @@ -68,15 +69,28 @@ START-OF-SELECTION. column_dimension->set_width( 11 ). CREATE OBJECT lo_excel_writer TYPE zcl_excel_writer_csv. + zcl_excel_writer_csv=>set_delimiter( ip_value = cl_abap_char_utilities=>horizontal_tab ). + zcl_excel_writer_csv=>set_enclosure( ip_value = '''' ). + zcl_excel_writer_csv=>set_endofline( ip_value = cl_abap_char_utilities=>cr_lf ). + lv_file = lo_excel_writer->write_file( lo_excel ). -* Convert to binary - lt_file_tab = cl_bcs_convert=>xstring_to_solix( iv_xstring = lv_file ). - lv_bytecount = xstrlen( lv_file ). + + " 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 = p_path + filename = lv_full_path filetype = 'BIN' CHANGING data_tab = lt_file_tab ).