diff --git a/ZA2X/PROG/ZDEMO_EXCEL15.slnk b/ZA2X/PROG/ZDEMO_EXCEL15.slnk index bd8b9d3..0bf5aea 100644 --- a/ZA2X/PROG/ZDEMO_EXCEL15.slnk +++ b/ZA2X/PROG/ZDEMO_EXCEL15.slnk @@ -1,8 +1,10 @@ - - + + + + *&---------------------------------------------------------------------* @@ -15,6 +17,8 @@ REPORT zdemo_excel15. +TYPE-POOLS: abap. + DATA: excel TYPE REF TO zcl_excel, lo_excel_writer TYPE REF TO zif_excel_writer, reader TYPE REF TO zif_excel_reader. @@ -39,7 +43,8 @@ DATA: worksheet TYPE REF TO zcl_excel_worksheet, CONSTANTS: lv_default_file_name TYPE string VALUE '15_iTabFromReader.xlsx', lv_default_input TYPE string VALUE '03_iTab.xlsx'. -PARAMETERS: p_path TYPE string. +PARAMETERS: p_path TYPE string, + p_noout TYPE xfeld DEFAULT abap_true. AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_path. @@ -63,30 +68,31 @@ START-OF-SELECTION. CREATE OBJECT reader TYPE zcl_excel_reader_2007. excel = reader->load_file( input_file_path ). - worksheet = excel->get_active_worksheet( ). - highest_column = worksheet->get_highest_column( ). - highest_row = worksheet->get_highest_row( ). + IF p_noout EQ abap_false. + worksheet = excel->get_active_worksheet( ). + highest_column = worksheet->get_highest_column( ). + highest_row = worksheet->get_highest_row( ). - WRITE: 'Highest column: ', highest_column, 'Highest row: ', highest_row. + WRITE: 'Highest column: ', highest_column, 'Highest row: ', highest_row. - WHILE row <= highest_row. - WHILE column <= highest_column. - col_str = zcl_excel_common=>convert_column2alpha( column ). - worksheet->get_cell( - EXPORTING - ip_column = col_str - ip_row = row - IMPORTING - ep_value = value - ). - WRITE: value. - column = column + 1. + WHILE row <= highest_row. + WHILE column <= highest_column. + col_str = zcl_excel_common=>convert_column2alpha( column ). + worksheet->get_cell( + EXPORTING + ip_column = col_str + ip_row = row + IMPORTING + ep_value = value + ). + WRITE: value. + column = column + 1. + ENDWHILE. + WRITE: /. + column = 1. + row = row + 1. ENDWHILE. - WRITE: /. - column = 1. - row = row + 1. - ENDWHILE. - + ENDIF. CREATE OBJECT lo_excel_writer TYPE zcl_excel_writer_2007. lv_file = lo_excel_writer->write_file( excel ). diff --git a/ZA2X/PROG/ZDEMO_EXCEL19.slnk b/ZA2X/PROG/ZDEMO_EXCEL19.slnk index 039414e..e4f13e7 100644 --- a/ZA2X/PROG/ZDEMO_EXCEL19.slnk +++ b/ZA2X/PROG/ZDEMO_EXCEL19.slnk @@ -1,8 +1,10 @@ - - + + + + *&---------------------------------------------------------------------* @@ -13,8 +15,9 @@ *& *&---------------------------------------------------------------------* -REPORT ZDEMO_EXCEL19. +REPORT zdemo_excel19. +TYPE-POOLS: abap. DATA: lo_excel TYPE REF TO zcl_excel, lo_excel_writer TYPE REF TO zif_excel_writer, @@ -31,7 +34,8 @@ DATA: lv_workdir TYPE string, CONSTANTS: lv_default_file_name TYPE string VALUE '19_SetActiveSheet.xlsx'. -PARAMETERS: p_path TYPE string. +PARAMETERS: p_path TYPE string, + p_noout TYPE xfeld DEFAULT abap_true. AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_path. @@ -67,14 +71,17 @@ START-OF-SELECTION. lo_worksheet->title = 'Third'. lo_worksheet->set_cell( ip_row = 1 ip_column = 'A' ip_value = 'This is Sheet 3' ). - " lo_excel->set_active_sheet_index_by_name( data_sheet_name ). - DATA: active_sheet_index TYPE ZEXCEL_ACTIVE_WORKSHEET. - active_sheet_index = lo_excel->get_active_sheet_index( ). - write: 'Sheet Index before: ', active_sheet_index. + IF p_noout EQ abap_false. + " lo_excel->set_active_sheet_index_by_name( data_sheet_name ). + DATA: active_sheet_index TYPE zexcel_active_worksheet. + active_sheet_index = lo_excel->get_active_sheet_index( ). + WRITE: 'Sheet Index before: ', active_sheet_index. + ENDIF. lo_excel->set_active_sheet_index( '2' ). - active_sheet_index = lo_excel->get_active_sheet_index( ). - write: 'Sheet Index after: ', active_sheet_index. - + IF p_noout EQ abap_false. + active_sheet_index = lo_excel->get_active_sheet_index( ). + WRITE: 'Sheet Index after: ', active_sheet_index. + ENDIF. CREATE OBJECT lo_excel_writer TYPE zcl_excel_writer_2007. lv_file = lo_excel_writer->write_file( lo_excel ).