diff --git a/ZA2X/PROG/ZDEMO_EXCEL24.slnk b/ZA2X/PROG/ZDEMO_EXCEL24.slnk index d5c3b06..ea1f3fe 100644 --- a/ZA2X/PROG/ZDEMO_EXCEL24.slnk +++ b/ZA2X/PROG/ZDEMO_EXCEL24.slnk @@ -1,10 +1,11 @@ - + + *&---------------------------------------------------------------------* *& Report ZDEMO_EXCEL23 *& @@ -21,7 +22,9 @@ 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, column_dimension TYPE REF TO zcl_excel_worksheet_columndime, - lo_hyperlink TYPE REF TO zcl_excel_hyperlink. + lo_hyperlink TYPE REF TO zcl_excel_hyperlink, + style_yymmddslash TYPE REF TO zcl_excel_style, + style_yymmddslash_guid TYPE zexcel_cell_style. DATA: lv_file TYPE xstring, lv_bytecount TYPE i, @@ -82,14 +85,20 @@ START-OF-SELECTION. lo_worksheet->set_cell( ip_column = 'A' ip_row = 3 ip_value = 'Current Date:' ). lo_worksheet->set_cell( ip_column = 'A' ip_row = 4 ip_value = sy-datum ). + lo_worksheet->set_cell( ip_column = 'A' ip_row = 6 ip_value = 'Date Format set to YYYYMMDDSLASH:' ). + style_yymmddslash = lo_excel->add_new_style( ). + style_yymmddslash->number_format->format_code = zcl_excel_style_number_format=>c_format_date_yymmddslash. + style_yymmddslash_guid = style_yymmddslash->get_guid( ). + lo_worksheet->set_cell( ip_column = 'A' ip_row = 7 ip_value = sy-datum ip_style = style_yymmddslash_guid ). + lo_hyperlink = zcl_excel_hyperlink=>create_internal_link( iv_location = 'Sheet3!B2' ). - lo_worksheet->set_cell( ip_column = 'A' ip_row = 6 ip_value = 'This is link to the third sheet' ip_hyperlink = lo_hyperlink ). + lo_worksheet->set_cell( ip_column = 'A' ip_row = 9 ip_value = 'This is link to the third sheet' ip_hyperlink = lo_hyperlink ). " Third sheet lo_worksheet = lo_excel->add_new_worksheet( ). " TODO: It seems that the zcl_excel_style_number_format=>c_format_date_yyyymmddslash " does not produce a valid output - lo_worksheet->set_default_excel_date_format( zcl_excel_style_number_format=>c_format_date_yyyymmddslash ). + lo_worksheet->set_default_excel_date_format( zcl_excel_style_number_format=>c_format_date_yyyymmddslash ). lo_worksheet->set_title( ip_title = 'Sheet3' ). lo_worksheet->set_cell( ip_column = 'A' ip_row = 1 ip_value = 'Date Format set to YYYY/MM/DD' ). " Insert current date