*&---------------------------------------------------------------------* *& Report ZDEMO_EXCEL19 *& *&---------------------------------------------------------------------* *& *& *&---------------------------------------------------------------------* REPORT zdemo_excel19. TYPE-POOLS: abap. DATA: lo_excel TYPE REF TO zcl_excel, lo_worksheet TYPE REF TO zcl_excel_worksheet. CONSTANTS: gc_save_file_name TYPE string VALUE '19_SetActiveSheet.xlsx'. INCLUDE zdemo_excel_outputopt_incl. PARAMETERS: p_noout TYPE xfeld DEFAULT abap_true. START-OF-SELECTION. CREATE OBJECT lo_excel. " First Worksheet lo_worksheet = lo_excel->get_active_worksheet( ). lo_worksheet->set_title( 'First' ). lo_worksheet->set_cell( ip_row = 1 ip_column = 'A' ip_value = 'This is Sheet 1' ). " Second Worksheet lo_worksheet = lo_excel->add_new_worksheet( ). lo_worksheet->set_title( 'Second' ). lo_worksheet->set_cell( ip_row = 1 ip_column = 'A' ip_value = 'This is Sheet 2' ). " Third Worksheet lo_worksheet = lo_excel->add_new_worksheet( ). lo_worksheet->set_title( 'Third' ). lo_worksheet->set_cell( ip_row = 1 ip_column = 'A' ip_value = 'This is Sheet 3' ). 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' ). IF p_noout EQ abap_false. active_sheet_index = lo_excel->get_active_sheet_index( ). WRITE: 'Sheet Index after: ', active_sheet_index. ENDIF. *** Create output lcl_output=>output( lo_excel ).