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

Merge branch 'master' into hvam/unit0511

Browse Source
This commit is contained in:
Lars Hvam 2021-12-27 07:44:13 +01:00 committed by GitHub
commit b415153bc7
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
21 changed files with 308 additions and 188 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
abaplint.json
View File

@ -152,7 +152,9 @@
"allowExit": false
},
"line_only_punc": false,
"obsolete_statement": false,
"obsolete_statement": {
"move": true
},
"start_at_tab": false,
"whitespace_end": true,
"exporting": false,

62
src/demos/zdemo_excel40.prog.abap
View File

@ -1,8 +1,9 @@
REPORT zdemo_excel40.
DATA: lo_excel TYPE REF TO zcl_excel,
lo_worksheet TYPE REF TO zcl_excel_worksheet.
DATA: lo_excel TYPE REF TO zcl_excel,
lo_worksheet TYPE REF TO zcl_excel_worksheet,
lo_style_changer TYPE REF TO zif_excel_style_changer.
DATA: lv_row TYPE zexcel_cell_row,
lv_col TYPE i,
@ -29,41 +30,32 @@ START-OF-SELECTION.
* - first 3 rows will have fontcolor set
* These marked cells will be used for repeatable rows/columns on printpages
*--------------------------------------------------------------------*
DO 100 TIMES. " Rows
lo_worksheet->set_area(
ip_column_start = 1
ip_column_end = 20
ip_row = 1
ip_row_to = 100
ip_formula = 'CHAR(64+COLUMN())&TEXT(ROW(),"????????0")'
ip_area = lo_worksheet->c_area-whole ).
lv_row = sy-index .
WRITE lv_row TO lv_row_char.
DO 20 TIMES.
lv_col = sy-index - 1.
CONCATENATE sy-abcde+lv_col(1) lv_row_char INTO lv_value.
lv_col = sy-index.
lo_worksheet->set_cell( ip_row = lv_row
ip_column = lv_col
ip_value = lv_value ).
TRY.
IF lv_row <= 3.
lo_worksheet->change_cell_style( ip_column = lv_col
ip_row = lv_row
ip_fill_filltype = zcl_excel_style_fill=>c_fill_solid
ip_fill_fgcolor_rgb = zcl_excel_style_color=>c_yellow ).
ENDIF.
IF lv_col <= 4.
lo_worksheet->change_cell_style( ip_column = lv_col
ip_row = lv_row
ip_font_color_rgb = zcl_excel_style_color=>c_red ).
ENDIF.
CATCH zcx_excel .
ENDTRY.
ENDDO.
ENDDO.
lo_style_changer = zcl_excel_style_changer=>create( lo_excel ).
lo_style_changer->set_fill_filltype( zcl_excel_style_fill=>c_fill_solid ).
lo_style_changer->set_fill_fgcolor_rgb( zcl_excel_style_color=>c_yellow ).
lo_worksheet->change_area_style(
ip_column_start = 1
ip_column_end = 20
ip_row = 1
ip_row_to = 3
ip_style_changer = lo_style_changer ).
lo_style_changer = zcl_excel_style_changer=>create( lo_excel ).
lo_style_changer->set_font_color_rgb( zcl_excel_style_color=>c_red ).
lo_worksheet->change_area_style(
ip_column_start = 1
ip_column_end = 4
ip_row = 1
ip_row_to = 100
ip_style_changer = lo_style_changer ).
*--------------------------------------------------------------------*
* Printsettings

4
src/demos/zdemo_excel40.prog.xml
View File

@ -13,8 +13,8 @@
<TPOOL>
<item>
<ID>R</ID>
<ENTRY>abap2xlsx Demo: Print settings</ENTRY>
<LENGTH>30</LENGTH>
<ENTRY>abap2xlsx Demo: Area and Print settings</ENTRY>
<LENGTH>39</LENGTH>
</item>
<item>
<ID>S</ID>

10
src/not_cloud/zcl_excel_ole.clas.abap
View File

@ -1325,13 +1325,13 @@ CLASS zcl_excel_ole IMPLEMENTATION.
contentsitem-row = realoverflow.
IF sy-subrc = 0.
MOVE semaitem-col_ops TO search_item(3).
search_item(3) = semaitem-col_ops.
SEARCH 'ADD#CNT#MIN#MAX#AVG#NOP#DFT#'
FOR search_item.
IF sy-subrc NE 0.
RAISE error_in_sema.
ENDIF.
MOVE semaitem-col_typ TO search_item(3).
search_item(3) = semaitem-col_typ.
SEARCH 'NUM#N00#N01#N02#N03#N04#PCT#DAT#MON#STR#'
FOR search_item.
IF sy-subrc NE 0.
@ -1382,7 +1382,7 @@ CLASS zcl_excel_ole IMPLEMENTATION.
CLEAR contentsitem-value.
ENDIF.
ELSE.
MOVE <item> TO contentsitem-value.
contentsitem-value = <item>.
ENDIF.
ELSEIF semaitem-col_typ EQ 'NUM' OR
semaitem-col_typ EQ 'N00' OR
@ -1758,7 +1758,7 @@ CLASS zcl_excel_ole IMPLEMENTATION.
IF curritem-left EQ curritem2-left.
length = curritem-top + curritem-rows.
IF length EQ curritem2-top AND curritem-decimals EQ curritem2-decimals.
MOVE curritem TO curritem3.
curritem3 = curritem.
curritem3-rows = curritem3-rows + curritem2-rows.
curritem-left = -1.
MODIFY currcells INDEX sy-index FROM curritem.
@ -1794,7 +1794,7 @@ CLASS zcl_excel_ole IMPLEMENTATION.
curritem2-rows.
length = curritem-left + curritem-columns.
IF length EQ curritem2-left AND curritem-decimals EQ curritem2-decimals.
MOVE curritem TO curritem3.
curritem3 = curritem.
curritem3-columns = curritem3-columns + curritem2-columns.
curritem-left = -1.
MODIFY currcells INDEX sy-index FROM curritem.

23
src/zcl_excel_columns.clas.abap
View File

@ -6,13 +6,6 @@ CLASS zcl_excel_columns DEFINITION
*"* public components of class ZCL_EXCEL_COLUMNS
*"* do not include other source files here!!!
PUBLIC SECTION.
TYPES:
BEGIN OF mty_s_hashed_column,
column_index TYPE int4,
column TYPE REF TO zcl_excel_column,
END OF mty_s_hashed_column ,
mty_ts_hasehd_column TYPE HASHED TABLE OF mty_s_hashed_column WITH UNIQUE KEY column_index.
METHODS add
IMPORTING
!io_column TYPE REF TO zcl_excel_column .
@ -41,9 +34,15 @@ CLASS zcl_excel_columns DEFINITION
*"* private components of class ZABAP_EXCEL_RANGES
*"* do not include other source files here!!!
PRIVATE SECTION.
TYPES:
BEGIN OF mty_s_hashed_column,
column_index TYPE int4,
column TYPE REF TO zcl_excel_column,
END OF mty_s_hashed_column ,
mty_ts_hashed_column TYPE HASHED TABLE OF mty_s_hashed_column WITH UNIQUE KEY column_index.
DATA columns TYPE REF TO cl_object_collection .
DATA columns_hasehd TYPE mty_ts_hasehd_column .
DATA columns_hashed TYPE mty_ts_hashed_column .
ENDCLASS.
@ -57,14 +56,14 @@ CLASS zcl_excel_columns IMPLEMENTATION.
ls_hashed_column-column_index = io_column->get_column_index( ).
ls_hashed_column-column = io_column.
INSERT ls_hashed_column INTO TABLE columns_hasehd .
INSERT ls_hashed_column INTO TABLE columns_hashed .
columns->add( io_column ).
ENDMETHOD.
METHOD clear.
CLEAR columns_hasehd.
CLEAR columns_hashed.
columns->clear( ).
ENDMETHOD.
@ -79,7 +78,7 @@ CLASS zcl_excel_columns IMPLEMENTATION.
METHOD get.
FIELD-SYMBOLS: <ls_hashed_column> TYPE mty_s_hashed_column.
READ TABLE columns_hasehd WITH KEY column_index = ip_index ASSIGNING <ls_hashed_column>.
READ TABLE columns_hashed WITH KEY column_index = ip_index ASSIGNING <ls_hashed_column>.
IF sy-subrc = 0.
eo_column = <ls_hashed_column>-column.
ENDIF.
@ -97,7 +96,7 @@ CLASS zcl_excel_columns IMPLEMENTATION.
METHOD remove.
DELETE TABLE columns_hasehd WITH TABLE KEY column_index = io_column->get_column_index( ) .
DELETE TABLE columns_hashed WITH TABLE KEY column_index = io_column->get_column_index( ) .
columns->remove( io_column ).
ENDMETHOD.

4
src/zcl_excel_common.clas.abap
View File

@ -1261,7 +1261,7 @@ CLASS zcl_excel_common IMPLEMENTATION.
* Capture reference cell address
*--------------------------------------------------------------------*
TRY.
MOVE: lv_ref_formula+lv_offset1(lv_tlen) TO lv_ref_cell_addr. "Ref cell address
lv_ref_cell_addr = lv_ref_formula+lv_offset1(lv_tlen). "Ref cell address
CATCH cx_root.
lv_errormessage = 'Internal error in Class ZCL_EXCEL_COMMON Method SHIFT_FORMULA Spot 1 '. " Change to messageclass if possible
zcx_excel=>raise_text( lv_errormessage ).
@ -1445,7 +1445,7 @@ CLASS zcl_excel_common IMPLEMENTATION.
* Return resulting formula
*--------------------------------------------------------------------*
IF lv_cur_form IS NOT INITIAL.
MOVE lv_cur_form TO ev_resulting_formula.
ev_resulting_formula = lv_cur_form.
ENDIF.
ENDMETHOD.

14
src/zcl_excel_converter.clas.abap
View File

@ -163,28 +163,28 @@ CLASS zcl_excel_converter DEFINITION
METHODS create_style_normal
IMPORTING
!i_alignment TYPE zexcel_alignment OPTIONAL
!i_inttype TYPE inttype OPTIONAL
!i_inttype TYPE abap_typekind OPTIONAL
!i_decimals TYPE int1 OPTIONAL
RETURNING
VALUE(ro_style) TYPE REF TO zcl_excel_style .
METHODS create_style_stripped
IMPORTING
!i_alignment TYPE zexcel_alignment OPTIONAL
!i_inttype TYPE inttype OPTIONAL
!i_inttype TYPE abap_typekind OPTIONAL
!i_decimals TYPE int1 OPTIONAL
RETURNING
VALUE(ro_style) TYPE REF TO zcl_excel_style .
METHODS create_style_subtotal
IMPORTING
!i_alignment TYPE zexcel_alignment OPTIONAL
!i_inttype TYPE inttype OPTIONAL
!i_inttype TYPE abap_typekind OPTIONAL
!i_decimals TYPE int1 OPTIONAL
RETURNING
VALUE(ro_style) TYPE REF TO zcl_excel_style .
METHODS create_style_total
IMPORTING
!i_alignment TYPE zexcel_alignment OPTIONAL
!i_inttype TYPE inttype OPTIONAL
!i_inttype TYPE abap_typekind OPTIONAL
!i_decimals TYPE int1 OPTIONAL
RETURNING
VALUE(ro_style) TYPE REF TO zcl_excel_style .
@ -223,7 +223,7 @@ CLASS zcl_excel_converter DEFINITION
IMPORTING
!i_type TYPE ty_style_type
!i_alignment TYPE zexcel_alignment DEFAULT space
!i_inttype TYPE inttype DEFAULT space
!i_inttype TYPE abap_typekind DEFAULT space
!i_decimals TYPE int1 DEFAULT 0
RETURNING
VALUE(r_style) TYPE zexcel_cell_style .
@ -246,7 +246,7 @@ CLASS zcl_excel_converter DEFINITION
METHODS set_autofilter_area .
METHODS set_cell_format
IMPORTING
!i_inttype TYPE inttype
!i_inttype TYPE abap_typekind
!i_decimals TYPE int1
RETURNING
VALUE(r_format) TYPE zexcel_number_format .
@ -836,7 +836,7 @@ CLASS zcl_excel_converter IMPLEMENTATION.
CLEAR l_func.
ENDCASE.
MOVE i_value TO l_string.
l_string = i_value.
CONCATENATE l_string l_func INTO r_text SEPARATED BY space.

2
src/zcl_excel_converter.clas.locals_def.abap
View File

@ -31,7 +31,7 @@ TYPES: BEGIN OF ts_subtotal_rows,
TYPES: BEGIN OF ts_styles,
type TYPE ty_style_type,
alignment TYPE zexcel_alignment,
inttype TYPE inttype,
inttype TYPE abap_typekind,
decimals TYPE int1,
style TYPE REF TO zcl_excel_style,
guid TYPE zexcel_cell_style,

4
src/zcl_excel_reader_2007.clas.abap
View File

@ -3806,7 +3806,7 @@ CLASS zcl_excel_reader_2007 IMPLEMENTATION.
lv_actual_length_line TYPE i,
lv_errormessage TYPE string.
MOVE i_filename TO lv_filename.
lv_filename = i_filename.
DESCRIBE FIELD ls_binary_data LENGTH lv_max_length_line IN BYTE MODE.
OPEN DATASET lv_filename FOR INPUT IN BINARY MODE.
@ -3843,7 +3843,7 @@ CLASS zcl_excel_reader_2007 IMPLEMENTATION.
lv_filename TYPE string,
lv_errormessage TYPE string.
MOVE i_filename TO lv_filename.
lv_filename = i_filename.
cl_gui_frontend_services=>gui_upload( EXPORTING
filename = lv_filename

27
src/zcl_excel_rows.clas.abap
View File

@ -13,13 +13,6 @@ CLASS zcl_excel_rows DEFINITION
*"* protected components of class ZABAP_EXCEL_WORKSHEETS
*"* do not include other source files here!!!
PUBLIC SECTION.
TYPES:
BEGIN OF mty_s_hashed_row,
row_index TYPE int4,
row TYPE REF TO zcl_excel_row,
END OF mty_s_hashed_row ,
mty_ts_hasehd_row TYPE HASHED TABLE OF mty_s_hashed_row WITH UNIQUE KEY row_index.
METHODS add
IMPORTING
!io_row TYPE REF TO zcl_excel_row .
@ -52,9 +45,15 @@ CLASS zcl_excel_rows DEFINITION
*"* private components of class ZABAP_EXCEL_RANGES
*"* do not include other source files here!!!
PRIVATE SECTION.
TYPES:
BEGIN OF mty_s_hashed_row,
row_index TYPE int4,
row TYPE REF TO zcl_excel_row,
END OF mty_s_hashed_row ,
mty_ts_hashed_row TYPE HASHED TABLE OF mty_s_hashed_row WITH UNIQUE KEY row_index.
DATA rows TYPE REF TO cl_object_collection .
DATA rows_hasehd TYPE mty_ts_hasehd_row .
DATA rows_hashed TYPE mty_ts_hashed_row .
ENDCLASS.
@ -69,14 +68,14 @@ CLASS zcl_excel_rows IMPLEMENTATION.
ls_hashed_row-row_index = io_row->get_row_index( ).
ls_hashed_row-row = io_row.
INSERT ls_hashed_row INTO TABLE rows_hasehd.
INSERT ls_hashed_row INTO TABLE rows_hashed.
rows->add( io_row ).
ENDMETHOD. "ADD
METHOD clear.
CLEAR rows_hasehd.
CLEAR rows_hashed.
rows->clear( ).
ENDMETHOD. "CLEAR
@ -91,7 +90,7 @@ CLASS zcl_excel_rows IMPLEMENTATION.
METHOD get.
FIELD-SYMBOLS: <ls_hashed_row> TYPE mty_s_hashed_row.
READ TABLE rows_hasehd WITH KEY row_index = ip_index ASSIGNING <ls_hashed_row>.
READ TABLE rows_hashed WITH KEY row_index = ip_index ASSIGNING <ls_hashed_row>.
IF sy-subrc = 0.
eo_row = <ls_hashed_row>-row.
ENDIF.
@ -109,7 +108,7 @@ CLASS zcl_excel_rows IMPLEMENTATION.
METHOD remove.
DELETE TABLE rows_hasehd WITH TABLE KEY row_index = io_row->get_row_index( ) .
DELETE TABLE rows_hashed WITH TABLE KEY row_index = io_row->get_row_index( ) .
rows->remove( io_row ).
ENDMETHOD. "REMOVE
@ -121,7 +120,7 @@ CLASS zcl_excel_rows IMPLEMENTATION.
METHOD get_min_index.
FIELD-SYMBOLS: <ls_hashed_row> TYPE mty_s_hashed_row.
LOOP AT rows_hasehd ASSIGNING <ls_hashed_row>.
LOOP AT rows_hashed ASSIGNING <ls_hashed_row>.
IF ep_index = 0 OR <ls_hashed_row>-row_index < ep_index.
ep_index = <ls_hashed_row>-row_index.
ENDIF.
@ -131,7 +130,7 @@ CLASS zcl_excel_rows IMPLEMENTATION.
METHOD get_max_index.
FIELD-SYMBOLS: <ls_hashed_row> TYPE mty_s_hashed_row.
LOOP AT rows_hasehd ASSIGNING <ls_hashed_row>.
LOOP AT rows_hashed ASSIGNING <ls_hashed_row>.
IF <ls_hashed_row>-row_index > ep_index.
ep_index = <ls_hashed_row>-row_index.
ENDIF.

8
src/zcl_excel_style_changer.clas.abap
View File

@ -574,10 +574,10 @@ CLASS zcl_excel_style_changer IMPLEMENTATION.
fontx = ip_xfont.
ELSE.
* Only supplied values should be used - exception: Flags bold and italic strikethrough underline
MOVE 'X' TO: fontx-bold,
fontx-italic,
fontx-strikethrough,
fontx-underline_mode.
fontx-bold = 'X'.
fontx-italic = 'X'.
fontx-strikethrough = 'X'.
fontx-underline_mode = 'X'.
CLEAR fontx-color WITH 'X'.
clear_initial_colorxfields(
EXPORTING

142
src/zcl_excel_worksheet.clas.abap
View File

@ -176,6 +176,15 @@ CLASS zcl_excel_worksheet DEFINITION
METHODS calculate_column_widths
RAISING
zcx_excel .
METHODS change_area_style
IMPORTING
!ip_column_start TYPE simple
!ip_column_end TYPE simple OPTIONAL
!ip_row TYPE zexcel_cell_row
!ip_row_to TYPE zexcel_cell_row OPTIONAL
!ip_style_changer TYPE REF TO zif_excel_style_changer
RAISING
zcx_excel.
METHODS change_cell_style
IMPORTING
!ip_column TYPE simple
@ -1387,6 +1396,65 @@ CLASS zcl_excel_worksheet IMPLEMENTATION.
ENDMETHOD. "CALCULATE_COLUMN_WIDTHS
METHOD change_area_style.
DATA: lv_row TYPE zexcel_cell_row,
lv_row_start TYPE zexcel_cell_row,
lv_row_to TYPE zexcel_cell_row,
lv_column_int TYPE zexcel_cell_column_alpha,
lv_column TYPE zexcel_cell_column_alpha,
lv_column_start TYPE zexcel_cell_column_alpha,
lv_column_end TYPE zexcel_cell_column_alpha,
lv_column_start_int TYPE zexcel_cell_column_alpha,
lv_column_end_int TYPE zexcel_cell_column_alpha.
lv_row_to = ip_row_to.
lv_row = ip_row.
IF lv_row_to IS INITIAL OR ip_row_to IS NOT SUPPLIED.
lv_row_to = lv_row.
ENDIF.
lv_column_start = ip_column_start.
lv_column_end = ip_column_end.
IF lv_column_end IS INITIAL OR ip_column_end IS NOT SUPPLIED.
lv_column_end = lv_column_start.
ENDIF.
lv_column_start_int = zcl_excel_common=>convert_column2int( lv_column_start ).
lv_column_end_int = zcl_excel_common=>convert_column2int( lv_column_end ).
IF lv_column_start_int > lv_column_end_int OR lv_row > lv_row_to.
RAISE EXCEPTION TYPE zcx_excel
EXPORTING
error = 'Wrong Merging Parameters'.
ENDIF.
lv_column_int = lv_column_start_int.
lv_row_start = lv_row.
WHILE lv_column_int <= lv_column_end_int.
lv_column = zcl_excel_common=>convert_column2alpha( lv_column_int ).
lv_row = lv_row_start.
WHILE lv_row <= lv_row_to.
ip_style_changer->apply( ip_worksheet = me
ip_column = lv_column_int
ip_row = lv_row ).
ADD 1 TO lv_row.
ENDWHILE.
ADD 1 TO lv_column_int.
ENDWHILE.
ENDMETHOD.
METHOD change_cell_style.
DATA: changer TYPE REF TO zif_excel_style_changer.
@ -2074,12 +2142,28 @@ CLASS zcl_excel_worksheet IMPLEMENTATION.
METHOD get_columns.
DATA: columns TYPE TABLE OF i,
column TYPE i.
FIELD-SYMBOLS:
<sheet_cell> TYPE zexcel_s_cell_data.
LOOP AT sheet_content ASSIGNING <sheet_cell>.
COLLECT <sheet_cell>-cell_column INTO columns.
ENDLOOP.
LOOP AT columns INTO column.
" This will create the column instance if it doesn't exist
get_column( column ).
ENDLOOP.
eo_columns = me->columns.
ENDMETHOD. "GET_COLUMNS
METHOD get_columns_iterator.
get_columns( ).
eo_iterator = me->columns->get_iterator( ).
ENDMETHOD. "GET_COLUMNS_ITERATOR
@ -2426,12 +2510,40 @@ CLASS zcl_excel_worksheet IMPLEMENTATION.
METHOD get_rows.
DATA: row TYPE i.
FIELD-SYMBOLS: <sheet_cell> TYPE zexcel_s_cell_data.
IF sheet_content IS NOT INITIAL.
row = 0.
DO.
" Find the next row
READ TABLE sheet_content ASSIGNING <sheet_cell> WITH KEY cell_row = row.
CASE sy-subrc.
WHEN 4.
" row doesn't exist, but it exists another row, SY-TABIX points to the first cell in this row.
READ TABLE sheet_content ASSIGNING <sheet_cell> INDEX sy-tabix.
ASSERT sy-subrc = 0.
row = <sheet_cell>-cell_row.
WHEN 8.
" it was the last available row
EXIT.
ENDCASE.
" This will create the row instance if it doesn't exist
get_row( row ).
row = row + 1.
ENDDO.
ENDIF.
eo_rows = me->rows.
ENDMETHOD. "GET_ROWS
METHOD get_rows_iterator.
get_rows( ).
eo_iterator = me->rows->get_iterator( ).
ENDMETHOD. "GET_ROWS_ITERATOR
@ -2874,15 +2986,15 @@ CLASS zcl_excel_worksheet IMPLEMENTATION.
lv_column_start_int TYPE zexcel_cell_column_alpha,
lv_column_end_int TYPE zexcel_cell_column_alpha.
MOVE: ip_row_to TO lv_row_end,
ip_row TO lv_row.
lv_row_end = ip_row_to.
lv_row = ip_row.
IF lv_row_end IS INITIAL OR ip_row_to IS NOT SUPPLIED.
lv_row_end = lv_row.
ENDIF.
MOVE: ip_column_start TO lv_column_start,
ip_column_end TO lv_column_end.
lv_column_start = ip_column_start.
lv_column_end = ip_column_end.
IF lv_column_end IS INITIAL OR ip_column_end IS NOT SUPPLIED.
lv_column_end = lv_column_start.
@ -2997,14 +3109,14 @@ CLASS zcl_excel_worksheet IMPLEMENTATION.
ld_column_int TYPE zexcel_cell_column_alpha,
ld_column_end_int TYPE zexcel_cell_column_alpha.
MOVE: ip_row_to TO ld_row_end,
ip_row TO ld_row.
ld_row_end = ip_row_to.
ld_row = ip_row.
IF ld_row_end IS INITIAL OR ip_row_to IS NOT SUPPLIED.
ld_row_end = ld_row.
ENDIF.
MOVE: ip_column_start TO ld_column,
ip_column_end TO ld_column_end.
ld_column = ip_column_start.
ld_column_end = ip_column_end.
IF ld_column_end IS INITIAL OR ip_column_end IS NOT SUPPLIED.
ld_column_end = ld_column.
@ -3063,8 +3175,8 @@ CLASS zcl_excel_worksheet IMPLEMENTATION.
DATA: lv_column TYPE zexcel_cell_column,
lo_hyperlink TYPE REF TO zcl_excel_hyperlink.
MOVE: ip_row_to TO ld_row_end,
ip_row TO ld_row_start.
ld_row_end = ip_row_to.
ld_row_start = ip_row.
IF ld_row_end IS INITIAL OR ip_row_to IS NOT SUPPLIED.
ld_row_end = ld_row_start.
ENDIF.
@ -3106,8 +3218,8 @@ CLASS zcl_excel_worksheet IMPLEMENTATION.
ld_current_column TYPE zexcel_cell_column_alpha,
ld_current_row TYPE zexcel_cell_row.
MOVE: ip_row_to TO ld_row_end,
ip_row TO ld_row_start.
ld_row_end = ip_row_to.
ld_row_start = ip_row.
IF ld_row_end IS INITIAL OR ip_row_to IS NOT SUPPLIED.
ld_row_end = ld_row_start.
ENDIF.
@ -3577,8 +3689,8 @@ CLASS zcl_excel_worksheet IMPLEMENTATION.
ld_current_column TYPE zexcel_cell_column_alpha,
ld_current_row TYPE zexcel_cell_row.
MOVE: ip_row_to TO ld_row_end,
ip_row TO ld_row_start.
ld_row_end = ip_row_to.
ld_row_start = ip_row.
IF ld_row_end IS INITIAL.
ld_row_end = ld_row_start.
ENDIF.
@ -3720,7 +3832,7 @@ CLASS zcl_excel_worksheet IMPLEMENTATION.
LOOP AT ip_table ASSIGNING <fs_table_line>.
lv_column_alpha = zcl_excel_common=>convert_column2alpha( lv_column_int ).
ASSIGN COMPONENT <fs_dfies>-fieldname OF STRUCTURE <fs_table_line> TO <fs_fldval>.
MOVE <fs_fldval> TO lv_cell_value.
lv_cell_value = <fs_fldval>.
me->set_cell( ip_column = lv_column_alpha
ip_row = lv_row_int
ip_value = <fs_fldval> "lv_cell_value

6
src/zcl_excel_worksheet.clas.xml
View File

@ -189,6 +189,12 @@
<LANGU>I</LANGU>
<DESCRIPT>Calculate widths for auto-size columns</DESCRIPT>
</SEOCOMPOTX>
<SEOCOMPOTX>
<CLSNAME>ZCL_EXCEL_WORKSHEET</CLSNAME>
<CMPNAME>CHANGE_AREA_STYLE</CMPNAME>
<LANGU>E</LANGU>
<DESCRIPT>Change area style</DESCRIPT>
</SEOCOMPOTX>
<SEOCOMPOTX>
<CLSNAME>ZCL_EXCEL_WORKSHEET</CLSNAME>
<CMPNAME>CHANGE_CELL_STYLE</CMPNAME>

142
src/zcl_excel_writer_2007.clas.abap
View File

@ -699,7 +699,7 @@ CLASS zcl_excel_writer_2007 IMPLEMENTATION.
lo_element = lo_document->create_simple_element( name = lc_xml_node_override
parent = lo_document ).
MOVE sy-index TO lv_worksheets_numc.
lv_worksheets_numc = sy-index.
SHIFT lv_worksheets_numc LEFT DELETING LEADING '0'.
lv_xml_node_worksheet_pn = lc_xml_node_worksheet_pn.
REPLACE ALL OCCURRENCES OF '#' IN lv_xml_node_worksheet_pn WITH lv_worksheets_numc.
@ -3589,7 +3589,7 @@ CLASS zcl_excel_writer_2007 IMPLEMENTATION.
DELETE lt_cell_data WHERE cell_formula IS NOT INITIAL. " delete formula content
DESCRIBE TABLE lt_cell_data LINES lv_count.
MOVE lv_count TO lv_count_str.
lv_count_str = lv_count.
" separating plain and rich text format strings
lt_cell_data_rtf = lt_cell_data.
@ -3611,7 +3611,7 @@ CLASS zcl_excel_writer_2007 IMPLEMENTATION.
FREE lt_cell_data_rtf.
DESCRIBE TABLE lt_cell_data LINES lv_uniquecount.
MOVE lv_uniquecount TO lv_uniquecount_str.
lv_uniquecount_str = lv_uniquecount.
SHIFT lv_uniquecount_str RIGHT DELETING TRAILING space.
SHIFT lv_uniquecount_str LEFT DELETING LEADING space.
@ -3620,9 +3620,9 @@ CLASS zcl_excel_writer_2007 IMPLEMENTATION.
LOOP AT lt_cell_data ASSIGNING <fs_sheet_content> WHERE data_type = 's'.
* lv_sytabix = sy-tabix - 1.
lv_sytabix = lv_count.
MOVE lv_sytabix TO ls_shared_string-string_no.
MOVE <fs_sheet_content>-cell_value TO ls_shared_string-string_value.
MOVE <fs_sheet_content>-data_type TO ls_shared_string-string_type.
ls_shared_string-string_no = lv_sytabix.
ls_shared_string-string_value = <fs_sheet_content>-cell_value.
ls_shared_string-string_type = <fs_sheet_content>-data_type.
ls_shared_string-rtf_tab = <fs_sheet_content>-rtf_tab.
INSERT ls_shared_string INTO TABLE shared_strings.
ADD 1 TO lv_count.
@ -4395,7 +4395,7 @@ CLASS zcl_excel_writer_2007 IMPLEMENTATION.
" sheetProtection node
lo_element = lo_document->create_simple_element( name = lc_xml_node_sheetprotection
parent = lo_document ).
MOVE io_worksheet->zif_excel_sheet_protection~password TO lv_value.
lv_value = io_worksheet->zif_excel_sheet_protection~password.
IF lv_value IS NOT INITIAL.
lo_element->set_attribute_ns( name = lc_xml_attr_password
value = lv_value ).
@ -4669,12 +4669,12 @@ CLASS zcl_excel_writer_2007 IMPLEMENTATION.
lo_element_3 = lo_document->create_simple_element( name = lc_xml_node_databar
parent = lo_document ).
MOVE ls_databar-cfvo1_value TO ls_cfvo-value.
MOVE ls_databar-cfvo1_type TO ls_cfvo-type.
ls_cfvo-value = ls_databar-cfvo1_value.
ls_cfvo-type = ls_databar-cfvo1_type.
APPEND ls_cfvo TO lt_cfvo.
MOVE ls_databar-cfvo2_value TO ls_cfvo-value.
MOVE ls_databar-cfvo2_type TO ls_cfvo-type.
ls_cfvo-value = ls_databar-cfvo2_value.
ls_cfvo-type = ls_databar-cfvo2_type.
APPEND ls_cfvo TO lt_cfvo.
LOOP AT lt_cfvo INTO ls_cfvo.
@ -4709,16 +4709,16 @@ CLASS zcl_excel_writer_2007 IMPLEMENTATION.
lo_element_3 = lo_document->create_simple_element( name = lc_xml_node_colorscale
parent = lo_document ).
MOVE ls_colorscale-cfvo1_value TO ls_cfvo-value.
MOVE ls_colorscale-cfvo1_type TO ls_cfvo-type.
ls_cfvo-value = ls_colorscale-cfvo1_value.
ls_cfvo-type = ls_colorscale-cfvo1_type.
APPEND ls_cfvo TO lt_cfvo.
MOVE ls_colorscale-cfvo2_value TO ls_cfvo-value.
MOVE ls_colorscale-cfvo2_type TO ls_cfvo-type.
ls_cfvo-value = ls_colorscale-cfvo2_value.
ls_cfvo-type = ls_colorscale-cfvo2_type.
APPEND ls_cfvo TO lt_cfvo.
MOVE ls_colorscale-cfvo3_value TO ls_cfvo-value.
MOVE ls_colorscale-cfvo3_type TO ls_cfvo-type.
ls_cfvo-value = ls_colorscale-cfvo3_value.
ls_cfvo-type = ls_colorscale-cfvo3_type.
APPEND ls_cfvo TO lt_cfvo.
APPEND ls_colorscale-colorrgb1 TO lt_colors.
@ -4788,50 +4788,50 @@ CLASS zcl_excel_writer_2007 IMPLEMENTATION.
zcl_excel_style_cond=>c_iconset_3symbols2 OR
zcl_excel_style_cond=>c_iconset_3trafficlights OR
zcl_excel_style_cond=>c_iconset_3trafficlights2.
MOVE ls_iconset-cfvo1_value TO ls_cfvo-value.
MOVE ls_iconset-cfvo1_type TO ls_cfvo-type.
ls_cfvo-value = ls_iconset-cfvo1_value.
ls_cfvo-type = ls_iconset-cfvo1_type.
APPEND ls_cfvo TO lt_cfvo.
MOVE ls_iconset-cfvo2_value TO ls_cfvo-value.
MOVE ls_iconset-cfvo2_type TO ls_cfvo-type.
ls_cfvo-value = ls_iconset-cfvo2_value.
ls_cfvo-type = ls_iconset-cfvo2_type.
APPEND ls_cfvo TO lt_cfvo.
MOVE ls_iconset-cfvo3_value TO ls_cfvo-value.
MOVE ls_iconset-cfvo3_type TO ls_cfvo-type.
ls_cfvo-value = ls_iconset-cfvo3_value.
ls_cfvo-type = ls_iconset-cfvo3_type.
APPEND ls_cfvo TO lt_cfvo.
WHEN zcl_excel_style_cond=>c_iconset_4arrows OR
zcl_excel_style_cond=>c_iconset_4arrowsgray OR
zcl_excel_style_cond=>c_iconset_4rating OR
zcl_excel_style_cond=>c_iconset_4redtoblack OR
zcl_excel_style_cond=>c_iconset_4trafficlights.
MOVE ls_iconset-cfvo1_value TO ls_cfvo-value.
MOVE ls_iconset-cfvo1_type TO ls_cfvo-type.
ls_cfvo-value = ls_iconset-cfvo1_value.
ls_cfvo-type = ls_iconset-cfvo1_type.
APPEND ls_cfvo TO lt_cfvo.
MOVE ls_iconset-cfvo2_value TO ls_cfvo-value.
MOVE ls_iconset-cfvo2_type TO ls_cfvo-type.
ls_cfvo-value = ls_iconset-cfvo2_value.
ls_cfvo-type = ls_iconset-cfvo2_type.
APPEND ls_cfvo TO lt_cfvo.
MOVE ls_iconset-cfvo3_value TO ls_cfvo-value.
MOVE ls_iconset-cfvo3_type TO ls_cfvo-type.
ls_cfvo-value = ls_iconset-cfvo3_value.
ls_cfvo-type = ls_iconset-cfvo3_type.
APPEND ls_cfvo TO lt_cfvo.
MOVE ls_iconset-cfvo4_value TO ls_cfvo-value.
MOVE ls_iconset-cfvo4_type TO ls_cfvo-type.
ls_cfvo-value = ls_iconset-cfvo4_value.
ls_cfvo-type = ls_iconset-cfvo4_type.
APPEND ls_cfvo TO lt_cfvo.
WHEN zcl_excel_style_cond=>c_iconset_5arrows OR
zcl_excel_style_cond=>c_iconset_5arrowsgray OR
zcl_excel_style_cond=>c_iconset_5quarters OR
zcl_excel_style_cond=>c_iconset_5rating.
MOVE ls_iconset-cfvo1_value TO ls_cfvo-value.
MOVE ls_iconset-cfvo1_type TO ls_cfvo-type.
ls_cfvo-value = ls_iconset-cfvo1_value.
ls_cfvo-type = ls_iconset-cfvo1_type.
APPEND ls_cfvo TO lt_cfvo.
MOVE ls_iconset-cfvo2_value TO ls_cfvo-value.
MOVE ls_iconset-cfvo2_type TO ls_cfvo-type.
ls_cfvo-value = ls_iconset-cfvo2_value.
ls_cfvo-type = ls_iconset-cfvo2_type.
APPEND ls_cfvo TO lt_cfvo.
MOVE ls_iconset-cfvo3_value TO ls_cfvo-value.
MOVE ls_iconset-cfvo3_type TO ls_cfvo-type.
ls_cfvo-value = ls_iconset-cfvo3_value.
ls_cfvo-type = ls_iconset-cfvo3_type.
APPEND ls_cfvo TO lt_cfvo.
MOVE ls_iconset-cfvo4_value TO ls_cfvo-value.
MOVE ls_iconset-cfvo4_type TO ls_cfvo-type.
ls_cfvo-value = ls_iconset-cfvo4_value.
ls_cfvo-type = ls_iconset-cfvo4_type.
APPEND ls_cfvo TO lt_cfvo.
MOVE ls_iconset-cfvo5_value TO ls_cfvo-value.
MOVE ls_iconset-cfvo5_type TO ls_cfvo-type.
ls_cfvo-value = ls_iconset-cfvo5_value.
ls_cfvo-type = ls_iconset-cfvo5_type.
APPEND ls_cfvo TO lt_cfvo.
WHEN OTHERS.
CLEAR lt_cfvo.
@ -5791,7 +5791,7 @@ CLASS zcl_excel_writer_2007 IMPLEMENTATION.
lv_index_str = iv_drawing_index.
CONDENSE lv_index_str NO-GAPS.
MOVE me->c_xl_drawings TO lv_value.
lv_value = me->c_xl_drawings.
REPLACE 'xl' WITH '..' INTO lv_value.
REPLACE '#' WITH lv_index_str INTO lv_value.
lo_element->set_attribute_ns( name = lc_xml_attr_target
@ -5823,7 +5823,7 @@ CLASS zcl_excel_writer_2007 IMPLEMENTATION.
lv_index_str = iv_comment_index.
CONDENSE lv_index_str NO-GAPS.
MOVE me->cl_xl_drawing_for_comments TO lv_value.
lv_value = me->cl_xl_drawing_for_comments.
REPLACE 'xl' WITH '..' INTO lv_value.
REPLACE '#' WITH lv_index_str INTO lv_value.
lo_element->set_attribute_ns( name = lc_xml_attr_target
@ -5845,7 +5845,7 @@ CLASS zcl_excel_writer_2007 IMPLEMENTATION.
lv_index_str = iv_comment_index.
CONDENSE lv_index_str NO-GAPS.
MOVE me->c_xl_comments TO lv_value.
lv_value = me->c_xl_comments.
REPLACE 'xl' WITH '..' INTO lv_value.
REPLACE '#' WITH lv_index_str INTO lv_value.
lo_element->set_attribute_ns( name = lc_xml_attr_target
@ -5873,7 +5873,7 @@ CLASS zcl_excel_writer_2007 IMPLEMENTATION.
lv_index_str = lv_comment_index.
CONDENSE lv_index_str NO-GAPS.
MOVE me->cl_xl_drawing_for_comments TO lv_value.
lv_value = me->cl_xl_drawing_for_comments.
REPLACE 'xl' WITH '..' INTO lv_value.
REPLACE '#' WITH lv_index_str INTO lv_value.
lo_element->set_attribute_ns( name = lc_xml_attr_target
@ -6920,25 +6920,25 @@ CLASS zcl_excel_writer_2007 IMPLEMENTATION.
" update attribute "count"
DESCRIBE TABLE lt_fonts LINES lv_fonts_count.
MOVE lv_fonts_count TO lv_value.
lv_value = lv_fonts_count.
SHIFT lv_value RIGHT DELETING TRAILING space.
SHIFT lv_value LEFT DELETING LEADING space.
lo_element_fonts->set_attribute_ns( name = lc_xml_attr_count
value = lv_value ).
DESCRIBE TABLE lt_fills LINES lv_fills_count.
MOVE lv_fills_count TO lv_value.
lv_value = lv_fills_count.
SHIFT lv_value RIGHT DELETING TRAILING space.
SHIFT lv_value LEFT DELETING LEADING space.
lo_element_fills->set_attribute_ns( name = lc_xml_attr_count
value = lv_value ).
DESCRIBE TABLE lt_borders LINES lv_borders_count.
MOVE lv_borders_count TO lv_value.
lv_value = lv_borders_count.
SHIFT lv_value RIGHT DELETING TRAILING space.
SHIFT lv_value LEFT DELETING LEADING space.
lo_element_borders->set_attribute_ns( name = lc_xml_attr_count
value = lv_value ).
DESCRIBE TABLE lt_cellxfs LINES lv_cellxfs_count.
MOVE lv_cellxfs_count TO lv_value.
lv_value = lv_cellxfs_count.
SHIFT lv_value RIGHT DELETING TRAILING space.
SHIFT lv_value LEFT DELETING LEADING space.
lo_element_cellxfs->set_attribute_ns( name = lc_xml_attr_count
@ -6973,61 +6973,61 @@ CLASS zcl_excel_writer_2007 IMPLEMENTATION.
LOOP AT lt_cellxfs INTO ls_cellxfs.
lo_element = lo_document->create_simple_element( name = lc_xml_node_xf
parent = lo_document ).
MOVE ls_cellxfs-numfmtid TO lv_value.
lv_value = ls_cellxfs-numfmtid.
SHIFT lv_value RIGHT DELETING TRAILING space.
SHIFT lv_value LEFT DELETING LEADING space.
lo_element->set_attribute_ns( name = lc_xml_attr_numfmtid
value = lv_value ).
MOVE ls_cellxfs-fontid TO lv_value.
lv_value = ls_cellxfs-fontid.
SHIFT lv_value RIGHT DELETING TRAILING space.
SHIFT lv_value LEFT DELETING LEADING space.
lo_element->set_attribute_ns( name = lc_xml_attr_fontid
value = lv_value ).
MOVE ls_cellxfs-fillid TO lv_value.
lv_value = ls_cellxfs-fillid.
SHIFT lv_value RIGHT DELETING TRAILING space.
SHIFT lv_value LEFT DELETING LEADING space.
lo_element->set_attribute_ns( name = lc_xml_attr_fillid
value = lv_value ).
MOVE ls_cellxfs-borderid TO lv_value.
lv_value = ls_cellxfs-borderid.
SHIFT lv_value RIGHT DELETING TRAILING space.
SHIFT lv_value LEFT DELETING LEADING space.
lo_element->set_attribute_ns( name = lc_xml_attr_borderid
value = lv_value ).
MOVE ls_cellxfs-xfid TO lv_value.
lv_value = ls_cellxfs-xfid.
SHIFT lv_value RIGHT DELETING TRAILING space.
SHIFT lv_value LEFT DELETING LEADING space.
lo_element->set_attribute_ns( name = lc_xml_attr_xfid
value = lv_value ).
IF ls_cellxfs-applynumberformat EQ 1.
MOVE ls_cellxfs-applynumberformat TO lv_value.
lv_value = ls_cellxfs-applynumberformat.
SHIFT lv_value RIGHT DELETING TRAILING space.
SHIFT lv_value LEFT DELETING LEADING space.
lo_element->set_attribute_ns( name = lc_xml_attr_applynumberformat
value = lv_value ).
ENDIF.
IF ls_cellxfs-applyfont EQ 1.
MOVE ls_cellxfs-applyfont TO lv_value.
lv_value = ls_cellxfs-applyfont.
SHIFT lv_value RIGHT DELETING TRAILING space.
SHIFT lv_value LEFT DELETING LEADING space.
lo_element->set_attribute_ns( name = lc_xml_attr_applyfont
value = lv_value ).
ENDIF.
IF ls_cellxfs-applyfill EQ 1.
MOVE ls_cellxfs-applyfill TO lv_value.
lv_value = ls_cellxfs-applyfill.
SHIFT lv_value RIGHT DELETING TRAILING space.
SHIFT lv_value LEFT DELETING LEADING space.
lo_element->set_attribute_ns( name = lc_xml_attr_applyfill
value = lv_value ).
ENDIF.
IF ls_cellxfs-applyborder EQ 1.
MOVE ls_cellxfs-applyborder TO lv_value.
lv_value = ls_cellxfs-applyborder.
SHIFT lv_value RIGHT DELETING TRAILING space.
SHIFT lv_value LEFT DELETING LEADING space.
lo_element->set_attribute_ns( name = lc_xml_attr_applyborder
value = lv_value ).
ENDIF.
IF ls_cellxfs-applyalignment EQ 1. " depends on each style not for all the sheet
MOVE ls_cellxfs-applyalignment TO lv_value.
lv_value = ls_cellxfs-applyalignment.
SHIFT lv_value RIGHT DELETING TRAILING space.
SHIFT lv_value LEFT DELETING LEADING space.
lo_element->set_attribute_ns( name = lc_xml_attr_applyalignment
@ -7038,12 +7038,12 @@ CLASS zcl_excel_writer_2007 IMPLEMENTATION.
READ TABLE lt_alignments INTO ls_alignment INDEX ls_cellxfs-alignmentid.
SUBTRACT 1 FROM ls_cellxfs-alignmentid.
IF ls_alignment-horizontal IS NOT INITIAL.
MOVE ls_alignment-horizontal TO lv_value.
lv_value = ls_alignment-horizontal.
lo_sub_element_2->set_attribute_ns( name = lc_xml_attr_horizontal
value = lv_value ).
ENDIF.
IF ls_alignment-vertical IS NOT INITIAL.
MOVE ls_alignment-vertical TO lv_value.
lv_value = ls_alignment-vertical.
lo_sub_element_2->set_attribute_ns( name = lc_xml_attr_vertical
value = lv_value ).
ENDIF.
@ -7052,7 +7052,7 @@ CLASS zcl_excel_writer_2007 IMPLEMENTATION.
value = c_on ).
ENDIF.
IF ls_alignment-textrotation IS NOT INITIAL.
MOVE ls_alignment-textrotation TO lv_value.
lv_value = ls_alignment-textrotation.
SHIFT lv_value RIGHT DELETING TRAILING space.
SHIFT lv_value LEFT DELETING LEADING space.
lo_sub_element_2->set_attribute_ns( name = lc_xml_attr_textrotation
@ -7063,7 +7063,7 @@ CLASS zcl_excel_writer_2007 IMPLEMENTATION.
value = c_on ).
ENDIF.
IF ls_alignment-indent IS NOT INITIAL.
MOVE ls_alignment-indent TO lv_value.
lv_value = ls_alignment-indent.
SHIFT lv_value RIGHT DELETING TRAILING space.
SHIFT lv_value LEFT DELETING LEADING space.
lo_sub_element_2->set_attribute_ns( name = lc_xml_attr_indent
@ -7073,7 +7073,7 @@ CLASS zcl_excel_writer_2007 IMPLEMENTATION.
lo_element->append_child( new_child = lo_sub_element_2 ).
ENDIF.
IF ls_cellxfs-applyprotection EQ 1.
MOVE ls_cellxfs-applyprotection TO lv_value.
lv_value = ls_cellxfs-applyprotection.
CONDENSE lv_value NO-GAPS.
lo_element->set_attribute_ns( name = lc_xml_attr_applyprotection
value = lv_value ).
@ -7083,13 +7083,13 @@ CLASS zcl_excel_writer_2007 IMPLEMENTATION.
READ TABLE lt_protections INTO ls_protection INDEX ls_cellxfs-protectionid.
SUBTRACT 1 FROM ls_cellxfs-protectionid.
IF ls_protection-locked IS NOT INITIAL.
MOVE ls_protection-locked TO lv_value.
lv_value = ls_protection-locked.
CONDENSE lv_value.
lo_sub_element_2->set_attribute_ns( name = lc_xml_attr_locked
value = lv_value ).
ENDIF.
IF ls_protection-hidden IS NOT INITIAL.
MOVE ls_protection-hidden TO lv_value.
lv_value = ls_protection-hidden.
CONDENSE lv_value.
lo_sub_element_2->set_attribute_ns( name = lc_xml_attr_hidden
value = lv_value ).
@ -7692,25 +7692,25 @@ CLASS zcl_excel_writer_2007 IMPLEMENTATION.
IF me->excel->zif_excel_book_protection~protected EQ abap_true.
lo_element = lo_document->create_simple_element( name = lc_xml_node_workbookprotection
parent = lo_document ).
MOVE me->excel->zif_excel_book_protection~workbookpassword TO lv_value.
lv_value = me->excel->zif_excel_book_protection~workbookpassword.
IF lv_value IS NOT INITIAL.
lo_element->set_attribute_ns( name = lc_xml_attr_workbookpassword
value = lv_value ).
ENDIF.
MOVE me->excel->zif_excel_book_protection~revisionspassword TO lv_value.
lv_value = me->excel->zif_excel_book_protection~revisionspassword.
IF lv_value IS NOT INITIAL.
lo_element->set_attribute_ns( name = lc_xml_attr_revisionspassword
value = lv_value ).
ENDIF.
MOVE me->excel->zif_excel_book_protection~lockrevision TO lv_value.
lv_value = me->excel->zif_excel_book_protection~lockrevision.
CONDENSE lv_value NO-GAPS.
lo_element->set_attribute_ns( name = lc_xml_attr_lockrevision
value = lv_value ).
MOVE me->excel->zif_excel_book_protection~lockstructure TO lv_value.
lv_value = me->excel->zif_excel_book_protection~lockstructure.
CONDENSE lv_value NO-GAPS.
lo_element->set_attribute_ns( name = lc_xml_attr_lockstructure
value = lv_value ).
MOVE me->excel->zif_excel_book_protection~lockwindows TO lv_value.
lv_value = me->excel->zif_excel_book_protection~lockwindows.
CONDENSE lv_value NO-GAPS.
lo_element->set_attribute_ns( name = lc_xml_attr_lockwindows
value = lv_value ).

4
src/zcl_excel_writer_huge_file.clas.abap
View File

@ -101,8 +101,8 @@ CLASS zcl_excel_writer_huge_file IMPLEMENTATION.
LOOP AT lt_cell_data ASSIGNING <sheet_content>.
lv_sytabix = sy-tabix - 1.
MOVE lv_sytabix TO ls_shared_string-string_no.
MOVE <sheet_content>-cell_value TO ls_shared_string-string_value.
ls_shared_string-string_no = lv_sytabix.
ls_shared_string-string_value = <sheet_content>-cell_value.
REPLACE ALL OCCURRENCES OF REGEX lv_invalid
IN ls_shared_string-string_value WITH ` `.
APPEND ls_shared_string TO shared_strings.

6
src/zcl_excel_writer_xlsm.clas.abap
View File

@ -151,8 +151,8 @@ CLASS zcl_excel_writer_xlsm IMPLEMENTATION.
lv_content = me->create_xl_sheet( io_worksheet = lo_worksheet
iv_active = lv_active ).
lv_xl_sheet = me->c_xl_sheet.
MOVE sy-index TO: lv_syindex,
lv_comment_index. " (+) Issue 588
lv_syindex = sy-index.
lv_comment_index = sy-index. " (+) Issue 588
SHIFT lv_syindex RIGHT DELETING TRAILING space.
SHIFT lv_syindex LEFT DELETING LEADING space.
REPLACE ALL OCCURRENCES OF '#' IN lv_xl_sheet WITH lv_syindex.
@ -182,7 +182,7 @@ CLASS zcl_excel_writer_xlsm IMPLEMENTATION.
* Add drawings **********************************
lo_drawings = lo_worksheet->get_drawings( ).
IF lo_drawings->is_empty( ) = abap_false.
MOVE lv_drawing_index TO lv_syindex.
lv_syindex = lv_drawing_index.
SHIFT lv_syindex RIGHT DELETING TRAILING space.
SHIFT lv_syindex LEFT DELETING LEADING space.

5
src/zexcel_cell_style.dtel.xml
View File

@ -5,7 +5,6 @@
<DD04V>
<ROLLNAME>ZEXCEL_CELL_STYLE</ROLLNAME>
<DDLANGUAGE>E</DDLANGUAGE>
<DOMNAME>UUID</DOMNAME>
<HEADLEN>16</HEADLEN>
<SCRLEN1>10</SCRLEN1>
<SCRLEN2>16</SCRLEN2>
@ -16,7 +15,9 @@
<SCRTEXT_M>Style identifier</SCRTEXT_M>
<SCRTEXT_L>Style identifier</SCRTEXT_L>
<DTELMASTER>E</DTELMASTER>
<REFKIND>D</REFKIND>
<DATATYPE>RAW</DATATYPE>
<LENG>000016</LENG>
<OUTPUTLEN>000032</OUTPUTLEN>
</DD04V>
</asx:values>
</asx:abap>

5
src/zexcel_range_guid.dtel.xml
View File

@ -5,7 +5,6 @@
<DD04V>
<ROLLNAME>ZEXCEL_RANGE_GUID</ROLLNAME>
<DDLANGUAGE>E</DDLANGUAGE>
<DOMNAME>UUID</DOMNAME>
<HEADLEN>32</HEADLEN>
<SCRLEN1>10</SCRLEN1>
<SCRLEN2>15</SCRLEN2>
@ -16,7 +15,9 @@
<SCRTEXT_M>Range guid</SCRTEXT_M>
<SCRTEXT_L>Range guid</SCRTEXT_L>
<DTELMASTER>E</DTELMASTER>
<REFKIND>D</REFKIND>
<DATATYPE>RAW</DATATYPE>
<LENG>000016</LENG>
<OUTPUTLEN>000032</OUTPUTLEN>
</DD04V>
</asx:values>
</asx:abap>

10
src/zexcel_s_converter_fcat.tabl.xml
View File

@ -40,11 +40,13 @@
</DD03P>
<DD03P>
<FIELDNAME>INTTYPE</FIELDNAME>
<ROLLNAME>INTTYPE</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<VALEXI>X</VALEXI>
<SHLPORIGIN>F</SHLPORIGIN>
<COMPTYPE>E</COMPTYPE>
<INTTYPE>C</INTTYPE>
<INTLEN>000002</INTLEN>
<DATATYPE>CHAR</DATATYPE>
<LENG>000001</LENG>
<MASK> CHAR</MASK>
<DDTEXT>ABAP data type (C,D,N,...)</DDTEXT>
</DD03P>
<DD03P>
<FIELDNAME>DECIMALS</FIELDNAME>

7
src/zexcel_s_styles_cond_mapping.tabl.xml
View File

@ -12,9 +12,12 @@
<DD03P_TABLE>
<DD03P>
<FIELDNAME>GUID</FIELDNAME>
<ROLLNAME>GUID_16</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<COMPTYPE>E</COMPTYPE>
<INTTYPE>X</INTTYPE>
<INTLEN>000016</INTLEN>
<DATATYPE>RAW</DATATYPE>
<LENG>000016</LENG>
<MASK> RAW</MASK>
</DD03P>
<DD03P>
<FIELDNAME>STYLE</FIELDNAME>

7
src/zexcel_s_styles_mapping.tabl.xml
View File

@ -12,9 +12,12 @@
<DD03P_TABLE>
<DD03P>
<FIELDNAME>GUID</FIELDNAME>
<ROLLNAME>GUID_16</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<COMPTYPE>E</COMPTYPE>
<INTTYPE>X</INTTYPE>
<INTLEN>000016</INTLEN>
<DATATYPE>RAW</DATATYPE>
<LENG>000016</LENG>
<MASK> RAW</MASK>
</DD03P>
<DD03P>
<FIELDNAME>STYLE</FIELDNAME>