diff --git a/ZA2X/CLAS/ZCL_EXCEL_READER_2007.slnk b/ZA2X/CLAS/ZCL_EXCEL_READER_2007.slnk index e6249a4..5e1aefe 100644 --- a/ZA2X/CLAS/ZCL_EXCEL_READER_2007.slnk +++ b/ZA2X/CLAS/ZCL_EXCEL_READER_2007.slnk @@ -1,33 +1,54 @@ - - - - - class ZCL_EXCEL_READER_2007 definition @@ -813,6 +834,10 @@ endmethod. METHOD load_workbook. + TYPES: BEGIN OF t_workbookview, + activetab TYPE string, + minimized TYPE string, + END OF t_workbookview. CONSTANTS: lc_shared_strings TYPE string VALUE 'http://schemas.openxmlformats.org/officeDocument/2006/relationships/sharedStrings', lc_worksheet TYPE string VALUE 'http://schemas.openxmlformats.org/officeDocument/2006/relationships/worksheet', @@ -832,7 +857,8 @@ endmethod. dirname TYPE string, relationship TYPE t_relationship, lo_worksheet TYPE REF TO zcl_excel_worksheet, - worksheet_title TYPE zexcel_sheet_title. + worksheet_title TYPE zexcel_sheet_title, + workbookview TYPE t_workbookview. FIELD-SYMBOLS: <worksheet> TYPE t_relationship. @@ -906,6 +932,12 @@ endmethod. node ?= node->get_next( ). ADD 1 TO workbook_index. ENDWHILE. + + node ?= workbook->find_from_name( 'workbookView' ). + IF node IS BOUND. + fill_struct_from_attributes( EXPORTING ip_element = node CHANGING cp_structure = workbookview ). + ip_excel->set_active_sheet_index( workbookview-activetab + 1 ). + ENDIF. ENDMETHOD.