SAP/abap2xlsx
1
0
Fork 0
mirror of https://github.com/abap2xlsx/abap2xlsx.git synced 2025-05-05 16:46:11 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

Update zcl_excel_writer_2007.clas.abap

Browse Source
This commit is contained in:
Bernd 2024-06-17 08:51:23 +02:00 committed by GitHub
parent 48db7f0b1b
commit 696efc933d
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
1 changed files with 213 additions and 218 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

431
src/zcl_excel_writer_2007.clas.abap
View File

@ -4218,7 +4218,11 @@ CLASS zcl_excel_writer_2007 IMPLEMENTATION.
bottom TYPE i, bottom TYPE i,
END OF lty_table_area. END OF lty_table_area.
CONSTANTS: lc_dummy_cell_content TYPE zexcel_s_cell_data-cell_value VALUE '})~~~ This is a dummy value for ABAP2XLSX and you should never find this in a real excelsheet Ihope'. TYPES: BEGIN OF lty_row_data,
row TYPE zexcel_cell_row,
tabix_to TYPE sy-tabix,
hidden_only TYPE abap_bool,
END OF lty_row_data.
CONSTANTS: lc_xml_node_sheetdata TYPE string VALUE 'sheetData', " SheetData tag CONSTANTS: lc_xml_node_sheetdata TYPE string VALUE 'sheetData', " SheetData tag
lc_xml_node_row TYPE string VALUE 'row', " Row tag lc_xml_node_row TYPE string VALUE 'row', " Row tag
@ -4240,19 +4244,18 @@ CLASS zcl_excel_writer_2007 IMPLEMENTATION.
ls_table_area LIKE LINE OF lt_table_areas, ls_table_area LIKE LINE OF lt_table_areas,
lo_column TYPE REF TO zcl_excel_column, lo_column TYPE REF TO zcl_excel_column,
ls_row_data TYPE lty_row_data,
lt_sorted_rows LIKE SORTED TABLE OF ls_row_data WITH UNIQUE KEY row,
ls_sheet_content LIKE LINE OF io_worksheet->sheet_content, ls_sheet_content LIKE LINE OF io_worksheet->sheet_content,
ls_sheet_content_empty LIKE LINE OF io_worksheet->sheet_content,
lv_current_row TYPE i, lv_current_row TYPE i,
lv_next_row TYPE i, lv_cell_tabix TYPE sy-tabix,
lv_last_row TYPE i,
* lts_row_dimensions TYPE zexcel_t_worksheet_rowdimensio, * lts_row_dimensions TYPE zexcel_t_worksheet_rowdimensio,
lo_row_iterator TYPE REF TO zcl_excel_collection_iterator, lo_row_iterator TYPE REF TO zcl_excel_collection_iterator,
lo_row TYPE REF TO zcl_excel_row, lo_row TYPE REF TO zcl_excel_row,
lo_row_empty TYPE REF TO zcl_excel_row,
lts_row_outlines TYPE zcl_excel_worksheet=>mty_ts_outlines_row, lts_row_outlines TYPE zcl_excel_worksheet=>mty_ts_outlines_row,
ls_row_outline LIKE LINE OF lts_row_outlines,
ls_last_row TYPE zexcel_s_cell_data,
ls_style_mapping TYPE zexcel_s_styles_mapping, ls_style_mapping TYPE zexcel_s_styles_mapping,
lo_element_2 TYPE REF TO if_ixml_element, lo_element_2 TYPE REF TO if_ixml_element,
@ -4264,8 +4267,7 @@ CLASS zcl_excel_writer_2007 IMPLEMENTATION.
DATA: lt_column_formulas_used TYPE mty_column_formulas_used, DATA: lt_column_formulas_used TYPE mty_column_formulas_used,
lv_si TYPE i. lv_si TYPE i.
FIELD-SYMBOLS: <ls_sheet_content> TYPE zexcel_s_cell_data, FIELD-SYMBOLS: <ls_sheet_content> TYPE zexcel_s_cell_data.
<ls_row_outline> LIKE LINE OF lts_row_outlines.
" sheetData node " sheetData node
@ -4297,254 +4299,247 @@ CLASS zcl_excel_writer_2007 IMPLEMENTATION.
*--------------------------------------------------------------------* *--------------------------------------------------------------------*
*issue #220 - If cell in tables-area don't use default from row or column or sheet - Coding 1 - end *issue #220 - If cell in tables-area don't use default from row or column or sheet - Coding 1 - end
*--------------------------------------------------------------------* *--------------------------------------------------------------------*
*We have problems when the first rows or trailing rows are not set but we have rowinformation
*to solve this we add dummycontent into first and last line that will not be set
*Set first line if necessary
READ TABLE io_worksheet->sheet_content TRANSPORTING NO FIELDS WITH KEY cell_row = 1.
IF sy-subrc <> 0.
ls_sheet_content_empty-cell_row = 1.
ls_sheet_content_empty-cell_column = 1.
ls_sheet_content_empty-cell_value = lc_dummy_cell_content.
INSERT ls_sheet_content_empty INTO TABLE io_worksheet->sheet_content.
ENDIF.
*Set last line if necessary
*Last row with cell content
lv_last_row = io_worksheet->get_highest_row( ).
*Last line with row-information set directly ( like line height, hidden-status ... )
* Preparing the row loop
* First of all get the rows with cell content
LOOP AT io_worksheet->sheet_content INTO ls_sheet_content.
AT END OF cell_row.
ls_row_data-row = ls_sheet_content-cell_row.
ls_row_data-tabix_to = sy-tabix.
INSERT ls_row_data INTO TABLE lt_sorted_rows.
ENDAT.
ENDLOOP.
IF sy-subrc = 0.
* Get first cell data to start the WHILE loop below
lv_cell_tabix = 1.
READ TABLE io_worksheet->sheet_content ASSIGNING <ls_sheet_content> INDEX lv_cell_tabix.
CLEAR ls_row_data-tabix_to. "not set for next preparations
ENDIF.
* Get every row with relevant data
lo_row_iterator = io_worksheet->get_rows_iterator( ). lo_row_iterator = io_worksheet->get_rows_iterator( ).
WHILE lo_row_iterator->has_next( ) = abap_true. WHILE lo_row_iterator->has_next( ) = abap_true.
lo_row ?= lo_row_iterator->get_next( ). lo_row ?= lo_row_iterator->get_next( ).
IF lo_row->get_row_index( ) > lv_last_row. * It is intended not to pass io_worksheet to the three concerning methods. Outline
lv_last_row = lo_row->get_row_index( ). * rows are collected next. Therefore it is sufficiently done in the main row loop.
ENDIF. CHECK lo_row->get_row_height( ) >= 0 OR
lo_row->get_collapsed( ) = abap_true OR
lo_row->get_outline_level( ) > 0 OR
lo_row->get_xf_index( ) <> 0 OR
lo_row->get_visible( ) = abap_false.
ls_row_data-row = lo_row->get_row_index( ).
INSERT ls_row_data INTO TABLE lt_sorted_rows.
ENDWHILE. ENDWHILE.
*Last line with row-information set indirectly by row outline * Get every outline row to set outline level
lts_row_outlines = io_worksheet->get_row_outlines( ). lts_row_outlines = io_worksheet->get_row_outlines( ).
LOOP AT lts_row_outlines ASSIGNING <ls_row_outline>. LOOP AT lts_row_outlines INTO ls_row_outline.
IF <ls_row_outline>-collapsed = 'X'. IF ls_row_outline-collapsed = abap_true.
lv_current_row = <ls_row_outline>-row_to + 1. " collapsed-status may be set on following row * And include the line of the collapsed-status Symbol (+) shown below/above
ELSE. IF io_worksheet->zif_excel_sheet_properties~summarybelow = zif_excel_sheet_properties=>c_below_on.
lv_current_row = <ls_row_outline>-row_to. " collapsed-status may be set on following row ADD 1 TO ls_row_outline-row_to. " collapsed-status set on following row
ENDIF. ELSEIF ls_row_outline-row_from > 1.
IF lv_current_row > lv_last_row. SUBTRACT 1 FROM ls_row_outline-row_from. " collapsed-status set on previous row
lv_last_row = lv_current_row. ENDIF.
ENDIF. ENDIF.
lv_current_row = ls_row_outline-row_from.
WHILE lv_current_row <= ls_row_outline-row_to.
ls_row_data-row = lv_current_row.
INSERT ls_row_data INTO TABLE lt_sorted_rows.
ADD 1 TO lv_current_row.
ENDWHILE.
ENDLOOP. ENDLOOP.
READ TABLE io_worksheet->sheet_content TRANSPORTING NO FIELDS WITH KEY cell_row = lv_last_row.
IF sy-subrc <> 0. * Last of all preparations
ls_sheet_content_empty-cell_row = lv_last_row. IF lo_autofilter IS BOUND.
ls_sheet_content_empty-cell_column = 1. ls_row_data-hidden_only = abap_true.
ls_sheet_content_empty-cell_value = lc_dummy_cell_content. lv_current_row = ls_area-row_start + 1. "without header
INSERT ls_sheet_content_empty INTO TABLE io_worksheet->sheet_content. WHILE lv_current_row <= ls_area-row_end.
READ TABLE lt_sorted_rows TRANSPORTING NO FIELDS
WITH TABLE KEY row = lv_current_row.
IF sy-subrc <> 0 AND
lo_autofilter->is_row_hidden( lv_current_row ) = abap_true.
ls_row_data-row = lv_current_row.
INSERT ls_row_data INTO TABLE lt_sorted_rows.
ENDIF.
ADD 1 TO lv_current_row.
ENDWHILE.
ENDIF. ENDIF.
CLEAR ls_sheet_content. * Main row loop
LOOP AT io_worksheet->sheet_content INTO ls_sheet_content. LOOP AT lt_sorted_rows INTO ls_row_data.
CLEAR ls_style_mapping. " Add new row
*Create row element lo_element_2 = io_document->create_simple_element( name = lc_xml_node_row
*issues #346,#154, #195 - problems when we have information in row_dimension but no cell content in that row
*Get next line that may have to be added. If we have empty lines this is the next line after previous cell content
*Otherwise it is the line of the current cell content
lv_current_row = ls_last_row-cell_row + 1.
IF lv_current_row > ls_sheet_content-cell_row.
lv_current_row = ls_sheet_content-cell_row.
ENDIF.
*Fill in empty lines if necessary - assign an emtpy sheet content
lv_next_row = lv_current_row.
WHILE lv_next_row <= ls_sheet_content-cell_row.
lv_current_row = lv_next_row.
lv_next_row = lv_current_row + 1.
IF lv_current_row = ls_sheet_content-cell_row. " cell value found in this row
ASSIGN ls_sheet_content TO <ls_sheet_content>.
ELSE.
*Check if empty row is really necessary - this is basically the case when we have information in row_dimension
lo_row_empty = io_worksheet->get_row( lv_current_row ).
CHECK lo_row_empty->get_row_height( ) >= 0 OR
lo_row_empty->get_collapsed( io_worksheet ) = abap_true OR
lo_row_empty->get_outline_level( io_worksheet ) > 0 OR
lo_row_empty->get_xf_index( ) <> 0.
" Dummyentry A1
ls_sheet_content_empty-cell_row = lv_current_row.
ls_sheet_content_empty-cell_column = 1.
ASSIGN ls_sheet_content_empty TO <ls_sheet_content>.
ENDIF.
IF ls_last_row-cell_row NE <ls_sheet_content>-cell_row.
IF ls_last_row-cell_row IS NOT INITIAL.
" Row visibility of previos row.
IF lo_row->get_visible( io_worksheet ) = abap_false OR
( lo_autofilter IS BOUND AND
lo_autofilter->is_row_hidden( ls_last_row-cell_row ) = abap_true ).
lo_element_2->set_attribute_ns( name = 'hidden' value = 'true' ).
ENDIF.
rv_ixml_sheet_data_root->append_child( new_child = lo_element_2 ). " row node
ENDIF.
" Add new row
lo_element_2 = io_document->create_simple_element( name = lc_xml_node_row
parent = io_document ).
" r
lv_value = <ls_sheet_content>-cell_row.
SHIFT lv_value RIGHT DELETING TRAILING space.
SHIFT lv_value LEFT DELETING LEADING space.
lo_element_2->set_attribute_ns( name = lc_xml_attr_r
value = lv_value ).
" Spans
lv_value = col_count.
CONCATENATE '1:' lv_value INTO lv_value.
SHIFT lv_value RIGHT DELETING TRAILING space.
SHIFT lv_value LEFT DELETING LEADING space.
lo_element_2->set_attribute_ns( name = lc_xml_attr_spans
value = lv_value ).
lo_row = io_worksheet->get_row( <ls_sheet_content>-cell_row ).
" Row dimensions
IF lo_row->get_custom_height( ) = abap_true.
lo_element_2->set_attribute_ns( name = 'customHeight' value = '1' ).
ENDIF.
IF lo_row->get_row_height( ) > 0.
lv_value = lo_row->get_row_height( ).
lo_element_2->set_attribute_ns( name = 'ht' value = lv_value ).
ENDIF.
" Collapsed
IF lo_row->get_collapsed( io_worksheet ) = abap_true.
lo_element_2->set_attribute_ns( name = 'collapsed' value = 'true' ).
ENDIF.
" Outline level
IF lo_row->get_outline_level( io_worksheet ) > 0.
lv_value = lo_row->get_outline_level( io_worksheet ).
SHIFT lv_value RIGHT DELETING TRAILING space.
SHIFT lv_value LEFT DELETING LEADING space.
lo_element_2->set_attribute_ns( name = 'outlineLevel' value = lv_value ).
ENDIF.
" Style
IF lo_row->get_xf_index( ) <> 0.
lv_value = lo_row->get_xf_index( ).
lo_element_2->set_attribute_ns( name = 's' value = lv_value ).
lo_element_2->set_attribute_ns( name = 'customFormat' value = '1' ).
ENDIF.
ELSE.
ENDIF.
ENDWHILE.
lo_element_3 = io_document->create_simple_element( name = lc_xml_node_c
parent = io_document ). parent = io_document ).
" r
lv_value = ls_row_data-row.
SHIFT lv_value RIGHT DELETING TRAILING space.
SHIFT lv_value LEFT DELETING LEADING space.
lo_element_3->set_attribute_ns( name = lc_xml_attr_r lo_element_2->set_attribute_ns( name = lc_xml_attr_r
value = <ls_sheet_content>-cell_coords ). value = lv_value ).
" Spans
lv_value = col_count.
CONCATENATE '1:' lv_value INTO lv_value.
SHIFT lv_value RIGHT DELETING TRAILING space.
SHIFT lv_value LEFT DELETING LEADING space.
lo_element_2->set_attribute_ns( name = lc_xml_attr_spans
value = lv_value ).
IF ls_row_data-hidden_only = abap_false.
lo_row = io_worksheet->get_row( ls_row_data-row ).
" Row dimensions
IF lo_row->get_custom_height( ) = abap_true.
lo_element_2->set_attribute_ns( name = 'customHeight' value = '1' ).
ENDIF.
IF lo_row->get_row_height( ) > 0.
lv_value = lo_row->get_row_height( ).
lo_element_2->set_attribute_ns( name = 'ht' value = lv_value ).
ENDIF.
" Collapsed
IF lo_row->get_collapsed( io_worksheet ) = abap_true.
lo_element_2->set_attribute_ns( name = 'collapsed' value = 'true' ).
ENDIF.
" Outline level
IF lo_row->get_outline_level( io_worksheet ) > 0.
lv_value = lo_row->get_outline_level( io_worksheet ).
SHIFT lv_value RIGHT DELETING TRAILING space.
SHIFT lv_value LEFT DELETING LEADING space.
lo_element_2->set_attribute_ns( name = 'outlineLevel' value = lv_value ).
ENDIF.
" Style
IF lo_row->get_xf_index( ) <> 0.
lv_value = lo_row->get_xf_index( ).
lo_element_2->set_attribute_ns( name = 's' value = lv_value ).
lo_element_2->set_attribute_ns( name = 'customFormat' value = '1' ).
ENDIF.
" Row visibility or row hidden by autofilter
IF lo_row->get_visible( io_worksheet ) = abap_false OR
( lo_autofilter IS BOUND AND
lo_autofilter->is_row_hidden( ls_row_data-row ) = abap_true ).
lo_element_2->set_attribute_ns( name = 'hidden' value = 'true' ).
ENDIF.
ELSE.
lo_element_2->set_attribute_ns( name = 'hidden' value = 'true' ).
ENDIF.
IF ls_row_data-tabix_to > 0.
* Of course the WHILE loop corresponds to
* LOOP AT io_worksheet->sheet_content ASSIGNING <ls_sheet_content> WHERE cell_row = ls_row_data-row.
* but it should be faster this way by benefiting the consecutive loop order
WHILE lv_cell_tabix <= ls_row_data-tabix_to.
lo_element_3 = io_document->create_simple_element( name = lc_xml_node_c
parent = io_document ).
lo_element_3->set_attribute_ns( name = lc_xml_attr_r
value = <ls_sheet_content>-cell_coords ).
*begin of change issue #157 - allow column cellstyle *begin of change issue #157 - allow column cellstyle
*if no cellstyle is set, look into column, then into sheet *if no cellstyle is set, look into column, then into sheet
IF <ls_sheet_content>-cell_style IS NOT INITIAL. IF <ls_sheet_content>-cell_style IS NOT INITIAL.
lv_style_guid = <ls_sheet_content>-cell_style. lv_style_guid = <ls_sheet_content>-cell_style.
ELSE. ELSE.
*--------------------------------------------------------------------* *--------------------------------------------------------------------*
*issue #220 - If cell in tables-area don't use default from row or column or sheet - Coding 2 - start *issue #220 - If cell in tables-area don't use default from row or column or sheet - Coding 2 - start
*--------------------------------------------------------------------* *--------------------------------------------------------------------*
*Check if cell in any of the table areas *Check if cell in any of the table areas
LOOP AT lt_table_areas TRANSPORTING NO FIELDS WHERE top <= <ls_sheet_content>-cell_row LOOP AT lt_table_areas TRANSPORTING NO FIELDS WHERE top <= <ls_sheet_content>-cell_row
AND bottom >= <ls_sheet_content>-cell_row AND bottom >= <ls_sheet_content>-cell_row
AND left <= <ls_sheet_content>-cell_column AND left <= <ls_sheet_content>-cell_column
AND right >= <ls_sheet_content>-cell_column. AND right >= <ls_sheet_content>-cell_column.
EXIT. EXIT.
ENDLOOP. ENDLOOP.
IF sy-subrc = 0. IF sy-subrc = 0.
CLEAR lv_style_guid. " No style --> EXCEL will use built-in-styles as declared in the tables-section CLEAR lv_style_guid. " No style --> EXCEL will use built-in-styles as declared in the tables-section
ELSE. ELSE.
*--------------------------------------------------------------------* *--------------------------------------------------------------------*
*issue #220 - If cell in tables-area don't use default from row or column or sheet - Coding 2 - end *issue #220 - If cell in tables-area don't use default from row or column or sheet - Coding 2 - end
*--------------------------------------------------------------------* *--------------------------------------------------------------------*
lv_style_guid = io_worksheet->zif_excel_sheet_properties~get_style( ).
lo_column ?= io_worksheet->get_column( <ls_sheet_content>-cell_column ).
IF lo_column->get_column_index( ) = <ls_sheet_content>-cell_column.
lv_style_guid = lo_column->get_column_style_guid( ).
IF lv_style_guid IS INITIAL.
lv_style_guid = io_worksheet->zif_excel_sheet_properties~get_style( ). lv_style_guid = io_worksheet->zif_excel_sheet_properties~get_style( ).
ENDIF. lo_column ?= io_worksheet->get_column( <ls_sheet_content>-cell_column ).
ENDIF. IF lo_column->get_column_index( ) = <ls_sheet_content>-cell_column.
lv_style_guid = lo_column->get_column_style_guid( ).
IF lv_style_guid IS INITIAL.
lv_style_guid = io_worksheet->zif_excel_sheet_properties~get_style( ).
ENDIF.
ENDIF.
*--------------------------------------------------------------------* *--------------------------------------------------------------------*
*issue #220 - If cell in tables-area don't use default from row or column or sheet - Coding 3 - start *issue #220 - If cell in tables-area don't use default from row or column or sheet - Coding 3 - start
*--------------------------------------------------------------------* *--------------------------------------------------------------------*
ENDIF. ENDIF.
*--------------------------------------------------------------------* *--------------------------------------------------------------------*
*issue #220 - If cell in tables-area don't use default from row or column or sheet - Coding 3 - end *issue #220 - If cell in tables-area don't use default from row or column or sheet - Coding 3 - end
*--------------------------------------------------------------------* *--------------------------------------------------------------------*
ENDIF.
IF lv_style_guid IS NOT INITIAL.
READ TABLE styles_mapping INTO ls_style_mapping WITH KEY guid = lv_style_guid.
*end of change issue #157 - allow column cellstyles
lv_value = ls_style_mapping-style.
SHIFT lv_value RIGHT DELETING TRAILING space.
SHIFT lv_value LEFT DELETING LEADING space.
lo_element_3->set_attribute_ns( name = lc_xml_attr_s
value = lv_value ).
ENDIF.
" For cells with formula ignore the value - Excel will calculate it
IF <ls_sheet_content>-cell_formula IS NOT INITIAL.
" fomula node
lo_element_4 = io_document->create_simple_element( name = lc_xml_node_f
parent = io_document ).
lo_element_4->set_value( value = <ls_sheet_content>-cell_formula ).
lo_element_3->append_child( new_child = lo_element_4 ). " formula node
ELSEIF <ls_sheet_content>-column_formula_id <> 0.
create_xl_sheet_column_formula(
EXPORTING
io_document = io_document
it_column_formulas = io_worksheet->column_formulas
is_sheet_content = <ls_sheet_content>
IMPORTING
eo_element = lo_element_4
CHANGING
ct_column_formulas_used = lt_column_formulas_used
cv_si = lv_si ).
lo_element_3->append_child( new_child = lo_element_4 ).
ELSEIF <ls_sheet_content>-cell_value IS NOT INITIAL "cell can have just style or formula
AND <ls_sheet_content>-cell_value <> lc_dummy_cell_content.
IF <ls_sheet_content>-data_type IS NOT INITIAL.
IF <ls_sheet_content>-data_type EQ 's_leading_blanks'.
lo_element_3->set_attribute_ns( name = lc_xml_attr_t
value = 's' ).
ELSE.
lo_element_3->set_attribute_ns( name = lc_xml_attr_t
value = <ls_sheet_content>-data_type ).
ENDIF. ENDIF.
ENDIF. IF lv_style_guid IS NOT INITIAL.
CLEAR ls_style_mapping.
READ TABLE styles_mapping INTO ls_style_mapping WITH KEY guid = lv_style_guid.
*end of change issue #157 - allow column cellstyles
lv_value = ls_style_mapping-style.
SHIFT lv_value RIGHT DELETING TRAILING space.
SHIFT lv_value LEFT DELETING LEADING space.
lo_element_3->set_attribute_ns( name = lc_xml_attr_s
value = lv_value ).
ENDIF.
" value node " For cells with formula ignore the value - Excel will calculate it
lo_element_4 = io_document->create_simple_element( name = lc_xml_node_v IF <ls_sheet_content>-cell_formula IS NOT INITIAL.
parent = io_document ). " fomula node
lo_element_4 = io_document->create_simple_element( name = lc_xml_node_f
parent = io_document ).
lo_element_4->set_value( value = <ls_sheet_content>-cell_formula ).
lo_element_3->append_child( new_child = lo_element_4 ). " formula node
ELSEIF <ls_sheet_content>-column_formula_id <> 0.
create_xl_sheet_column_formula(
EXPORTING
io_document = io_document
it_column_formulas = io_worksheet->column_formulas
is_sheet_content = <ls_sheet_content>
IMPORTING
eo_element = lo_element_4
CHANGING
ct_column_formulas_used = lt_column_formulas_used
cv_si = lv_si ).
lo_element_3->append_child( new_child = lo_element_4 ).
ELSEIF <ls_sheet_content>-cell_value IS NOT INITIAL. "cell can have just style or formula
IF <ls_sheet_content>-data_type IS NOT INITIAL.
IF <ls_sheet_content>-data_type EQ 's_leading_blanks'.
lo_element_3->set_attribute_ns( name = lc_xml_attr_t
value = 's' ).
ELSE.
lo_element_3->set_attribute_ns( name = lc_xml_attr_t
value = <ls_sheet_content>-data_type ).
ENDIF.
ENDIF.
IF <ls_sheet_content>-data_type EQ 's' OR <ls_sheet_content>-data_type EQ 's_leading_blanks'. " value node
lv_value = me->get_shared_string_index( ip_cell_value = <ls_sheet_content>-cell_value lo_element_4 = io_document->create_simple_element( name = lc_xml_node_v
it_rtf = <ls_sheet_content>-rtf_tab ). parent = io_document ).
CONDENSE lv_value.
lo_element_4->set_value( value = lv_value ).
ELSE.
lv_value = <ls_sheet_content>-cell_value.
CONDENSE lv_value.
lo_element_4->set_value( value = lv_value ).
ENDIF.
lo_element_3->append_child( new_child = lo_element_4 ). " value node IF <ls_sheet_content>-data_type EQ 's' OR <ls_sheet_content>-data_type EQ 's_leading_blanks'.
lv_value = me->get_shared_string_index( ip_cell_value = <ls_sheet_content>-cell_value
it_rtf = <ls_sheet_content>-rtf_tab ).
CONDENSE lv_value.
lo_element_4->set_value( value = lv_value ).
ELSE.
lv_value = <ls_sheet_content>-cell_value.
CONDENSE lv_value.
lo_element_4->set_value( value = lv_value ).
ENDIF.
lo_element_3->append_child( new_child = lo_element_4 ). " value node
ENDIF.
lo_element_2->append_child( new_child = lo_element_3 ). " column node
ADD 1 TO lv_cell_tabix.
READ TABLE io_worksheet->sheet_content ASSIGNING <ls_sheet_content> INDEX lv_cell_tabix.
* sy-subrc <> 0 always corresponds to the end of the last while loop
ENDWHILE.
ENDIF. ENDIF.
lo_element_2->append_child( new_child = lo_element_3 ). " column node
ls_last_row = <ls_sheet_content>.
ENDLOOP.
IF sy-subrc = 0.
" Row visibility of previos row.
IF lo_row->get_visible( ) = abap_false OR
( lo_autofilter IS BOUND AND
lo_autofilter->is_row_hidden( ls_last_row-cell_row ) = abap_true ).
lo_element_2->set_attribute_ns( name = 'hidden' value = 'true' ).
ENDIF.
rv_ixml_sheet_data_root->append_child( new_child = lo_element_2 ). " row node rv_ixml_sheet_data_root->append_child( new_child = lo_element_2 ). " row node
ENDIF. ENDLOOP.
DELETE io_worksheet->sheet_content WHERE cell_value = lc_dummy_cell_content. " Get rid of dummyentries
ENDMETHOD. ENDMETHOD.