mirror of
https://github.com/abap2xlsx/abap2xlsx.git
synced 2025-05-04 20:28:22 +08:00
d3f95ed657
git-svn-id: https://subversion.assembla.com/svn/abap2xlsx/trunk@194 b7d68dce-7c3c-4a99-8ce0-9ea847f5d049
4423 lines
252 KiB
XML
4423 lines
252 KiB
XML
<?xml version="1.0" encoding="utf-16"?>
|
|
<CLAS CLSNAME="ZCL_EXCEL_WRITER_2007" VERSION="1" LANGU="E" DESCRIPT="Excel writer 2007" UUID="9551494D16947660E1000000C0A8FA28" CATEGORY="00" EXPOSURE="2" STATE="1" RELEASE="0" AUTHOR="FEMIA" CREATEDON="20100701" CHANGEDBY="FEMIA" CHANGEDON="20110601" CHGDANYON="00000000" CLSCCINCL="X" FIXPT="X" UNICODE="X" R3RELEASE="702" CLSBCCAT="00" DURATION_TYPE="0 " RISK_LEVEL="0 ">
|
|
<implementing CLSNAME="ZCL_EXCEL_WRITER_2007" REFCLSNAME="ZIF_EXCEL_WRITER" VERSION="1" EXPOSURE="2" STATE="1" AUTHOR="FEMIA" CREATEDON="20110528" CHANGEDBY="FEMIA" CHANGEDON="20110528" RELTYPE="1" EDITORDER="0 "/>
|
|
<publicSection>class ZCL_EXCEL_WRITER_2007 definition
|
|
public
|
|
create public .
|
|
|
|
public section.
|
|
*"* public components of class ZCL_EXCEL_WRITER_2007
|
|
*"* do not include other source files here!!!
|
|
|
|
interfaces ZIF_EXCEL_WRITER .</publicSection>
|
|
<protectedSection>protected section.
|
|
*"* protected components of class ZCL_EXCEL_WRITER_2007
|
|
*"* do not include other source files here!!!
|
|
|
|
constants C_CONTENT_TYPES type STRING value '[Content_Types].xml'. "#EC NOTEXT
|
|
constants C_DOCPROPS_APP type STRING value 'docProps/app.xml'. "#EC NOTEXT
|
|
constants C_DOCPROPS_CORE type STRING value 'docProps/core.xml'. "#EC NOTEXT
|
|
constants C_RELATIONSHIPS type STRING value '_rels/.rels'. "#EC NOTEXT
|
|
constants C_XL_DRAWINGS type STRING value 'xl/drawings/drawing#.xml'. "#EC NOTEXT
|
|
constants C_XL_DRAWINGS_RELS type STRING value 'xl/drawings/_rels/drawing#.xml.rels'. "#EC NOTEXT
|
|
constants C_XL_RELATIONSHIPS type STRING value 'xl/_rels/workbook.xml.rels'. "#EC NOTEXT
|
|
constants C_XL_SHAREDSTRINGS type STRING value 'xl/sharedStrings.xml'. "#EC NOTEXT
|
|
constants C_XL_SHEET type STRING value 'xl/worksheets/sheet#.xml'. "#EC NOTEXT
|
|
constants C_XL_SHEET_RELS type STRING value 'xl/worksheets/_rels/sheet#.xml.rels'. "#EC NOTEXT
|
|
constants C_XL_STYLES type STRING value 'xl/styles.xml'. "#EC NOTEXT
|
|
constants C_XL_THEME type STRING value 'xl/theme/theme1.xml'. "#EC NOTEXT
|
|
constants C_XL_WORKBOOK type STRING value 'xl/workbook.xml'. "#EC NOTEXT
|
|
data EXCEL type ref to ZCL_EXCEL .
|
|
|
|
methods CREATE
|
|
returning
|
|
value(EP_EXCEL) type XSTRING .
|
|
methods CREATE_CONTENT_TYPES
|
|
returning
|
|
value(EP_CONTENT) type XSTRING .
|
|
methods CREATE_DOCPROPS_APP
|
|
returning
|
|
value(EP_CONTENT) type XSTRING .
|
|
methods CREATE_DOCPROPS_CORE
|
|
returning
|
|
value(EP_CONTENT) type XSTRING .
|
|
methods CREATE_RELATIONSHIPS
|
|
returning
|
|
value(EP_CONTENT) type XSTRING .
|
|
methods CREATE_XL_DRAWINGS
|
|
importing
|
|
!IO_WORKSHEET type ref to ZCL_EXCEL_WORKSHEET
|
|
returning
|
|
value(EP_CONTENT) type XSTRING .
|
|
methods CREATE_XL_DRAWINGS_RELS
|
|
importing
|
|
!IO_WORKSHEET type ref to ZCL_EXCEL_WORKSHEET
|
|
returning
|
|
value(EP_CONTENT) type XSTRING .
|
|
methods CREATE_XL_RELATIONSHIPS
|
|
returning
|
|
value(EP_CONTENT) type XSTRING .
|
|
methods CREATE_XL_SHAREDSTRINGS
|
|
returning
|
|
value(EP_CONTENT) type XSTRING .
|
|
methods CREATE_XL_SHEET
|
|
importing
|
|
!IO_WORKSHEET type ref to ZCL_EXCEL_WORKSHEET
|
|
!IV_ACTIVE type FLAG default ''
|
|
returning
|
|
value(EP_CONTENT) type XSTRING .
|
|
methods CREATE_XL_SHEET_RELS
|
|
importing
|
|
!IO_WORKSHEET type ref to ZCL_EXCEL_WORKSHEET
|
|
!IV_DRAWING_INDEX type I
|
|
returning
|
|
value(EP_CONTENT) type XSTRING .
|
|
methods CREATE_XL_STYLES_COLOR_NODE
|
|
importing
|
|
!IO_DOCUMENT type ref to IF_IXML_DOCUMENT
|
|
!IO_PARENT type ref to IF_IXML_ELEMENT
|
|
!IV_COLOR_ELEM_NAME type STRING default 'color'
|
|
!IS_COLOR type ZEXCEL_S_STYLE_COLOR .
|
|
methods CREATE_XL_STYLES
|
|
returning
|
|
value(EP_CONTENT) type XSTRING .
|
|
methods CREATE_XL_TABLE
|
|
importing
|
|
!IO_TABLE type ref to ZCL_EXCEL_TABLE
|
|
returning
|
|
value(EP_CONTENT) type XSTRING .
|
|
methods CREATE_XL_THEME
|
|
returning
|
|
value(EP_CONTENT) type XSTRING .
|
|
methods CREATE_XL_WORKBOOK
|
|
returning
|
|
value(EP_CONTENT) type XSTRING .</protectedSection>
|
|
<privateSection>private section.
|
|
*"* private components of class ZCL_EXCEL_WRITER_2007
|
|
*"* do not include other source files here!!!
|
|
|
|
constants C_OFF type STRING value '0'. "#EC NOTEXT
|
|
constants C_ON type STRING value '1'. "#EC NOTEXT
|
|
data SHARED_STRINGS type ZEXCEL_T_SHARED_STRING .
|
|
data STYLES_COND_MAPPING type ZEXCEL_T_STYLES_COND_MAPPING .
|
|
data STYLES_MAPPING type ZEXCEL_T_STYLES_MAPPING .
|
|
|
|
methods FLAG2BOOL
|
|
importing
|
|
!IP_FLAG type FLAG
|
|
returning
|
|
value(EP_BOOLEAN) type CHAR5 .
|
|
methods GET_SHARED_STRING_INDEX
|
|
importing
|
|
!IP_CELL_VALUE type ZEXCEL_CELL_VALUE
|
|
returning
|
|
value(EP_INDEX) type INT4 .</privateSection>
|
|
<localImplementation>*"* local class implementation for public class
|
|
*"* use this source file for the implementation part of
|
|
*"* local helper classes</localImplementation>
|
|
<localTypes>*"* use this source file for any type declarations (class
|
|
*"* definitions, interfaces or data types) you need for method
|
|
*"* implementation or private method's signature</localTypes>
|
|
<localMacros>*"* use this source file for any macro definitions you need
|
|
*"* in the implementation part of the class</localMacros>
|
|
<attribute CLSNAME="ZCL_EXCEL_WRITER_2007" CMPNAME="C_CONTENT_TYPES" VERSION="1" LANGU="E" DESCRIPT="Content Type XML File Name" EXPOSURE="1" STATE="1" EDITORDER="1 " AUTHOR="FEMIA" CREATEDON="20110528" CHANGEDBY="FEMIA" CHANGEDON="20110601" ATTDECLTYP="2" ATTVALUE="'[Content_Types].xml'" ATTEXPVIRT="0" TYPTYPE="1" TYPE="STRING" SRCROW1="0 " SRCCOLUMN1="0 " SRCROW2="0 " SRCCOLUMN2="0 " R3RELEASE="702" TYPESRC_LENG="0 "/>
|
|
<attribute CLSNAME="ZCL_EXCEL_WRITER_2007" CMPNAME="C_DOCPROPS_APP" VERSION="1" LANGU="E" DESCRIPT="App XML File Name" EXPOSURE="1" STATE="1" EDITORDER="2 " AUTHOR="FEMIA" CREATEDON="20110528" CHANGEDBY="FEMIA" CHANGEDON="20110601" ATTDECLTYP="2" ATTVALUE="'docProps/app.xml'" ATTEXPVIRT="0" TYPTYPE="1" TYPE="STRING" SRCROW1="0 " SRCCOLUMN1="0 " SRCROW2="0 " SRCCOLUMN2="0 " R3RELEASE="702" TYPESRC_LENG="0 "/>
|
|
<attribute CLSNAME="ZCL_EXCEL_WRITER_2007" CMPNAME="C_DOCPROPS_CORE" VERSION="1" LANGU="E" DESCRIPT="Core XML File Name" EXPOSURE="1" STATE="1" EDITORDER="3 " AUTHOR="FEMIA" CREATEDON="20110528" CHANGEDBY="FEMIA" CHANGEDON="20110601" ATTDECLTYP="2" ATTVALUE="'docProps/core.xml'" ATTEXPVIRT="0" TYPTYPE="1" TYPE="STRING" SRCROW1="0 " SRCCOLUMN1="0 " SRCROW2="0 " SRCCOLUMN2="0 " R3RELEASE="702" TYPESRC_LENG="0 "/>
|
|
<attribute CLSNAME="ZCL_EXCEL_WRITER_2007" CMPNAME="C_OFF" VERSION="1" LANGU="E" DESCRIPT="Byte Value" EXPOSURE="0" STATE="1" EDITORDER="4 " AUTHOR="FEMIA" CREATEDON="20110528" CHANGEDBY="FEMIA" CHANGEDON="20110528" ATTDECLTYP="2" ATTVALUE="'0'" ATTEXPVIRT="0" TYPTYPE="1" TYPE="STRING" SRCROW1="0 " SRCCOLUMN1="0 " SRCROW2="0 " SRCCOLUMN2="0 " R3RELEASE="702" TYPESRC_LENG="0 "/>
|
|
<attribute CLSNAME="ZCL_EXCEL_WRITER_2007" CMPNAME="C_ON" VERSION="1" LANGU="E" DESCRIPT="Byte Value" EXPOSURE="0" STATE="1" EDITORDER="5 " AUTHOR="FEMIA" CREATEDON="20110528" CHANGEDBY="FEMIA" CHANGEDON="20110528" ATTDECLTYP="2" ATTVALUE="'1'" ATTEXPVIRT="0" TYPTYPE="1" TYPE="STRING" SRCROW1="0 " SRCCOLUMN1="0 " SRCROW2="0 " SRCCOLUMN2="0 " R3RELEASE="702" TYPESRC_LENG="0 "/>
|
|
<attribute CLSNAME="ZCL_EXCEL_WRITER_2007" CMPNAME="C_RELATIONSHIPS" VERSION="1" LANGU="E" DESCRIPT="Rels XML File Name" EXPOSURE="1" STATE="1" EDITORDER="6 " AUTHOR="FEMIA" CREATEDON="20110528" CHANGEDBY="FEMIA" CHANGEDON="20110601" ATTDECLTYP="2" ATTVALUE="'_rels/.rels'" ATTEXPVIRT="0" TYPTYPE="1" TYPE="STRING" SRCROW1="0 " SRCCOLUMN1="0 " SRCROW2="0 " SRCCOLUMN2="0 " R3RELEASE="702" TYPESRC_LENG="0 "/>
|
|
<attribute CLSNAME="ZCL_EXCEL_WRITER_2007" CMPNAME="C_XL_DRAWINGS" VERSION="1" LANGU="E" DESCRIPT="xlDrawings XML File Name" EXPOSURE="1" STATE="1" EDITORDER="7 " AUTHOR="FEMIA" CREATEDON="20110528" CHANGEDBY="FEMIA" CHANGEDON="20110601" ATTDECLTYP="2" ATTVALUE="'xl/drawings/drawing#.xml'" ATTEXPVIRT="0" TYPTYPE="1" TYPE="STRING" SRCROW1="0 " SRCCOLUMN1="0 " SRCROW2="0 " SRCCOLUMN2="0 " R3RELEASE="702" TYPESRC_LENG="0 "/>
|
|
<attribute CLSNAME="ZCL_EXCEL_WRITER_2007" CMPNAME="C_XL_DRAWINGS_RELS" VERSION="1" LANGU="E" DESCRIPT="xlDrawings XML File Name" EXPOSURE="1" STATE="1" EDITORDER="8 " AUTHOR="FEMIA" CREATEDON="20110528" CHANGEDBY="FEMIA" CHANGEDON="20110601" ATTDECLTYP="2" ATTVALUE="'xl/drawings/_rels/drawing#.xml.rels'" ATTEXPVIRT="0" TYPTYPE="1" TYPE="STRING" SRCROW1="0 " SRCCOLUMN1="0 " SRCROW2="0 " SRCCOLUMN2="0 " R3RELEASE="702" TYPESRC_LENG="0 "/>
|
|
<attribute CLSNAME="ZCL_EXCEL_WRITER_2007" CMPNAME="C_XL_RELATIONSHIPS" VERSION="1" LANGU="E" DESCRIPT="xlRels XML File Name" EXPOSURE="1" STATE="1" EDITORDER="9 " AUTHOR="FEMIA" CREATEDON="20110528" CHANGEDBY="FEMIA" CHANGEDON="20110601" ATTDECLTYP="2" ATTVALUE="'xl/_rels/workbook.xml.rels'" ATTEXPVIRT="0" TYPTYPE="1" TYPE="STRING" SRCROW1="0 " SRCCOLUMN1="0 " SRCROW2="0 " SRCCOLUMN2="0 " R3RELEASE="702" TYPESRC_LENG="0 "/>
|
|
<attribute CLSNAME="ZCL_EXCEL_WRITER_2007" CMPNAME="C_XL_SHAREDSTRINGS" VERSION="1" LANGU="E" DESCRIPT="xlSharedStrings XML File Name" EXPOSURE="1" STATE="1" EDITORDER="10 " AUTHOR="FEMIA" CREATEDON="20110528" CHANGEDBY="FEMIA" CHANGEDON="20110601" ATTDECLTYP="2" ATTVALUE="'xl/sharedStrings.xml'" ATTEXPVIRT="0" TYPTYPE="1" TYPE="STRING" SRCROW1="0 " SRCCOLUMN1="0 " SRCROW2="0 " SRCCOLUMN2="0 " R3RELEASE="702" TYPESRC_LENG="0 "/>
|
|
<attribute CLSNAME="ZCL_EXCEL_WRITER_2007" CMPNAME="C_XL_SHEET" VERSION="1" LANGU="E" DESCRIPT="xlSheet XML File Name Template" EXPOSURE="1" STATE="1" EDITORDER="11 " AUTHOR="FEMIA" CREATEDON="20110528" CHANGEDBY="FEMIA" CHANGEDON="20110601" ATTDECLTYP="2" ATTVALUE="'xl/worksheets/sheet#.xml'" ATTEXPVIRT="0" TYPTYPE="1" TYPE="STRING" SRCROW1="0 " SRCCOLUMN1="0 " SRCROW2="0 " SRCCOLUMN2="0 " R3RELEASE="702" TYPESRC_LENG="0 "/>
|
|
<attribute CLSNAME="ZCL_EXCEL_WRITER_2007" CMPNAME="C_XL_SHEET_RELS" VERSION="1" LANGU="E" DESCRIPT="xlSheetRels XML File Name Template" EXPOSURE="1" STATE="1" EDITORDER="12 " AUTHOR="FEMIA" CREATEDON="20110528" CHANGEDBY="FEMIA" CHANGEDON="20110601" ATTDECLTYP="2" ATTVALUE="'xl/worksheets/_rels/sheet#.xml.rels'" ATTEXPVIRT="0" TYPTYPE="1" TYPE="STRING" SRCROW1="0 " SRCCOLUMN1="0 " SRCROW2="0 " SRCCOLUMN2="0 " R3RELEASE="702" TYPESRC_LENG="0 "/>
|
|
<attribute CLSNAME="ZCL_EXCEL_WRITER_2007" CMPNAME="C_XL_STYLES" VERSION="1" LANGU="E" DESCRIPT="xlStyles XML File Name" EXPOSURE="1" STATE="1" EDITORDER="13 " AUTHOR="FEMIA" CREATEDON="20110528" CHANGEDBY="FEMIA" CHANGEDON="20110601" ATTDECLTYP="2" ATTVALUE="'xl/styles.xml'" ATTEXPVIRT="0" TYPTYPE="1" TYPE="STRING" SRCROW1="0 " SRCCOLUMN1="0 " SRCROW2="0 " SRCCOLUMN2="0 " R3RELEASE="702" TYPESRC_LENG="0 "/>
|
|
<attribute CLSNAME="ZCL_EXCEL_WRITER_2007" CMPNAME="C_XL_THEME" VERSION="1" LANGU="E" DESCRIPT="xlTheme XML File Name" EXPOSURE="1" STATE="1" EDITORDER="14 " AUTHOR="FEMIA" CREATEDON="20110528" CHANGEDBY="FEMIA" CHANGEDON="20110601" ATTDECLTYP="2" ATTVALUE="'xl/theme/theme1.xml'" ATTEXPVIRT="0" TYPTYPE="1" TYPE="STRING" SRCROW1="0 " SRCCOLUMN1="0 " SRCROW2="0 " SRCCOLUMN2="0 " R3RELEASE="702" TYPESRC_LENG="0 "/>
|
|
<attribute CLSNAME="ZCL_EXCEL_WRITER_2007" CMPNAME="C_XL_WORKBOOK" VERSION="1" LANGU="E" DESCRIPT="xlWorkbook XML File Name" EXPOSURE="1" STATE="1" EDITORDER="15 " AUTHOR="FEMIA" CREATEDON="20110528" CHANGEDBY="FEMIA" CHANGEDON="20110601" ATTDECLTYP="2" ATTVALUE="'xl/workbook.xml'" ATTEXPVIRT="0" TYPTYPE="1" TYPE="STRING" SRCROW1="0 " SRCCOLUMN1="0 " SRCROW2="0 " SRCCOLUMN2="0 " R3RELEASE="702" TYPESRC_LENG="0 "/>
|
|
<attribute CLSNAME="ZCL_EXCEL_WRITER_2007" CMPNAME="EXCEL" VERSION="1" LANGU="E" DESCRIPT="Excel creator" EXPOSURE="1" STATE="1" EDITORDER="16 " AUTHOR="FEMIA" CREATEDON="20110528" CHANGEDBY="FEMIA" CHANGEDON="20110601" ATTDECLTYP="0" ATTEXPVIRT="0" TYPTYPE="3" TYPE="ZCL_EXCEL" SRCROW1="0 " SRCCOLUMN1="0 " SRCROW2="0 " SRCCOLUMN2="0 " R3RELEASE="702" TYPESRC_LENG="0 "/>
|
|
<attribute CLSNAME="ZCL_EXCEL_WRITER_2007" CMPNAME="SHARED_STRINGS" VERSION="1" LANGU="E" DESCRIPT="Shared Strings" EXPOSURE="0" STATE="1" EDITORDER="17 " AUTHOR="FEMIA" CREATEDON="20110528" CHANGEDBY="FEMIA" CHANGEDON="20110528" ATTDECLTYP="0" ATTEXPVIRT="0" TYPTYPE="1" TYPE="ZEXCEL_T_SHARED_STRING" SRCROW1="0 " SRCCOLUMN1="0 " SRCROW2="0 " SRCCOLUMN2="0 " R3RELEASE="702" TYPESRC_LENG="0 "/>
|
|
<attribute CLSNAME="ZCL_EXCEL_WRITER_2007" CMPNAME="STYLES_COND_MAPPING" VERSION="1" LANGU="E" DESCRIPT="Styles mapping" EXPOSURE="0" STATE="1" EDITORDER="18 " AUTHOR="FEMIA" CREATEDON="20110528" CHANGEDBY="FEMIA" CHANGEDON="20110530" ATTDECLTYP="0" ATTEXPVIRT="0" TYPTYPE="1" TYPE="ZEXCEL_T_STYLES_COND_MAPPING" SRCROW1="0 " SRCCOLUMN1="0 " SRCROW2="0 " SRCCOLUMN2="0 " R3RELEASE="702" TYPESRC_LENG="0 "/>
|
|
<attribute CLSNAME="ZCL_EXCEL_WRITER_2007" CMPNAME="STYLES_MAPPING" VERSION="1" LANGU="E" DESCRIPT="Styles mapping" EXPOSURE="0" STATE="1" EDITORDER="19 " AUTHOR="FEMIA" CREATEDON="20110528" CHANGEDBY="FEMIA" CHANGEDON="20110528" ATTDECLTYP="0" ATTEXPVIRT="0" TYPTYPE="1" TYPE="ZEXCEL_T_STYLES_MAPPING" SRCROW1="0 " SRCCOLUMN1="0 " SRCROW2="0 " SRCCOLUMN2="0 " R3RELEASE="702" TYPESRC_LENG="0 "/>
|
|
<interfaceMethod CLSNAME="ZCL_EXCEL_WRITER_2007" CPDNAME="ZIF_EXCEL_WRITER~WRITE_FILE">
|
|
<source>method ZIF_EXCEL_WRITER~WRITE_FILE.
|
|
me->excel = io_excel.
|
|
ep_file = me->create( ).
|
|
endmethod.</source>
|
|
</interfaceMethod>
|
|
<method CLSNAME="ZCL_EXCEL_WRITER_2007" CMPNAME="CREATE" VERSION="1" LANGU="E" DESCRIPT="Create Excel" EXPOSURE="1" STATE="1" EDITORDER="1 " DISPID="0 " AUTHOR="FEMIA" CREATEDON="20110528" CHANGEDBY="FEMIA" CHANGEDON="20110601" MTDTYPE="0" MTDDECLTYP="0" R3RELEASE="702" BCMTDCAT="00" BCMTDSYN="0">
|
|
<parameter CLSNAME="ZCL_EXCEL_WRITER_2007" CMPNAME="CREATE" SCONAME="EP_EXCEL" VERSION="1" LANGU="E" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " AUTHOR="FEMIA" CREATEDON="20110528" CHANGEDBY="FEMIA" CHANGEDON="20110528" PARDECLTYP="3" PARPASSTYP="0" TYPTYPE="1" TYPE="XSTRING"/>
|
|
<source>method CREATE.
|
|
|
|
|
|
* Office 2007 file format is a cab of several xml files with extension .xlsx
|
|
|
|
DATA: lo_zip TYPE REF TO cl_abap_zip,
|
|
lo_worksheet TYPE REF TO zcl_excel_worksheet,
|
|
lo_active_worksheet TYPE REF TO zcl_excel_worksheet,
|
|
lo_iterator TYPE REF TO cl_object_collection_iterator,
|
|
lo_nested_iterator TYPE REF TO cl_object_collection_iterator,
|
|
lo_table TYPE REF TO zcl_excel_table,
|
|
lo_drawing TYPE REF TO zcl_excel_drawing,
|
|
lo_drawings TYPE REF TO zcl_excel_drawings.
|
|
|
|
DATA: lv_content TYPE xstring,
|
|
lv_active TYPE flag,
|
|
lv_xl_sheet TYPE string,
|
|
lv_xl_sheet_rels TYPE string,
|
|
lv_xl_drawing TYPE string,
|
|
lv_xl_drawing_rels TYPE string,
|
|
lv_syindex TYPE string,
|
|
lv_value TYPE string,
|
|
lv_drawing_index TYPE i.
|
|
|
|
|
|
**********************************************************************
|
|
* STEP 1: Create archive object file (ZIP)
|
|
CREATE OBJECT lo_zip.
|
|
|
|
**********************************************************************
|
|
* STEP 2: Add [Content_Types].xml to zip
|
|
lv_content = me->create_content_types( ).
|
|
lo_zip->add( name = me->c_content_types
|
|
content = lv_content ).
|
|
|
|
**********************************************************************
|
|
* STEP 3: Add _rels/.rels to zip
|
|
lv_content = me->create_relationships( ).
|
|
lo_zip->add( name = me->c_relationships
|
|
content = lv_content ).
|
|
|
|
**********************************************************************
|
|
* STEP 4: Add docProps/app.xml to zip
|
|
lv_content = me->create_docprops_app( ).
|
|
lo_zip->add( name = me->c_docprops_app
|
|
content = lv_content ).
|
|
|
|
**********************************************************************
|
|
* STEP 5: Add docProps/core.xml to zip
|
|
lv_content = me->create_docprops_core( ).
|
|
lo_zip->add( name = me->c_docprops_core
|
|
content = lv_content ).
|
|
|
|
**********************************************************************
|
|
* STEP 6: Add xl/_rels/workbook.xml.rels to zip
|
|
lv_content = me->create_xl_relationships( ).
|
|
lo_zip->add( name = me->c_xl_relationships
|
|
content = lv_content ).
|
|
|
|
**********************************************************************
|
|
* STEP 6: Add xl/_rels/workbook.xml.rels to zip
|
|
lv_content = me->create_xl_theme( ).
|
|
lo_zip->add( name = me->c_xl_theme
|
|
content = lv_content ).
|
|
|
|
**********************************************************************
|
|
* STEP 7: Add xl/workbook.xml to zip
|
|
lv_content = me->create_xl_workbook( ).
|
|
lo_zip->add( name = me->c_xl_workbook
|
|
content = lv_content ).
|
|
|
|
**********************************************************************
|
|
* STEP 8: Add xl/workbook.xml to zip
|
|
* lv_content = me->create_xl_styles_static( ).
|
|
lv_content = me->create_xl_styles( ).
|
|
lo_zip->add( name = me->c_xl_styles
|
|
content = lv_content ).
|
|
|
|
**********************************************************************
|
|
* STEP 9: Add sharedStrings.xml to zip
|
|
lv_content = me->create_xl_sharedstrings( ).
|
|
lo_zip->add( name = me->c_xl_sharedstrings
|
|
content = lv_content ).
|
|
|
|
**********************************************************************
|
|
* STEP 10: Add sheet#.xml and drawing#.xml to zip
|
|
lo_iterator = me->excel->get_worksheets_iterator( ).
|
|
lo_active_worksheet = me->excel->get_active_worksheet( ).
|
|
lv_drawing_index = 1.
|
|
|
|
WHILE lo_iterator->if_object_collection_iterator~has_next( ) EQ abap_true.
|
|
lo_worksheet ?= lo_iterator->if_object_collection_iterator~get_next( ).
|
|
IF lo_active_worksheet->get_guid( ) EQ lo_worksheet->get_guid( ).
|
|
lv_active = abap_true.
|
|
ELSE.
|
|
lv_active = abap_false.
|
|
ENDIF.
|
|
|
|
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.
|
|
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.
|
|
lo_zip->add( name = lv_xl_sheet
|
|
content = lv_content ).
|
|
|
|
lv_xl_sheet_rels = me->c_xl_sheet_rels.
|
|
lv_content = me->create_xl_sheet_rels( io_worksheet = lo_worksheet
|
|
iv_drawing_index = lv_drawing_index ).
|
|
REPLACE ALL OCCURRENCES OF '#' IN lv_xl_sheet_rels WITH lv_syindex.
|
|
lo_zip->add( name = lv_xl_sheet_rels
|
|
content = lv_content ).
|
|
|
|
lo_nested_iterator = lo_worksheet->get_tables_iterator( ).
|
|
|
|
WHILE lo_nested_iterator->if_object_collection_iterator~has_next( ) EQ abap_true.
|
|
lo_table ?= lo_nested_iterator->if_object_collection_iterator~get_next( ).
|
|
lv_content = me->create_xl_table( lo_table ).
|
|
|
|
lv_value = lo_table->get_name( ).
|
|
CONCATENATE 'xl/tables/' lv_value '.xml' INTO lv_value.
|
|
lo_zip->add( name = lv_value
|
|
content = lv_content ).
|
|
ENDWHILE.
|
|
|
|
* Add drawings **********************************
|
|
lo_drawings = lo_worksheet->get_drawings( ).
|
|
IF lo_drawings->is_empty( ) = abap_false.
|
|
MOVE lv_drawing_index TO lv_syindex.
|
|
SHIFT lv_syindex RIGHT DELETING TRAILING space.
|
|
SHIFT lv_syindex LEFT DELETING LEADING space.
|
|
|
|
lv_content = me->create_xl_drawings( lo_worksheet ).
|
|
lv_xl_drawing = me->c_xl_drawings.
|
|
REPLACE ALL OCCURRENCES OF '#' IN lv_xl_drawing WITH lv_syindex.
|
|
lo_zip->add( name = lv_xl_drawing
|
|
content = lv_content ).
|
|
|
|
lv_content = me->create_xl_drawings_rels( lo_worksheet ).
|
|
lv_xl_drawing_rels = me->c_xl_drawings_rels.
|
|
REPLACE ALL OCCURRENCES OF '#' IN lv_xl_drawing_rels WITH lv_syindex.
|
|
lo_zip->add( name = lv_xl_drawing_rels
|
|
content = lv_content ).
|
|
ADD 1 TO lv_drawing_index.
|
|
ENDIF.
|
|
ENDWHILE.
|
|
|
|
**********************************************************************
|
|
* STEP 11: Add media
|
|
lo_iterator = me->excel->get_drawings_iterator( ).
|
|
|
|
WHILE lo_iterator->if_object_collection_iterator~has_next( ) EQ abap_true.
|
|
lo_drawing ?= lo_iterator->if_object_collection_iterator~get_next( ).
|
|
|
|
lv_content = lo_drawing->get_media( ).
|
|
lv_value = lo_drawing->get_media_name( ).
|
|
CONCATENATE 'xl/media/' lv_value INTO lv_value.
|
|
lo_zip->add( name = lv_value
|
|
content = lv_content ).
|
|
ENDWHILE.
|
|
|
|
**********************************************************************
|
|
* STEP 12: Create the final zip
|
|
ep_excel = lo_zip->save( ).
|
|
|
|
endmethod.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_WRITER_2007" CMPNAME="CREATE_CONTENT_TYPES" VERSION="1" LANGU="E" DESCRIPT="Create '[Content_Types].xml'" EXPOSURE="1" STATE="1" EDITORDER="2 " DISPID="0 " AUTHOR="FEMIA" CREATEDON="20110528" CHANGEDBY="FEMIA" CHANGEDON="20110601" MTDTYPE="0" MTDDECLTYP="0" R3RELEASE="702" BCMTDCAT="00" BCMTDSYN="0">
|
|
<parameter CLSNAME="ZCL_EXCEL_WRITER_2007" CMPNAME="CREATE_CONTENT_TYPES" SCONAME="EP_CONTENT" VERSION="1" LANGU="E" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " AUTHOR="FEMIA" CREATEDON="20110528" CHANGEDBY="FEMIA" CHANGEDON="20110528" PARDECLTYP="3" PARPASSTYP="0" TYPTYPE="1" TYPE="XSTRING"/>
|
|
<source>method CREATE_CONTENT_TYPES.
|
|
|
|
|
|
** Constant node name
|
|
DATA: lc_xml_node_types TYPE string VALUE 'Types',
|
|
lc_xml_node_override TYPE string VALUE 'Override',
|
|
lc_xml_node_default TYPE string VALUE 'Default',
|
|
" Node attributes
|
|
lc_xml_attr_partname TYPE string VALUE 'PartName',
|
|
lc_xml_attr_extension TYPE string VALUE 'Extension',
|
|
lc_xml_attr_contenttype TYPE string VALUE 'ContentType',
|
|
" Node namespace
|
|
lc_xml_node_types_ns TYPE string VALUE 'http://schemas.openxmlformats.org/package/2006/content-types',
|
|
" Node extension
|
|
lc_xml_node_rels_ext TYPE string VALUE 'rels',
|
|
lc_xml_node_xml_ext TYPE string VALUE 'xml',
|
|
" Node partnumber
|
|
lc_xml_node_theme_pn TYPE string VALUE '/xl/theme/theme1.xml',
|
|
lc_xml_node_styles_pn TYPE string VALUE '/xl/styles.xml',
|
|
lc_xml_node_workb_pn TYPE string VALUE '/xl/workbook.xml',
|
|
lc_xml_node_props_pn TYPE string VALUE '/docProps/app.xml',
|
|
lc_xml_node_worksheet_pn TYPE string VALUE '/xl/worksheets/sheet#.xml',
|
|
lc_xml_node_strings_pn TYPE string VALUE '/xl/sharedStrings.xml',
|
|
lc_xml_node_core_pn TYPE string VALUE '/docProps/core.xml',
|
|
" Node contentType
|
|
lc_xml_node_theme_ct TYPE string VALUE 'application/vnd.openxmlformats-officedocument.theme+xml',
|
|
lc_xml_node_styles_ct TYPE string VALUE 'application/vnd.openxmlformats-officedocument.spreadsheetml.styles+xml',
|
|
lc_xml_node_workb_ct TYPE string VALUE 'application/vnd.openxmlformats-officedocument.spreadsheetml.sheet.main+xml',
|
|
lc_xml_node_rels_ct TYPE string VALUE 'application/vnd.openxmlformats-package.relationships+xml',
|
|
lc_xml_node_xml_ct TYPE string VALUE 'application/xml',
|
|
lc_xml_node_props_ct TYPE string VALUE 'application/vnd.openxmlformats-officedocument.extended-properties+xml',
|
|
lc_xml_node_worksheet_ct TYPE string VALUE 'application/vnd.openxmlformats-officedocument.spreadsheetml.worksheet+xml',
|
|
lc_xml_node_strings_ct TYPE string VALUE 'application/vnd.openxmlformats-officedocument.spreadsheetml.sharedStrings+xml',
|
|
lc_xml_node_core_ct TYPE string VALUE 'application/vnd.openxmlformats-package.core-properties+xml',
|
|
lc_xml_node_table_ct TYPE string VALUE 'application/vnd.openxmlformats-officedocument.spreadsheetml.table+xml',
|
|
lc_xml_node_drawings_ct TYPE string VALUE 'application/vnd.openxmlformats-officedocument.drawing+xml'.
|
|
|
|
DATA: lo_ixml TYPE REF TO if_ixml,
|
|
lo_document TYPE REF TO if_ixml_document,
|
|
lo_element_root TYPE REF TO if_ixml_element,
|
|
lo_element TYPE REF TO if_ixml_element,
|
|
lo_encoding TYPE REF TO if_ixml_encoding,
|
|
lo_streamfactory TYPE REF TO if_ixml_stream_factory,
|
|
lo_ostream TYPE REF TO if_ixml_ostream,
|
|
lo_renderer TYPE REF TO if_ixml_renderer,
|
|
lo_worksheet TYPE REF TO zcl_excel_worksheet,
|
|
lo_iterator TYPE REF TO cl_object_collection_iterator,
|
|
lo_nested_iterator TYPE REF TO cl_object_collection_iterator,
|
|
lo_table TYPE REF TO zcl_excel_table.
|
|
|
|
DATA: lv_worksheets_num TYPE i,
|
|
lv_worksheets_numc TYPE numc3,
|
|
lv_xml_node_worksheet_pn TYPE string,
|
|
lv_xml_size TYPE i,
|
|
lv_value TYPE string,
|
|
lv_drawing_index TYPE i VALUE 1,
|
|
lv_index_str TYPE string.
|
|
|
|
**********************************************************************
|
|
* STEP 1: Create [Content_Types].xml into the root of the ZIP
|
|
lo_ixml = cl_ixml=>create( ).
|
|
|
|
**********************************************************************
|
|
* STEP 2: Set document attributes
|
|
lo_encoding = lo_ixml->create_encoding( byte_order = if_ixml_encoding=>co_platform_endian
|
|
character_set = 'UTF-8' ).
|
|
lo_document = lo_ixml->create_document( ).
|
|
lo_document->set_encoding( lo_encoding ).
|
|
lo_document->set_standalone( abap_true ).
|
|
|
|
**********************************************************************
|
|
* STEP 3: Create main node types
|
|
lo_element_root = lo_document->create_simple_element( name = lc_xml_node_types
|
|
parent = lo_document ).
|
|
lo_element_root->set_attribute_ns( name = 'xmlns'
|
|
value = lc_xml_node_types_ns ).
|
|
|
|
**********************************************************************
|
|
* STEP 4: Create subnodes
|
|
|
|
" rels node
|
|
lo_element = lo_document->create_simple_element( name = lc_xml_node_default
|
|
parent = lo_document ).
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_extension
|
|
value = lc_xml_node_rels_ext ).
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_contenttype
|
|
value = lc_xml_node_rels_ct ).
|
|
lo_element_root->append_child( new_child = lo_element ).
|
|
|
|
" extension node
|
|
lo_element = lo_document->create_simple_element( name = lc_xml_node_default
|
|
parent = lo_document ).
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_extension
|
|
value = lc_xml_node_xml_ext ).
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_contenttype
|
|
value = lc_xml_node_xml_ct ).
|
|
lo_element_root->append_child( new_child = lo_element ).
|
|
|
|
" Theme node
|
|
lo_element = lo_document->create_simple_element( name = lc_xml_node_override
|
|
parent = lo_document ).
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_partname
|
|
value = lc_xml_node_theme_pn ).
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_contenttype
|
|
value = lc_xml_node_theme_ct ).
|
|
lo_element_root->append_child( new_child = lo_element ).
|
|
|
|
" Styles node
|
|
lo_element = lo_document->create_simple_element( name = lc_xml_node_override
|
|
parent = lo_document ).
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_partname
|
|
value = lc_xml_node_styles_pn ).
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_contenttype
|
|
value = lc_xml_node_styles_ct ).
|
|
lo_element_root->append_child( new_child = lo_element ).
|
|
|
|
" Workbook node
|
|
lo_element = lo_document->create_simple_element( name = lc_xml_node_override
|
|
parent = lo_document ).
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_partname
|
|
value = lc_xml_node_workb_pn ).
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_contenttype
|
|
value = lc_xml_node_workb_ct ).
|
|
lo_element_root->append_child( new_child = lo_element ).
|
|
|
|
" Properties node
|
|
lo_element = lo_document->create_simple_element( name = lc_xml_node_override
|
|
parent = lo_document ).
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_partname
|
|
value = lc_xml_node_props_pn ).
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_contenttype
|
|
value = lc_xml_node_props_ct ).
|
|
lo_element_root->append_child( new_child = lo_element ).
|
|
|
|
" Worksheet node
|
|
lv_worksheets_num = excel->get_worksheets_size( ).
|
|
DO lv_worksheets_num TIMES.
|
|
lo_element = lo_document->create_simple_element( name = lc_xml_node_override
|
|
parent = lo_document ).
|
|
|
|
MOVE sy-index TO lv_worksheets_numc.
|
|
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.
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_partname
|
|
value = lv_xml_node_worksheet_pn ).
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_contenttype
|
|
value = lc_xml_node_worksheet_ct ).
|
|
lo_element_root->append_child( new_child = lo_element ).
|
|
ENDDO.
|
|
|
|
lo_iterator = me->excel->get_worksheets_iterator( ).
|
|
WHILE lo_iterator->if_object_collection_iterator~has_next( ) EQ abap_true.
|
|
lo_worksheet ?= lo_iterator->if_object_collection_iterator~get_next( ).
|
|
|
|
lo_nested_iterator = lo_worksheet->get_tables_iterator( ).
|
|
|
|
WHILE lo_nested_iterator->if_object_collection_iterator~has_next( ) EQ abap_true.
|
|
lo_table ?= lo_nested_iterator->if_object_collection_iterator~get_next( ).
|
|
|
|
lv_value = lo_table->get_name( ).
|
|
CONCATENATE '/xl/tables/' lv_value '.xml' INTO lv_value.
|
|
|
|
lo_element = lo_document->create_simple_element( name = lc_xml_node_override
|
|
parent = lo_document ).
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_partname
|
|
value = lv_value ).
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_contenttype
|
|
value = lc_xml_node_table_ct ).
|
|
lo_element_root->append_child( new_child = lo_element ).
|
|
ENDWHILE.
|
|
|
|
" Drawings
|
|
DATA: lo_drawings TYPE REF TO zcl_excel_drawings.
|
|
|
|
lo_drawings = lo_worksheet->get_drawings( ).
|
|
IF lo_drawings->is_empty( ) = abap_false.
|
|
lv_index_str = lv_drawing_index.
|
|
CONDENSE lv_index_str NO-GAPS.
|
|
CONCATENATE '/' me->c_xl_drawings INTO lv_value.
|
|
REPLACE '#' WITH lv_index_str INTO lv_value.
|
|
|
|
lo_element = lo_document->create_simple_element( name = lc_xml_node_override
|
|
parent = lo_document ).
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_partname
|
|
value = lv_value ).
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_contenttype
|
|
value = lc_xml_node_drawings_ct ).
|
|
lo_element_root->append_child( new_child = lo_element ).
|
|
|
|
ADD 1 TO lv_drawing_index.
|
|
ENDIF.
|
|
ENDWHILE.
|
|
|
|
" media mimes
|
|
DATA: lo_drawing TYPE REF TO zcl_excel_drawing,
|
|
lt_media_type TYPE TABLE OF mimetypes-extension,
|
|
lv_media_type TYPE mimetypes-extension,
|
|
lv_mime_type TYPE mimetypes-type.
|
|
|
|
lo_iterator = me->excel->get_drawings_iterator( ).
|
|
WHILE lo_iterator->if_object_collection_iterator~has_next( ) = abap_true.
|
|
lo_drawing ?= lo_iterator->if_object_collection_iterator~get_next( ).
|
|
|
|
lv_media_type = lo_drawing->get_media_type( ).
|
|
COLLECT lv_media_type INTO lt_media_type.
|
|
ENDWHILE.
|
|
|
|
LOOP AT lt_media_type INTO lv_media_type.
|
|
CALL FUNCTION 'SDOK_MIMETYPE_GET'
|
|
EXPORTING
|
|
extension = lv_media_type
|
|
IMPORTING
|
|
mimetype = lv_mime_type.
|
|
|
|
lo_element = lo_document->create_simple_element( name = lc_xml_node_default
|
|
parent = lo_document ).
|
|
lv_value = lv_media_type.
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_extension
|
|
value = lv_value ).
|
|
lv_value = lv_mime_type.
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_contenttype
|
|
value = lv_value ).
|
|
lo_element_root->append_child( new_child = lo_element ).
|
|
ENDLOOP.
|
|
|
|
" Strings node
|
|
lo_element = lo_document->create_simple_element( name = lc_xml_node_override
|
|
parent = lo_document ).
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_partname
|
|
value = lc_xml_node_strings_pn ).
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_contenttype
|
|
value = lc_xml_node_strings_ct ).
|
|
lo_element_root->append_child( new_child = lo_element ).
|
|
|
|
" Strings node
|
|
lo_element = lo_document->create_simple_element( name = lc_xml_node_override
|
|
parent = lo_document ).
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_partname
|
|
value = lc_xml_node_core_pn ).
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_contenttype
|
|
value = lc_xml_node_core_ct ).
|
|
lo_element_root->append_child( new_child = lo_element ).
|
|
|
|
**********************************************************************
|
|
* STEP 5: Create xstring stream
|
|
lo_streamfactory = lo_ixml->create_stream_factory( ).
|
|
lo_ostream = lo_streamfactory->create_ostream_xstring( string = ep_content ).
|
|
lo_renderer = lo_ixml->create_renderer( ostream = lo_ostream document = lo_document ).
|
|
lo_renderer->render( ).
|
|
|
|
endmethod.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_WRITER_2007" CMPNAME="CREATE_DOCPROPS_APP" VERSION="1" LANGU="E" DESCRIPT="Create 'docProps/app.xml'" EXPOSURE="1" STATE="1" EDITORDER="3 " DISPID="0 " AUTHOR="FEMIA" CREATEDON="20110528" CHANGEDBY="FEMIA" CHANGEDON="20110601" MTDTYPE="0" MTDDECLTYP="0" R3RELEASE="702" BCMTDCAT="00" BCMTDSYN="0">
|
|
<parameter CLSNAME="ZCL_EXCEL_WRITER_2007" CMPNAME="CREATE_DOCPROPS_APP" SCONAME="EP_CONTENT" VERSION="1" LANGU="E" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " AUTHOR="FEMIA" CREATEDON="20110528" CHANGEDBY="FEMIA" CHANGEDON="20110528" PARDECLTYP="3" PARPASSTYP="0" TYPTYPE="1" TYPE="XSTRING"/>
|
|
<source>method CREATE_DOCPROPS_APP.
|
|
|
|
|
|
** Constant node name
|
|
DATA: lc_xml_node_properties TYPE string VALUE 'Properties',
|
|
lc_xml_node_application TYPE string VALUE 'Application',
|
|
lc_xml_node_docsecurity TYPE string VALUE 'DocSecurity',
|
|
lc_xml_node_scalecrop TYPE string VALUE 'ScaleCrop',
|
|
lc_xml_node_headingpairs TYPE string VALUE 'HeadingPairs',
|
|
lc_xml_node_vector TYPE string VALUE 'vector',
|
|
lc_xml_node_variant TYPE string VALUE 'variant',
|
|
lc_xml_node_lpstr TYPE string VALUE 'lpstr',
|
|
lc_xml_node_i4 TYPE string VALUE 'i4',
|
|
lc_xml_node_titlesofparts TYPE string VALUE 'TitlesOfParts',
|
|
lc_xml_node_company TYPE string VALUE 'Company',
|
|
lc_xml_node_linksuptodate TYPE string VALUE 'LinksUpToDate',
|
|
lc_xml_node_shareddoc TYPE string VALUE 'SharedDoc',
|
|
lc_xml_node_hyperlinkschanged TYPE string VALUE 'HyperlinksChanged',
|
|
lc_xml_node_appversion TYPE string VALUE 'AppVersion',
|
|
" Namespace prefix
|
|
lc_vt_ns TYPE string VALUE 'vt',
|
|
lc_xml_node_props_ns TYPE string VALUE 'http://schemas.openxmlformats.org/officeDocument/2006/extended-properties',
|
|
lc_xml_node_props_vt_ns TYPE string VALUE 'http://schemas.openxmlformats.org/officeDocument/2006/docPropsVTypes',
|
|
" Node attributes
|
|
lc_xml_attr_size TYPE string VALUE 'size',
|
|
lc_xml_attr_basetype TYPE string VALUE 'baseType'.
|
|
|
|
DATA: lo_ixml TYPE REF TO if_ixml,
|
|
lo_document TYPE REF TO if_ixml_document,
|
|
lo_element_root TYPE REF TO if_ixml_element,
|
|
lo_element TYPE REF TO if_ixml_element,
|
|
lo_sub_element_vector TYPE REF TO if_ixml_element,
|
|
lo_sub_element_variant TYPE REF TO if_ixml_element,
|
|
lo_sub_element_lpstr TYPE REF TO if_ixml_element,
|
|
lo_sub_element_i4 TYPE REF TO if_ixml_element,
|
|
lo_encoding TYPE REF TO if_ixml_encoding,
|
|
lo_streamfactory TYPE REF TO if_ixml_stream_factory,
|
|
lo_ostream TYPE REF TO if_ixml_ostream,
|
|
lo_renderer TYPE REF TO if_ixml_renderer,
|
|
lo_iterator TYPE REF TO cl_object_collection_iterator,
|
|
lo_worksheet TYPE REF TO zcl_excel_worksheet.
|
|
|
|
DATA: lv_value TYPE string.
|
|
|
|
**********************************************************************
|
|
* STEP 1: Create [Content_Types].xml into the root of the ZIP
|
|
lo_ixml = cl_ixml=>create( ).
|
|
|
|
**********************************************************************
|
|
* STEP 2: Set document attributes
|
|
lo_encoding = lo_ixml->create_encoding( byte_order = if_ixml_encoding=>co_platform_endian
|
|
character_set = 'utf-8' ).
|
|
lo_document = lo_ixml->create_document( ).
|
|
lo_document->set_encoding( lo_encoding ).
|
|
lo_document->set_standalone( abap_true ).
|
|
|
|
**********************************************************************
|
|
* STEP 3: Create main node properties
|
|
lo_element_root = lo_document->create_simple_element( name = lc_xml_node_properties
|
|
parent = lo_document ).
|
|
lo_element_root->set_attribute_ns( name = 'xmlns'
|
|
value = lc_xml_node_props_ns ).
|
|
lo_element_root->set_attribute_ns( name = 'xmlns:vt'
|
|
value = lc_xml_node_props_vt_ns ).
|
|
|
|
**********************************************************************
|
|
* STEP 4: Create subnodes
|
|
" Application
|
|
lo_element = lo_document->create_simple_element( name = lc_xml_node_application
|
|
parent = lo_document ).
|
|
lv_value = excel->properties->application.
|
|
lo_element->set_value( value = lv_value ).
|
|
lo_element_root->append_child( new_child = lo_element ).
|
|
|
|
" DocSecurity
|
|
lo_element = lo_document->create_simple_element( name = lc_xml_node_docsecurity
|
|
parent = lo_document ).
|
|
lv_value = excel->properties->docsecurity.
|
|
lo_element->set_value( value = lv_value ).
|
|
lo_element_root->append_child( new_child = lo_element ).
|
|
|
|
" ScaleCrop
|
|
lo_element = lo_document->create_simple_element( name = lc_xml_node_scalecrop
|
|
parent = lo_document ).
|
|
lv_value = me->flag2bool( excel->properties->scalecrop ).
|
|
lo_element->set_value( value = lv_value ).
|
|
lo_element_root->append_child( new_child = lo_element ).
|
|
|
|
" HeadingPairs
|
|
lo_element = lo_document->create_simple_element( name = lc_xml_node_headingpairs
|
|
parent = lo_document ).
|
|
|
|
|
|
" * vector node
|
|
lo_sub_element_vector = lo_document->create_simple_element_ns( name = lc_xml_node_vector
|
|
prefix = lc_vt_ns
|
|
parent = lo_document ).
|
|
lo_sub_element_vector->set_attribute_ns( name = lc_xml_attr_size
|
|
value = '2' ).
|
|
lo_sub_element_vector->set_attribute_ns( name = lc_xml_attr_basetype
|
|
value = lc_xml_node_variant ).
|
|
|
|
" ** variant node
|
|
lo_sub_element_variant = lo_document->create_simple_element_ns( name = lc_xml_node_variant
|
|
prefix = lc_vt_ns
|
|
parent = lo_document ).
|
|
|
|
" *** lpstr node
|
|
lo_sub_element_lpstr = lo_document->create_simple_element_ns( name = lc_xml_node_lpstr
|
|
prefix = lc_vt_ns
|
|
parent = lo_document ).
|
|
lv_value = excel->get_worksheets_name( ).
|
|
lo_sub_element_lpstr->set_value( value = lv_value ).
|
|
lo_sub_element_variant->append_child( new_child = lo_sub_element_lpstr ). " lpstr node
|
|
|
|
lo_sub_element_vector->append_child( new_child = lo_sub_element_variant ). " variant node
|
|
|
|
" ** variant node
|
|
lo_sub_element_variant = lo_document->create_simple_element_ns( name = lc_xml_node_variant
|
|
prefix = lc_vt_ns
|
|
parent = lo_document ).
|
|
|
|
" *** i4 node
|
|
lo_sub_element_i4 = lo_document->create_simple_element_ns( name = lc_xml_node_i4
|
|
prefix = lc_vt_ns
|
|
parent = lo_document ).
|
|
lv_value = excel->get_worksheets_size( ).
|
|
SHIFT lv_value RIGHT DELETING TRAILING space.
|
|
SHIFT lv_value LEFT DELETING LEADING space.
|
|
lo_sub_element_i4->set_value( value = lv_value ).
|
|
lo_sub_element_variant->append_child( new_child = lo_sub_element_i4 ). " lpstr node
|
|
|
|
lo_sub_element_vector->append_child( new_child = lo_sub_element_variant ). " variant node
|
|
|
|
lo_element->append_child( new_child = lo_sub_element_vector ). " vector node
|
|
|
|
lo_element_root->append_child( new_child = lo_element ). " HeadingPairs
|
|
|
|
|
|
" TitlesOfParts
|
|
lo_element = lo_document->create_simple_element( name = lc_xml_node_titlesofparts
|
|
parent = lo_document ).
|
|
|
|
|
|
" * vector node
|
|
lo_sub_element_vector = lo_document->create_simple_element_ns( name = lc_xml_node_vector
|
|
prefix = lc_vt_ns
|
|
parent = lo_document ).
|
|
lv_value = excel->get_worksheets_size( ).
|
|
SHIFT lv_value RIGHT DELETING TRAILING space.
|
|
SHIFT lv_value LEFT DELETING LEADING space.
|
|
lo_sub_element_vector->set_attribute_ns( name = lc_xml_attr_size
|
|
value = lv_value ).
|
|
lo_sub_element_vector->set_attribute_ns( name = lc_xml_attr_basetype
|
|
value = lc_xml_node_lpstr ).
|
|
|
|
lo_iterator = excel->get_worksheets_iterator( ).
|
|
|
|
WHILE lo_iterator->if_object_collection_iterator~has_next( ) EQ abap_true.
|
|
" ** lpstr node
|
|
lo_sub_element_lpstr = lo_document->create_simple_element_ns( name = lc_xml_node_lpstr
|
|
prefix = lc_vt_ns
|
|
parent = lo_document ).
|
|
lo_worksheet ?= lo_iterator->if_object_collection_iterator~get_next( ).
|
|
lv_value = lo_worksheet->get_title( ).
|
|
lo_sub_element_lpstr->set_value( value = lv_value ).
|
|
lo_sub_element_vector->append_child( new_child = lo_sub_element_lpstr ). " lpstr node
|
|
ENDWHILE.
|
|
|
|
lo_element->append_child( new_child = lo_sub_element_vector ). " vector node
|
|
|
|
lo_element_root->append_child( new_child = lo_element ). " TitlesOfParts
|
|
|
|
|
|
|
|
" Company
|
|
lo_element = lo_document->create_simple_element( name = lc_xml_node_company
|
|
parent = lo_document ).
|
|
lv_value = excel->properties->company.
|
|
lo_element->set_value( value = lv_value ).
|
|
lo_element_root->append_child( new_child = lo_element ).
|
|
|
|
" LinksUpToDate
|
|
lo_element = lo_document->create_simple_element( name = lc_xml_node_linksuptodate
|
|
parent = lo_document ).
|
|
lv_value = me->flag2bool( excel->properties->linksuptodate ).
|
|
lo_element->set_value( value = lv_value ).
|
|
lo_element_root->append_child( new_child = lo_element ).
|
|
|
|
" SharedDoc
|
|
lo_element = lo_document->create_simple_element( name = lc_xml_node_shareddoc
|
|
parent = lo_document ).
|
|
lv_value = me->flag2bool( excel->properties->shareddoc ).
|
|
lo_element->set_value( value = lv_value ).
|
|
lo_element_root->append_child( new_child = lo_element ).
|
|
|
|
" HyperlinksChanged
|
|
lo_element = lo_document->create_simple_element( name = lc_xml_node_hyperlinkschanged
|
|
parent = lo_document ).
|
|
lv_value = me->flag2bool( excel->properties->hyperlinkschanged ).
|
|
lo_element->set_value( value = lv_value ).
|
|
lo_element_root->append_child( new_child = lo_element ).
|
|
|
|
" AppVersion
|
|
lo_element = lo_document->create_simple_element( name = lc_xml_node_appversion
|
|
parent = lo_document ).
|
|
lv_value = excel->properties->appversion.
|
|
lo_element->set_value( value = lv_value ).
|
|
lo_element_root->append_child( new_child = lo_element ).
|
|
|
|
**********************************************************************
|
|
* STEP 5: Create xstring stream
|
|
lo_streamfactory = lo_ixml->create_stream_factory( ).
|
|
lo_ostream = lo_streamfactory->create_ostream_xstring( string = ep_content ).
|
|
lo_renderer = lo_ixml->create_renderer( ostream = lo_ostream document = lo_document ).
|
|
lo_renderer->render( ).
|
|
|
|
endmethod.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_WRITER_2007" CMPNAME="CREATE_DOCPROPS_CORE" VERSION="1" LANGU="E" DESCRIPT="Create 'docProps/core.xml'" EXPOSURE="1" STATE="1" EDITORDER="4 " DISPID="0 " AUTHOR="FEMIA" CREATEDON="20110528" CHANGEDBY="FEMIA" CHANGEDON="20110601" MTDTYPE="0" MTDDECLTYP="0" R3RELEASE="702" BCMTDCAT="00" BCMTDSYN="0">
|
|
<parameter CLSNAME="ZCL_EXCEL_WRITER_2007" CMPNAME="CREATE_DOCPROPS_CORE" SCONAME="EP_CONTENT" VERSION="1" LANGU="E" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " AUTHOR="FEMIA" CREATEDON="20110528" CHANGEDBY="FEMIA" CHANGEDON="20110528" PARDECLTYP="3" PARPASSTYP="0" TYPTYPE="1" TYPE="XSTRING"/>
|
|
<source>method CREATE_DOCPROPS_CORE.
|
|
|
|
|
|
** Constant node name
|
|
DATA: lc_xml_node_coreproperties TYPE string VALUE 'coreProperties',
|
|
lc_xml_node_creator TYPE string VALUE 'creator',
|
|
lc_xml_node_lastmodifiedby TYPE string VALUE 'lastModifiedBy',
|
|
lc_xml_node_created TYPE string VALUE 'created',
|
|
lc_xml_node_modified TYPE string VALUE 'modified',
|
|
" Node attributes
|
|
lc_xml_attr_type TYPE string VALUE 'type',
|
|
lc_xml_attr_target TYPE string VALUE 'dcterms:W3CDTF',
|
|
" Node namespace
|
|
lc_cp_ns TYPE string VALUE 'cp',
|
|
lc_dc_ns TYPE string VALUE 'dc',
|
|
lc_dcterms_ns TYPE string VALUE 'dcterms',
|
|
lc_dcmitype_ns TYPE string VALUE 'dcmitype',
|
|
lc_xsi_ns TYPE string VALUE 'xsi',
|
|
lc_xml_node_cp_ns TYPE string VALUE 'http://schemas.openxmlformats.org/package/2006/metadata/core-properties',
|
|
lc_xml_node_dc_ns TYPE string VALUE 'http://purl.org/dc/elements/1.1/',
|
|
lc_xml_node_dcterms_ns TYPE string VALUE 'http://purl.org/dc/terms/',
|
|
lc_xml_node_dcmitype_ns TYPE string VALUE 'http://purl.org/dc/dcmitype/',
|
|
lc_xml_node_xsi_ns TYPE string VALUE 'http://www.w3.org/2001/XMLSchema-instance'.
|
|
|
|
DATA: lo_ixml TYPE REF TO if_ixml,
|
|
lo_document TYPE REF TO if_ixml_document,
|
|
lo_element_root TYPE REF TO if_ixml_element,
|
|
lo_element TYPE REF TO if_ixml_element,
|
|
lo_encoding TYPE REF TO if_ixml_encoding,
|
|
lo_streamfactory TYPE REF TO if_ixml_stream_factory,
|
|
lo_ostream TYPE REF TO if_ixml_ostream,
|
|
lo_renderer TYPE REF TO if_ixml_renderer.
|
|
|
|
DATA: lv_value TYPE string.
|
|
|
|
**********************************************************************
|
|
* STEP 1: Create [Content_Types].xml into the root of the ZIP
|
|
lo_ixml = cl_ixml=>create( ).
|
|
|
|
**********************************************************************
|
|
* STEP 2: Set document attributes
|
|
lo_encoding = lo_ixml->create_encoding( byte_order = if_ixml_encoding=>co_platform_endian
|
|
character_set = 'utf-8' ).
|
|
lo_document = lo_ixml->create_document( ).
|
|
lo_document->set_encoding( lo_encoding ).
|
|
lo_document->set_standalone( abap_true ).
|
|
|
|
**********************************************************************
|
|
* STEP 3: Create main node coreProperties
|
|
lo_element_root = lo_document->create_simple_element_ns( name = lc_xml_node_coreproperties
|
|
prefix = lc_cp_ns
|
|
parent = lo_document ).
|
|
lo_element_root->set_attribute_ns( name = 'xmlns:cp'
|
|
value = lc_xml_node_cp_ns ).
|
|
lo_element_root->set_attribute_ns( name = 'xmlns:dc'
|
|
value = lc_xml_node_dc_ns ).
|
|
lo_element_root->set_attribute_ns( name = 'xmlns:dcterms'
|
|
value = lc_xml_node_dcterms_ns ).
|
|
lo_element_root->set_attribute_ns( name = 'xmlns:dcmitype'
|
|
value = lc_xml_node_dcmitype_ns ).
|
|
lo_element_root->set_attribute_ns( name = 'xmlns:xsi'
|
|
value = lc_xml_node_xsi_ns ).
|
|
|
|
**********************************************************************
|
|
* STEP 4: Create subnodes
|
|
" Creator node
|
|
lo_element = lo_document->create_simple_element_ns( name = lc_xml_node_creator
|
|
prefix = lc_dc_ns
|
|
parent = lo_document ).
|
|
lv_value = excel->properties->creator.
|
|
lo_element->set_value( value = lv_value ).
|
|
lo_element_root->append_child( new_child = lo_element ).
|
|
|
|
" lastModifiedBy node
|
|
lo_element = lo_document->create_simple_element_ns( name = lc_xml_node_lastmodifiedby
|
|
prefix = lc_cp_ns
|
|
parent = lo_document ).
|
|
lv_value = excel->properties->lastmodifiedby.
|
|
lo_element->set_value( value = lv_value ).
|
|
lo_element_root->append_child( new_child = lo_element ).
|
|
|
|
" Created node
|
|
lo_element = lo_document->create_simple_element_ns( name = lc_xml_node_created
|
|
prefix = lc_dcterms_ns
|
|
parent = lo_document ).
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_type
|
|
prefix = lc_xsi_ns
|
|
value = lc_xml_attr_target ).
|
|
lv_value = excel->properties->created.
|
|
lv_value = '2010-07-04T14:58:53Z'.
|
|
lo_element->set_value( value = lv_value ).
|
|
lo_element_root->append_child( new_child = lo_element ).
|
|
|
|
" Modified node
|
|
lo_element = lo_document->create_simple_element_ns( name = lc_xml_node_modified
|
|
prefix = lc_dcterms_ns
|
|
parent = lo_document ).
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_type
|
|
prefix = lc_xsi_ns
|
|
value = lc_xml_attr_target ).
|
|
lv_value = excel->properties->modified.
|
|
lv_value = '2010-07-04T14:58:53Z'.
|
|
lo_element->set_value( value = lv_value ).
|
|
lo_element_root->append_child( new_child = lo_element ).
|
|
|
|
**********************************************************************
|
|
* STEP 5: Create xstring stream
|
|
lo_streamfactory = lo_ixml->create_stream_factory( ).
|
|
lo_ostream = lo_streamfactory->create_ostream_xstring( string = ep_content ).
|
|
lo_renderer = lo_ixml->create_renderer( ostream = lo_ostream document = lo_document ).
|
|
lo_renderer->render( ).
|
|
|
|
endmethod.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_WRITER_2007" CMPNAME="CREATE_RELATIONSHIPS" VERSION="1" LANGU="E" DESCRIPT="Create '_rels/.rels'" EXPOSURE="1" STATE="1" EDITORDER="5 " DISPID="0 " AUTHOR="FEMIA" CREATEDON="20110528" CHANGEDBY="FEMIA" CHANGEDON="20110601" MTDTYPE="0" MTDDECLTYP="0" R3RELEASE="702" BCMTDCAT="00" BCMTDSYN="0">
|
|
<parameter CLSNAME="ZCL_EXCEL_WRITER_2007" CMPNAME="CREATE_RELATIONSHIPS" SCONAME="EP_CONTENT" VERSION="1" LANGU="E" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " AUTHOR="FEMIA" CREATEDON="20110528" CHANGEDBY="FEMIA" CHANGEDON="20110528" PARDECLTYP="3" PARPASSTYP="0" TYPTYPE="1" TYPE="XSTRING"/>
|
|
<source>method CREATE_RELATIONSHIPS.
|
|
|
|
|
|
** Constant node name
|
|
DATA: lc_xml_node_relationships TYPE string VALUE 'Relationships',
|
|
lc_xml_node_relationship TYPE string VALUE 'Relationship',
|
|
" Node attributes
|
|
lc_xml_attr_id TYPE string VALUE 'Id',
|
|
lc_xml_attr_type TYPE string VALUE 'Type',
|
|
lc_xml_attr_target TYPE string VALUE 'Target',
|
|
" Node namespace
|
|
lc_xml_node_rels_ns TYPE string VALUE 'http://schemas.openxmlformats.org/package/2006/relationships',
|
|
" Node id
|
|
lc_xml_node_rId1_id TYPE string VALUE 'rId1',
|
|
lc_xml_node_rId2_id TYPE string VALUE 'rId2',
|
|
lc_xml_node_rId3_id TYPE string VALUE 'rId3',
|
|
" Node type
|
|
lc_xml_node_rId1_tp TYPE string VALUE 'http://schemas.openxmlformats.org/officeDocument/2006/relationships/officeDocument',
|
|
lc_xml_node_rId2_tp TYPE string VALUE 'http://schemas.openxmlformats.org/package/2006/relationships/metadata/core-properties',
|
|
lc_xml_node_rId3_tp TYPE string VALUE 'http://schemas.openxmlformats.org/officeDocument/2006/relationships/extended-properties',
|
|
" Node target
|
|
lc_xml_node_rId1_tg TYPE string VALUE 'xl/workbook.xml',
|
|
lc_xml_node_rId2_tg TYPE string VALUE 'docProps/core.xml',
|
|
lc_xml_node_rId3_tg TYPE string VALUE 'docProps/app.xml'.
|
|
|
|
DATA: lo_ixml TYPE REF TO if_ixml,
|
|
lo_document TYPE REF TO if_ixml_document,
|
|
lo_element_root TYPE REF TO if_ixml_element,
|
|
lo_element TYPE REF TO if_ixml_element,
|
|
lo_encoding TYPE REF TO if_ixml_encoding,
|
|
lo_streamfactory TYPE REF TO if_ixml_stream_factory,
|
|
lo_ostream TYPE REF TO if_ixml_ostream,
|
|
lo_renderer TYPE REF TO if_ixml_renderer.
|
|
|
|
**********************************************************************
|
|
* STEP 1: Create [Content_Types].xml into the root of the ZIP
|
|
lo_ixml = cl_ixml=>create( ).
|
|
|
|
**********************************************************************
|
|
* STEP 2: Set document attributes
|
|
lo_encoding = lo_ixml->create_encoding( byte_order = if_ixml_encoding=>co_platform_endian
|
|
character_set = 'utf-8' ).
|
|
lo_document = lo_ixml->create_document( ).
|
|
lo_document->set_encoding( lo_encoding ).
|
|
lo_document->set_standalone( abap_true ).
|
|
|
|
**********************************************************************
|
|
* STEP 3: Create main node relationships
|
|
lo_element_root = lo_document->create_simple_element( name = lc_xml_node_relationships
|
|
parent = lo_document ).
|
|
lo_element_root->set_attribute_ns( name = 'xmlns'
|
|
value = lc_xml_node_rels_ns ).
|
|
|
|
**********************************************************************
|
|
* STEP 4: Create subnodes
|
|
" Theme node
|
|
lo_element = lo_document->create_simple_element( name = lc_xml_node_relationship
|
|
parent = lo_document ).
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_id
|
|
value = lc_xml_node_rId3_id ).
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_type
|
|
value = lc_xml_node_rId3_tp ).
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_target
|
|
value = lc_xml_node_rId3_tg ).
|
|
lo_element_root->append_child( new_child = lo_element ).
|
|
|
|
" Styles node
|
|
lo_element = lo_document->create_simple_element( name = lc_xml_node_relationship
|
|
parent = lo_document ).
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_id
|
|
value = lc_xml_node_rId2_id ).
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_type
|
|
value = lc_xml_node_rId2_tp ).
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_target
|
|
value = lc_xml_node_rId2_tg ).
|
|
lo_element_root->append_child( new_child = lo_element ).
|
|
|
|
" rels node
|
|
lo_element = lo_document->create_simple_element( name = lc_xml_node_relationship
|
|
parent = lo_document ).
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_id
|
|
value = lc_xml_node_rId1_id ).
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_type
|
|
value = lc_xml_node_rId1_tp ).
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_target
|
|
value = lc_xml_node_rId1_tg ).
|
|
lo_element_root->append_child( new_child = lo_element ).
|
|
|
|
**********************************************************************
|
|
* STEP 5: Create xstring stream
|
|
lo_streamfactory = lo_ixml->create_stream_factory( ).
|
|
lo_ostream = lo_streamfactory->create_ostream_xstring( string = ep_content ).
|
|
lo_renderer = lo_ixml->create_renderer( ostream = lo_ostream document = lo_document ).
|
|
lo_renderer->render( ).
|
|
|
|
endmethod.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_WRITER_2007" CMPNAME="CREATE_XL_DRAWINGS" VERSION="1" LANGU="E" DESCRIPT="Create 'xl/drawings/drawing1.xml'" EXPOSURE="1" STATE="1" EDITORDER="6 " DISPID="0 " AUTHOR="FEMIA" CREATEDON="20110528" CHANGEDBY="FEMIA" CHANGEDON="20110601" MTDTYPE="0" MTDDECLTYP="0" R3RELEASE="702" BCMTDCAT="00" BCMTDSYN="0">
|
|
<parameter CLSNAME="ZCL_EXCEL_WRITER_2007" CMPNAME="CREATE_XL_DRAWINGS" SCONAME="IO_WORKSHEET" VERSION="1" LANGU="E" DESCRIPT="Worksheet" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " AUTHOR="FEMIA" CREATEDON="20110528" CHANGEDBY="FEMIA" CHANGEDON="20110528" PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="3" TYPE="ZCL_EXCEL_WORKSHEET"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WRITER_2007" CMPNAME="CREATE_XL_DRAWINGS" SCONAME="EP_CONTENT" VERSION="1" LANGU="E" CMPTYPE="1" MTDTYPE="0" EDITORDER="2 " DISPID="0 " AUTHOR="FEMIA" CREATEDON="20110528" CHANGEDBY="FEMIA" CHANGEDON="20110528" PARDECLTYP="3" PARPASSTYP="0" TYPTYPE="1" TYPE="XSTRING"/>
|
|
<source>method CREATE_XL_DRAWINGS.
|
|
|
|
|
|
** Constant node name
|
|
CONSTANTS: lc_xml_node_wsdr TYPE string VALUE 'xdr:wsDr',
|
|
lc_xml_node_ns_xdr TYPE string VALUE 'http://schemas.openxmlformats.org/drawingml/2006/spreadsheetDrawing',
|
|
lc_xml_node_ns_a TYPE string VALUE 'http://schemas.openxmlformats.org/drawingml/2006/main',
|
|
lc_xml_node_onecellanchor TYPE string VALUE 'xdr:oneCellAnchor',
|
|
lc_xml_node_from TYPE string VALUE 'xdr:from',
|
|
lc_xml_node_to TYPE string VALUE 'xdr:to',
|
|
lc_xml_node_pic TYPE string VALUE 'xdr:pic',
|
|
lc_xml_node_ext TYPE string VALUE 'xdr:ext',
|
|
lc_xml_node_clientdata TYPE string VALUE 'xdr:clientData',
|
|
|
|
lc_xml_node_col TYPE string VALUE 'xdr:col',
|
|
lc_xml_node_coloff TYPE string VALUE 'xdr:colOff',
|
|
lc_xml_node_row TYPE string VALUE 'xdr:row',
|
|
lc_xml_node_rowoff TYPE string VALUE 'xdr:rowOff',
|
|
|
|
lc_xml_node_nvpicpr TYPE string VALUE 'xdr:nvPicPr',
|
|
lc_xml_node_cnvpr TYPE string VALUE 'xdr:cNvPr',
|
|
lc_xml_node_cnvpicpr TYPE string VALUE 'xdr:cNvPicPr',
|
|
lc_xml_node_piclocks TYPE string VALUE 'a:picLocks',
|
|
|
|
lc_xml_node_sppr TYPE string VALUE 'xdr:spPr',
|
|
lc_xml_node_apgeom TYPE string VALUE 'a:prstGeom',
|
|
lc_xml_node_aavlst TYPE string VALUE 'a:avLst',
|
|
|
|
|
|
lc_xml_node_blipfill TYPE string VALUE 'xdr:blipFill',
|
|
lc_xml_node_ablip TYPE string VALUE 'a:blip',
|
|
lc_xml_node_astretch TYPE string VALUE 'a:stretch',
|
|
lc_xml_node_ns_r TYPE string VALUE 'http://schemas.openxmlformats.org/officeDocument/2006/relationships'.
|
|
|
|
|
|
CONSTANTS: lc_on TYPE string VALUE '1',
|
|
lc_off TYPE string VALUE '0'.
|
|
|
|
DATA: lo_ixml TYPE REF TO if_ixml,
|
|
lo_document TYPE REF TO if_ixml_document,
|
|
lo_element_root TYPE REF TO if_ixml_element,
|
|
lo_element TYPE REF TO if_ixml_element,
|
|
lo_element2 TYPE REF TO if_ixml_element,
|
|
lo_element3 TYPE REF TO if_ixml_element,
|
|
lo_element_onecellanchor TYPE REF TO if_ixml_element,
|
|
lo_element_from TYPE REF TO if_ixml_element,
|
|
lo_element_ext TYPE REF TO if_ixml_element,
|
|
lo_element_pic TYPE REF TO if_ixml_element,
|
|
lo_element_clientdata TYPE REF TO if_ixml_element,
|
|
lo_encoding TYPE REF TO if_ixml_encoding,
|
|
lo_streamfactory TYPE REF TO if_ixml_stream_factory,
|
|
lo_ostream TYPE REF TO if_ixml_ostream,
|
|
lo_renderer TYPE REF TO if_ixml_renderer,
|
|
lo_iterator TYPE REF TO cl_object_collection_iterator,
|
|
lo_drawing TYPE REF TO zcl_excel_drawing,
|
|
|
|
lv_col TYPE string, " zexcel_cell_column,
|
|
lv_row TYPE string, " zexcel_cell_row.
|
|
lv_counter TYPE i VALUE 0,
|
|
lv_value TYPE string.
|
|
|
|
|
|
|
|
**********************************************************************
|
|
* STEP 1: Create [Content_Types].xml into the root of the ZIP
|
|
lo_ixml = cl_ixml=>create( ).
|
|
|
|
**********************************************************************
|
|
* STEP 2: Set document attributes
|
|
lo_encoding = lo_ixml->create_encoding( byte_order = if_ixml_encoding=>co_platform_endian
|
|
character_set = 'utf-8' ).
|
|
lo_document = lo_ixml->create_document( ).
|
|
lo_document->set_encoding( lo_encoding ).
|
|
lo_document->set_standalone( abap_true ).
|
|
|
|
***********************************************************************
|
|
* STEP 3: Create main node relationships
|
|
lo_element_root = lo_document->create_simple_element( name = lc_xml_node_wsdr
|
|
parent = lo_document ).
|
|
lo_element_root->set_attribute_ns( name = 'xmlns:xdr'
|
|
value = lc_xml_node_ns_xdr ).
|
|
lo_element_root->set_attribute_ns( name = 'xmlns:a'
|
|
value = lc_xml_node_ns_a ).
|
|
|
|
**********************************************************************
|
|
* STEP 4: Create drawings
|
|
|
|
lo_iterator = io_worksheet->get_drawings_iterator( ).
|
|
WHILE lo_iterator->if_object_collection_iterator~has_next( ) EQ abap_true.
|
|
lo_drawing ?= lo_iterator->if_object_collection_iterator~get_next( ).
|
|
|
|
lo_element_onecellanchor = lo_document->create_simple_element( name = lc_xml_node_onecellanchor
|
|
parent = lo_document ).
|
|
|
|
* from cell ******************************
|
|
lo_element_from = lo_document->create_simple_element( name = lc_xml_node_from
|
|
parent = lo_document ).
|
|
|
|
lv_col = lo_drawing->get_from_col( ).
|
|
lv_row = lo_drawing->get_from_row( ).
|
|
CONDENSE lv_col NO-GAPS.
|
|
CONDENSE lv_row NO-GAPS.
|
|
|
|
lo_element = lo_document->create_simple_element( name = lc_xml_node_col
|
|
parent = lo_document ).
|
|
lo_element->set_value( value = lv_col ).
|
|
lo_element_from->append_child( new_child = lo_element ).
|
|
|
|
lo_element = lo_document->create_simple_element( name = lc_xml_node_coloff
|
|
parent = lo_document ).
|
|
lo_element->set_value( value = `0` ).
|
|
lo_element_from->append_child( new_child = lo_element ).
|
|
|
|
lo_element = lo_document->create_simple_element( name = lc_xml_node_row
|
|
parent = lo_document ).
|
|
lo_element->set_value( value = lv_row ).
|
|
lo_element_from->append_child( new_child = lo_element ).
|
|
|
|
lo_element = lo_document->create_simple_element( name = lc_xml_node_rowoff
|
|
parent = lo_document ).
|
|
lo_element->set_value( value = `1` ).
|
|
lo_element_from->append_child( new_child = lo_element ).
|
|
|
|
* ext ******************************
|
|
lo_element_ext = lo_document->create_simple_element( name = lc_xml_node_ext
|
|
parent = lo_document ).
|
|
|
|
lv_value = lo_drawing->get_width_emu_str( ).
|
|
lo_element_ext->set_attribute_ns( name = 'cx'
|
|
value = lv_value ).
|
|
lv_value = lo_drawing->get_height_emu_str( ).
|
|
lo_element_ext->set_attribute_ns( name = 'cy'
|
|
value = lv_value ).
|
|
|
|
|
|
* pic **********************************
|
|
lo_element_pic = lo_document->create_simple_element( name = lc_xml_node_pic
|
|
parent = lo_document ).
|
|
* nvPicPr
|
|
lo_element = lo_document->create_simple_element( name = lc_xml_node_nvpicpr
|
|
parent = lo_document ).
|
|
* cNvPr
|
|
lo_element2 = lo_document->create_simple_element( name = lc_xml_node_cnvpr
|
|
parent = lo_document ).
|
|
lv_value = sy-index.
|
|
CONDENSE lv_value.
|
|
lo_element2->set_attribute_ns( name = 'id'
|
|
value = lv_value ).
|
|
lo_element2->set_attribute_ns( name = 'name'
|
|
value = 'Image 1' ).
|
|
lo_element->append_child( new_child = lo_element2 ).
|
|
|
|
* cNvPicPr
|
|
lo_element2 = lo_document->create_simple_element( name = lc_xml_node_cnvpicpr
|
|
parent = lo_document ).
|
|
|
|
* picLocks
|
|
lo_element3 = lo_document->create_simple_element( name = lc_xml_node_piclocks
|
|
parent = lo_document ).
|
|
lo_element3->set_attribute_ns( name = 'noChangeAspect'
|
|
value = '1' ).
|
|
|
|
lo_element2->append_child( new_child = lo_element3 ).
|
|
lo_element->append_child( new_child = lo_element2 ).
|
|
lo_element_pic->append_child( new_child = lo_element ).
|
|
|
|
* blipFill
|
|
ADD 1 TO lv_counter.
|
|
lv_value = lv_counter.
|
|
CONDENSE lv_value.
|
|
CONCATENATE 'rId' lv_value INTO lv_value.
|
|
|
|
lo_element = lo_document->create_simple_element( name = lc_xml_node_blipfill
|
|
parent = lo_document ).
|
|
lo_element2 = lo_document->create_simple_element( name = lc_xml_node_ablip
|
|
parent = lo_document ).
|
|
lo_element2->set_attribute_ns( name = 'xmlns:r'
|
|
value = lc_xml_node_ns_r ).
|
|
lo_element2->set_attribute_ns( name = 'r:embed'
|
|
value = lv_value ).
|
|
lo_element->append_child( new_child = lo_element2 ).
|
|
|
|
lo_element2 = lo_document->create_simple_element( name = lc_xml_node_astretch
|
|
parent = lo_document ).
|
|
lo_element->append_child( new_child = lo_element2 ).
|
|
|
|
lo_element_pic->append_child( new_child = lo_element ).
|
|
|
|
* spPr
|
|
lo_element = lo_document->create_simple_element( name = lc_xml_node_sppr
|
|
parent = lo_document ).
|
|
|
|
lo_element2 = lo_document->create_simple_element( name = lc_xml_node_apgeom
|
|
parent = lo_document ).
|
|
lo_element2->set_attribute_ns( name = 'prst'
|
|
value = 'rect' ).
|
|
lo_element3 = lo_document->create_simple_element( name = lc_xml_node_aavlst
|
|
parent = lo_document ).
|
|
lo_element2->append_child( new_child = lo_element3 ).
|
|
lo_element->append_child( new_child = lo_element2 ).
|
|
|
|
lo_element_pic->append_child( new_child = lo_element ).
|
|
|
|
* client data ***************************
|
|
lo_element_clientdata = lo_document->create_simple_element( name = lc_xml_node_clientdata
|
|
parent = lo_document ).
|
|
|
|
|
|
|
|
|
|
lo_element_onecellanchor->append_child( new_child = lo_element_from ).
|
|
lo_element_onecellanchor->append_child( new_child = lo_element_ext ).
|
|
lo_element_onecellanchor->append_child( new_child = lo_element_pic ).
|
|
lo_element_onecellanchor->append_child( new_child = lo_element_clientdata ).
|
|
lo_element_root->append_child( new_child = lo_element_onecellanchor ).
|
|
|
|
ENDWHILE.
|
|
|
|
**********************************************************************
|
|
* STEP 5: Create xstring stream
|
|
lo_streamfactory = lo_ixml->create_stream_factory( ).
|
|
lo_ostream = lo_streamfactory->create_ostream_xstring( string = ep_content ).
|
|
lo_renderer = lo_ixml->create_renderer( ostream = lo_ostream document = lo_document ).
|
|
lo_renderer->render( ).
|
|
|
|
endmethod.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_WRITER_2007" CMPNAME="CREATE_XL_DRAWINGS_RELS" VERSION="1" LANGU="E" DESCRIPT="Create 'xl/drawings/_rels/drawing1.xml.rels'" EXPOSURE="1" STATE="1" EDITORDER="7 " DISPID="0 " AUTHOR="FEMIA" CREATEDON="20110528" CHANGEDBY="FEMIA" CHANGEDON="20110601" MTDTYPE="0" MTDDECLTYP="0" R3RELEASE="702" BCMTDCAT="00" BCMTDSYN="0">
|
|
<parameter CLSNAME="ZCL_EXCEL_WRITER_2007" CMPNAME="CREATE_XL_DRAWINGS_RELS" SCONAME="IO_WORKSHEET" VERSION="1" LANGU="E" DESCRIPT="Worksheet" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " AUTHOR="FEMIA" CREATEDON="20110528" CHANGEDBY="FEMIA" CHANGEDON="20110528" PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="3" TYPE="ZCL_EXCEL_WORKSHEET"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WRITER_2007" CMPNAME="CREATE_XL_DRAWINGS_RELS" SCONAME="EP_CONTENT" VERSION="1" LANGU="E" CMPTYPE="1" MTDTYPE="0" EDITORDER="2 " DISPID="0 " AUTHOR="FEMIA" CREATEDON="20110528" CHANGEDBY="FEMIA" CHANGEDON="20110528" PARDECLTYP="3" PARPASSTYP="0" TYPTYPE="1" TYPE="XSTRING"/>
|
|
<source>method CREATE_XL_DRAWINGS_RELS.
|
|
|
|
** Constant node name
|
|
DATA: lc_xml_node_relationships TYPE string VALUE 'Relationships',
|
|
lc_xml_node_relationship TYPE string VALUE 'Relationship',
|
|
" Node attributes
|
|
lc_xml_attr_id TYPE string VALUE 'Id',
|
|
lc_xml_attr_type TYPE string VALUE 'Type',
|
|
lc_xml_attr_target TYPE string VALUE 'Target',
|
|
" Node namespace
|
|
lc_xml_node_rels_ns TYPE string VALUE 'http://schemas.openxmlformats.org/package/2006/relationships',
|
|
lc_xml_node_rid_image_tp TYPE string VALUE 'http://schemas.openxmlformats.org/officeDocument/2006/relationships/image'.
|
|
|
|
DATA: lo_ixml TYPE REF TO if_ixml,
|
|
lo_document TYPE REF TO if_ixml_document,
|
|
lo_element_root TYPE REF TO if_ixml_element,
|
|
lo_element TYPE REF TO if_ixml_element,
|
|
lo_encoding TYPE REF TO if_ixml_encoding,
|
|
lo_streamfactory TYPE REF TO if_ixml_stream_factory,
|
|
lo_ostream TYPE REF TO if_ixml_ostream,
|
|
lo_renderer TYPE REF TO if_ixml_renderer,
|
|
lo_iterator TYPE REF TO cl_object_collection_iterator,
|
|
lo_drawing TYPE REF TO zcl_excel_drawing.
|
|
|
|
DATA: lv_value TYPE string,
|
|
lv_counter TYPE i.
|
|
|
|
**********************************************************************
|
|
* STEP 1: Create [Content_Types].xml into the root of the ZIP
|
|
lo_ixml = cl_ixml=>create( ).
|
|
|
|
**********************************************************************
|
|
* STEP 2: Set document attributes
|
|
lo_encoding = lo_ixml->create_encoding( byte_order = if_ixml_encoding=>co_platform_endian
|
|
character_set = 'utf-8' ).
|
|
lo_document = lo_ixml->create_document( ).
|
|
lo_document->set_encoding( lo_encoding ).
|
|
lo_document->set_standalone( abap_true ).
|
|
|
|
**********************************************************************
|
|
* STEP 3: Create main node relationships
|
|
lo_element_root = lo_document->create_simple_element( name = lc_xml_node_relationships
|
|
parent = lo_document ).
|
|
lo_element_root->set_attribute_ns( name = 'xmlns'
|
|
value = lc_xml_node_rels_ns ).
|
|
|
|
**********************************************************************
|
|
* STEP 4: Create subnodes
|
|
|
|
" Add sheet Relationship nodes here
|
|
lv_counter = 0.
|
|
lo_iterator = io_worksheet->get_drawings_iterator( ).
|
|
WHILE lo_iterator->if_object_collection_iterator~has_next( ) EQ abap_true.
|
|
lo_drawing ?= lo_iterator->if_object_collection_iterator~get_next( ).
|
|
ADD 1 TO lv_counter.
|
|
|
|
lv_value = lv_counter.
|
|
CONDENSE lv_value.
|
|
CONCATENATE 'rId' lv_value INTO lv_value.
|
|
|
|
lo_element = lo_document->create_simple_element( name = lc_xml_node_relationship
|
|
parent = lo_document ).
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_id
|
|
value = lv_value ).
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_type
|
|
value = lc_xml_node_rid_image_tp ).
|
|
|
|
lv_value = lo_drawing->get_media_name( ).
|
|
CONCATENATE '../media/' lv_value INTO lv_value.
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_target
|
|
value = lv_value ).
|
|
lo_element_root->append_child( new_child = lo_element ).
|
|
ENDWHILE.
|
|
|
|
**********************************************************************
|
|
* STEP 5: Create xstring stream
|
|
lo_streamfactory = lo_ixml->create_stream_factory( ).
|
|
lo_ostream = lo_streamfactory->create_ostream_xstring( string = ep_content ).
|
|
lo_renderer = lo_ixml->create_renderer( ostream = lo_ostream document = lo_document ).
|
|
lo_renderer->render( ).
|
|
|
|
endmethod.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_WRITER_2007" CMPNAME="CREATE_XL_RELATIONSHIPS" VERSION="1" LANGU="E" DESCRIPT="Create 'xl/_rels/workbook.xml.rels'" EXPOSURE="1" STATE="1" EDITORDER="8 " DISPID="0 " AUTHOR="FEMIA" CREATEDON="20110528" CHANGEDBY="FEMIA" CHANGEDON="20110601" MTDTYPE="0" MTDDECLTYP="0" R3RELEASE="702" BCMTDCAT="00" BCMTDSYN="0">
|
|
<parameter CLSNAME="ZCL_EXCEL_WRITER_2007" CMPNAME="CREATE_XL_RELATIONSHIPS" SCONAME="EP_CONTENT" VERSION="1" LANGU="E" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " AUTHOR="FEMIA" CREATEDON="20110528" CHANGEDBY="FEMIA" CHANGEDON="20110528" PARDECLTYP="3" PARPASSTYP="0" TYPTYPE="1" TYPE="XSTRING"/>
|
|
<source>method CREATE_XL_RELATIONSHIPS.
|
|
|
|
|
|
** Constant node name
|
|
DATA: lc_xml_node_relationships TYPE string VALUE 'Relationships',
|
|
lc_xml_node_relationship TYPE string VALUE 'Relationship',
|
|
" Node attributes
|
|
lc_xml_attr_id TYPE string VALUE 'Id',
|
|
lc_xml_attr_type TYPE string VALUE 'Type',
|
|
lc_xml_attr_target TYPE string VALUE 'Target',
|
|
" Node namespace
|
|
lc_xml_node_rels_ns TYPE string VALUE 'http://schemas.openxmlformats.org/package/2006/relationships',
|
|
" Node id
|
|
lc_xml_node_ridx_id TYPE string VALUE 'rId#',
|
|
" Node type
|
|
lc_xml_node_rid_sheet_tp TYPE string VALUE 'http://schemas.openxmlformats.org/officeDocument/2006/relationships/worksheet',
|
|
lc_xml_node_rid_theme_tp TYPE string VALUE 'http://schemas.openxmlformats.org/officeDocument/2006/relationships/theme',
|
|
lc_xml_node_rid_styles_tp TYPE string VALUE 'http://schemas.openxmlformats.org/officeDocument/2006/relationships/styles',
|
|
lc_xml_node_rid_shared_tp TYPE string VALUE 'http://schemas.openxmlformats.org/officeDocument/2006/relationships/sharedStrings',
|
|
" Node target
|
|
lc_xml_node_ridx_tg TYPE string VALUE 'worksheets/sheet#.xml',
|
|
lc_xml_node_rid_shared_tg TYPE string VALUE 'sharedStrings.xml',
|
|
lc_xml_node_rid_styles_tg TYPE string VALUE 'styles.xml',
|
|
lc_xml_node_rid_theme_tg TYPE string VALUE 'theme/theme1.xml'.
|
|
|
|
DATA: lo_ixml TYPE REF TO if_ixml,
|
|
lo_document TYPE REF TO if_ixml_document,
|
|
lo_element_root TYPE REF TO if_ixml_element,
|
|
lo_element TYPE REF TO if_ixml_element,
|
|
lo_encoding TYPE REF TO if_ixml_encoding,
|
|
lo_streamfactory TYPE REF TO if_ixml_stream_factory,
|
|
lo_ostream TYPE REF TO if_ixml_ostream,
|
|
lo_renderer TYPE REF TO if_ixml_renderer.
|
|
|
|
DATA: lv_xml_node_ridx_tg TYPE string,
|
|
lv_xml_node_ridx_id TYPE string,
|
|
lv_size TYPE i,
|
|
lv_syindex(2) TYPE c.
|
|
|
|
**********************************************************************
|
|
* STEP 1: Create [Content_Types].xml into the root of the ZIP
|
|
lo_ixml = cl_ixml=>create( ).
|
|
|
|
**********************************************************************
|
|
* STEP 2: Set document attributes
|
|
lo_encoding = lo_ixml->create_encoding( byte_order = if_ixml_encoding=>co_platform_endian
|
|
character_set = 'utf-8' ).
|
|
lo_document = lo_ixml->create_document( ).
|
|
lo_document->set_encoding( lo_encoding ).
|
|
lo_document->set_standalone( abap_true ).
|
|
|
|
**********************************************************************
|
|
* STEP 3: Create main node relationships
|
|
lo_element_root = lo_document->create_simple_element( name = lc_xml_node_relationships
|
|
parent = lo_document ).
|
|
lo_element_root->set_attribute_ns( name = 'xmlns'
|
|
value = lc_xml_node_rels_ns ).
|
|
|
|
**********************************************************************
|
|
* STEP 4: Create subnodes
|
|
|
|
lv_size = excel->get_worksheets_size( ).
|
|
|
|
" Relationship node
|
|
lo_element = lo_document->create_simple_element( name = lc_xml_node_relationship
|
|
parent = lo_document ).
|
|
lv_size = lv_size + 2.
|
|
lv_syindex = lv_size.
|
|
SHIFT lv_syindex RIGHT DELETING TRAILING space.
|
|
SHIFT lv_syindex LEFT DELETING LEADING space.
|
|
lv_xml_node_ridx_id = lc_xml_node_ridx_id.
|
|
REPLACE ALL OCCURRENCES OF '#' IN lv_xml_node_ridx_id WITH lv_syindex.
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_id
|
|
value = lv_xml_node_ridx_id ).
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_type
|
|
value = lc_xml_node_rid_styles_tp ).
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_target
|
|
value = lc_xml_node_rid_styles_tg ).
|
|
lo_element_root->append_child( new_child = lo_element ).
|
|
|
|
|
|
" Relationship node
|
|
lo_element = lo_document->create_simple_element( name = lc_xml_node_relationship
|
|
parent = lo_document ).
|
|
lv_size = lv_size - 1.
|
|
lv_syindex = lv_size.
|
|
SHIFT lv_syindex RIGHT DELETING TRAILING space.
|
|
SHIFT lv_syindex LEFT DELETING LEADING space.
|
|
lv_xml_node_ridx_id = lc_xml_node_ridx_id.
|
|
REPLACE ALL OCCURRENCES OF '#' IN lv_xml_node_ridx_id WITH lv_syindex.
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_id
|
|
value = lv_xml_node_ridx_id ).
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_type
|
|
value = lc_xml_node_rid_theme_tp ).
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_target
|
|
value = lc_xml_node_rid_theme_tg ).
|
|
lo_element_root->append_child( new_child = lo_element ).
|
|
|
|
lv_size = excel->get_worksheets_size( ).
|
|
|
|
DO lv_size TIMES.
|
|
" Relationship node
|
|
lo_element = lo_document->create_simple_element( name = lc_xml_node_relationship
|
|
parent = lo_document ).
|
|
lv_xml_node_ridx_id = lc_xml_node_ridx_id.
|
|
lv_xml_node_ridx_tg = lc_xml_node_ridx_tg.
|
|
lv_syindex = sy-index.
|
|
SHIFT lv_syindex RIGHT DELETING TRAILING space.
|
|
SHIFT lv_syindex LEFT DELETING LEADING space.
|
|
REPLACE ALL OCCURRENCES OF '#' IN lv_xml_node_ridx_id WITH lv_syindex.
|
|
REPLACE ALL OCCURRENCES OF '#' IN lv_xml_node_ridx_tg WITH lv_syindex.
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_id
|
|
value = lv_xml_node_ridx_id ).
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_type
|
|
value = lc_xml_node_rid_sheet_tp ).
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_target
|
|
value = lv_xml_node_ridx_tg ).
|
|
lo_element_root->append_child( new_child = lo_element ).
|
|
ENDDO.
|
|
|
|
" Relationship node
|
|
lo_element = lo_document->create_simple_element( name = lc_xml_node_relationship
|
|
parent = lo_document ).
|
|
ADD 3 TO lv_size.
|
|
lv_syindex = lv_size.
|
|
SHIFT lv_syindex RIGHT DELETING TRAILING space.
|
|
SHIFT lv_syindex LEFT DELETING LEADING space.
|
|
lv_xml_node_ridx_id = lc_xml_node_ridx_id.
|
|
REPLACE ALL OCCURRENCES OF '#' IN lv_xml_node_ridx_id WITH lv_syindex.
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_id
|
|
value = lv_xml_node_ridx_id ).
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_type
|
|
value = lc_xml_node_rid_shared_tp ).
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_target
|
|
value = lc_xml_node_rid_shared_tg ).
|
|
lo_element_root->append_child( new_child = lo_element ).
|
|
|
|
**********************************************************************
|
|
* STEP 5: Create xstring stream
|
|
lo_streamfactory = lo_ixml->create_stream_factory( ).
|
|
lo_ostream = lo_streamfactory->create_ostream_xstring( string = ep_content ).
|
|
lo_renderer = lo_ixml->create_renderer( ostream = lo_ostream document = lo_document ).
|
|
lo_renderer->render( ).
|
|
|
|
endmethod.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_WRITER_2007" CMPNAME="CREATE_XL_SHAREDSTRINGS" VERSION="1" LANGU="E" DESCRIPT="Create 'xl/sharedStrings.xml'" EXPOSURE="1" STATE="1" EDITORDER="9 " DISPID="0 " AUTHOR="FEMIA" CREATEDON="20110528" CHANGEDBY="FEMIA" CHANGEDON="20110601" MTDTYPE="0" MTDDECLTYP="0" R3RELEASE="702" BCMTDCAT="00" BCMTDSYN="0">
|
|
<parameter CLSNAME="ZCL_EXCEL_WRITER_2007" CMPNAME="CREATE_XL_SHAREDSTRINGS" SCONAME="EP_CONTENT" VERSION="1" LANGU="E" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " AUTHOR="FEMIA" CREATEDON="20110528" CHANGEDBY="FEMIA" CHANGEDON="20110528" PARDECLTYP="3" PARPASSTYP="0" TYPTYPE="1" TYPE="XSTRING"/>
|
|
<source>method CREATE_XL_SHAREDSTRINGS.
|
|
|
|
|
|
** Constant node name
|
|
DATA: lc_xml_node_sst TYPE string VALUE 'sst',
|
|
lc_xml_node_si TYPE string VALUE 'si',
|
|
lc_xml_node_t TYPE string VALUE 't',
|
|
" Node attributes
|
|
lc_xml_attr_count TYPE string VALUE 'count',
|
|
lc_xml_attr_uniquecount TYPE string VALUE 'uniqueCount',
|
|
" Node namespace
|
|
lc_xml_node_ns TYPE string VALUE 'http://schemas.openxmlformats.org/spreadsheetml/2006/main'.
|
|
|
|
DATA: lo_ixml TYPE REF TO if_ixml,
|
|
lo_document TYPE REF TO if_ixml_document,
|
|
lo_element_root TYPE REF TO if_ixml_element,
|
|
lo_element TYPE REF TO if_ixml_element,
|
|
lo_sub_element TYPE REF TO if_ixml_element,
|
|
lo_encoding TYPE REF TO if_ixml_encoding,
|
|
lo_streamfactory TYPE REF TO if_ixml_stream_factory,
|
|
lo_ostream TYPE REF TO if_ixml_ostream,
|
|
lo_renderer TYPE REF TO if_ixml_renderer,
|
|
lo_iterator TYPE REF TO cl_object_collection_iterator,
|
|
lo_worksheet TYPE REF TO zcl_excel_worksheet.
|
|
|
|
DATA: lt_cell_data TYPE zexcel_t_cell_data_unsorted,
|
|
ls_shared_string TYPE zexcel_s_shared_string,
|
|
lv_value TYPE string,
|
|
lv_count_str TYPE string,
|
|
lv_uniquecount_str TYPE string,
|
|
lv_sytabix TYPE sytabix,
|
|
lv_count TYPE i,
|
|
lv_uniquecount TYPE i.
|
|
|
|
FIELD-SYMBOLS: <fs_sheet_content> TYPE zexcel_s_cell_data,
|
|
<fs_sheet_string> TYPE zexcel_s_shared_string.
|
|
|
|
**********************************************************************
|
|
* STEP 1: Collect strings from each worksheet
|
|
lo_iterator = excel->get_worksheets_iterator( ).
|
|
|
|
WHILE lo_iterator->if_object_collection_iterator~has_next( ) EQ abap_true.
|
|
lo_worksheet ?= lo_iterator->if_object_collection_iterator~get_next( ).
|
|
APPEND LINES OF lo_worksheet->sheet_content TO lt_cell_data.
|
|
ENDWHILE.
|
|
|
|
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.
|
|
|
|
SHIFT lv_count_str RIGHT DELETING TRAILING space.
|
|
SHIFT lv_count_str LEFT DELETING LEADING space.
|
|
|
|
SORT lt_cell_data BY cell_value.
|
|
DELETE ADJACENT DUPLICATES FROM lt_cell_data COMPARING cell_value.
|
|
|
|
DESCRIBE TABLE lt_cell_data LINES lv_uniquecount.
|
|
MOVE lv_uniquecount TO lv_uniquecount_str.
|
|
|
|
SHIFT lv_uniquecount_str RIGHT DELETING TRAILING space.
|
|
SHIFT lv_uniquecount_str LEFT DELETING LEADING space.
|
|
|
|
LOOP AT lt_cell_data ASSIGNING <fs_sheet_content>.
|
|
lv_sytabix = sy-tabix - 1.
|
|
MOVE lv_sytabix TO ls_shared_string-string_no.
|
|
MOVE <fs_sheet_content>-cell_value TO ls_shared_string-string_value.
|
|
APPEND ls_shared_string TO shared_strings.
|
|
ENDLOOP.
|
|
|
|
|
|
**********************************************************************
|
|
* STEP 1: Create [Content_Types].xml into the root of the ZIP
|
|
lo_ixml = cl_ixml=>create( ).
|
|
|
|
**********************************************************************
|
|
* STEP 2: Set document attributes
|
|
lo_encoding = lo_ixml->create_encoding( byte_order = if_ixml_encoding=>co_platform_endian
|
|
character_set = 'utf-8' ).
|
|
lo_document = lo_ixml->create_document( ).
|
|
lo_document->set_encoding( lo_encoding ).
|
|
lo_document->set_standalone( abap_true ).
|
|
|
|
**********************************************************************
|
|
* STEP 3: Create main node
|
|
lo_element_root = lo_document->create_simple_element( name = lc_xml_node_sst
|
|
parent = lo_document ).
|
|
lo_element_root->set_attribute_ns( name = 'xmlns'
|
|
value = lc_xml_node_ns ).
|
|
lo_element_root->set_attribute_ns( name = lc_xml_attr_count
|
|
value = lv_count_str ).
|
|
lo_element_root->set_attribute_ns( name = lc_xml_attr_uniquecount
|
|
value = lv_uniquecount_str ).
|
|
|
|
**********************************************************************
|
|
* STEP 4: Create subnode
|
|
LOOP AT shared_strings ASSIGNING <fs_sheet_string>.
|
|
lo_element = lo_document->create_simple_element( name = lc_xml_node_si
|
|
parent = lo_document ).
|
|
lo_sub_element = lo_document->create_simple_element( name = lc_xml_node_t
|
|
parent = lo_document ).
|
|
lo_sub_element->set_value( value = <fs_sheet_string>-string_value ).
|
|
lo_element->append_child( new_child = lo_sub_element ).
|
|
lo_element_root->append_child( new_child = lo_element ).
|
|
ENDLOOP.
|
|
|
|
**********************************************************************
|
|
* STEP 5: Create xstring stream
|
|
lo_streamfactory = lo_ixml->create_stream_factory( ).
|
|
lo_ostream = lo_streamfactory->create_ostream_xstring( string = ep_content ).
|
|
lo_renderer = lo_ixml->create_renderer( ostream = lo_ostream document = lo_document ).
|
|
lo_renderer->render( ).
|
|
|
|
endmethod.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_WRITER_2007" CMPNAME="CREATE_XL_SHEET" VERSION="1" LANGU="E" DESCRIPT="Create 'xl/sheet.xml'" EXPOSURE="1" STATE="1" EDITORDER="10 " DISPID="0 " AUTHOR="FEMIA" CREATEDON="20110528" CHANGEDBY="FEMIA" CHANGEDON="20110601" MTDTYPE="0" MTDDECLTYP="0" R3RELEASE="702" BCMTDCAT="00" BCMTDSYN="0">
|
|
<parameter CLSNAME="ZCL_EXCEL_WRITER_2007" CMPNAME="CREATE_XL_SHEET" SCONAME="IO_WORKSHEET" VERSION="1" LANGU="E" DESCRIPT="Worksheet" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " AUTHOR="FEMIA" CREATEDON="20110528" CHANGEDBY="FEMIA" CHANGEDON="20110528" PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="3" TYPE="ZCL_EXCEL_WORKSHEET"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WRITER_2007" CMPNAME="CREATE_XL_SHEET" SCONAME="IV_ACTIVE" VERSION="1" LANGU="E" DESCRIPT="General Flag" CMPTYPE="1" MTDTYPE="0" EDITORDER="2 " DISPID="0 " AUTHOR="FEMIA" CREATEDON="20110528" CHANGEDBY="FEMIA" CHANGEDON="20110528" PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="FLAG" PARVALUE="''"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WRITER_2007" CMPNAME="CREATE_XL_SHEET" SCONAME="EP_CONTENT" VERSION="1" LANGU="E" CMPTYPE="1" MTDTYPE="0" EDITORDER="3 " DISPID="0 " AUTHOR="FEMIA" CREATEDON="20110528" CHANGEDBY="FEMIA" CHANGEDON="20110528" PARDECLTYP="3" PARPASSTYP="0" TYPTYPE="1" TYPE="XSTRING"/>
|
|
<source>method CREATE_XL_SHEET.
|
|
|
|
TYPES: BEGIN OF cfvo,
|
|
value TYPE zexcel_conditional_value,
|
|
type TYPE zexcel_conditional_type,
|
|
END OF cfvo.
|
|
|
|
** Constant node name
|
|
DATA: lc_xml_node_worksheet TYPE string VALUE 'worksheet',
|
|
lc_xml_node_sheetpr TYPE string VALUE 'sheetPr',
|
|
lc_xml_node_outlinepr TYPE string VALUE 'outlinePr',
|
|
lc_xml_node_dimension TYPE string VALUE 'dimension',
|
|
lc_xml_node_sheetviews TYPE string VALUE 'sheetViews',
|
|
lc_xml_node_sheetview TYPE string VALUE 'sheetView',
|
|
lc_xml_node_selection TYPE string VALUE 'selection',
|
|
lc_xml_node_pane TYPE string VALUE 'pane',
|
|
lc_xml_node_sheetformatpr TYPE string VALUE 'sheetFormatPr',
|
|
lc_xml_node_cols TYPE string VALUE 'cols',
|
|
lc_xml_node_col TYPE string VALUE 'col',
|
|
lc_xml_node_sheetdata TYPE string VALUE 'sheetData',
|
|
lc_xml_node_row TYPE string VALUE 'row',
|
|
lc_xml_node_c TYPE string VALUE 'c',
|
|
lc_xml_node_v TYPE string VALUE 'v',
|
|
lc_xml_node_f TYPE string VALUE 'f',
|
|
lc_xml_node_sheetprotection TYPE string VALUE 'sheetProtection',
|
|
lc_xml_node_pagemargins TYPE string VALUE 'pageMargins',
|
|
lc_xml_node_pagesetup TYPE string VALUE 'pageSetup',
|
|
lc_xml_node_pagesetuppr TYPE string VALUE 'pageSetUpPr',
|
|
lc_xml_node_condformatting TYPE string VALUE 'conditionalFormatting',
|
|
lc_xml_node_cfrule TYPE string VALUE 'cfRule',
|
|
lc_xml_node_iconset TYPE string VALUE 'iconSet',
|
|
lc_xml_node_cfvo TYPE string VALUE 'cfvo',
|
|
lc_xml_node_formula TYPE string VALUE 'formula',
|
|
lc_xml_node_datavalidations TYPE string VALUE 'dataValidations',
|
|
lc_xml_node_datavalidation TYPE string VALUE 'dataValidation',
|
|
lc_xml_node_formula1 TYPE string VALUE 'formula1',
|
|
lc_xml_node_formula2 TYPE string VALUE 'formula2',
|
|
lc_xml_node_mergecell TYPE string VALUE 'mergeCell',
|
|
lc_xml_node_mergecells TYPE string VALUE 'mergeCells',
|
|
lc_xml_node_drawing TYPE string VALUE 'drawing',
|
|
" Node attributes
|
|
lc_xml_attr_ref TYPE string VALUE 'ref',
|
|
lc_xml_attr_summarybelow TYPE string VALUE 'summaryBelow',
|
|
lc_xml_attr_summaryright TYPE string VALUE 'summaryRight',
|
|
lc_xml_attr_tabselected TYPE string VALUE 'tabSelected',
|
|
lc_xml_attr_showzeros TYPE string VALUE 'showZeros',
|
|
lc_xml_attr_workbookviewid TYPE string VALUE 'workbookViewId',
|
|
lc_xml_attr_showgridlines TYPE string VALUE 'showGridLines',
|
|
lc_xml_attr_gridlines TYPE string VALUE 'gridLines',
|
|
lc_xml_attr_showrowcolheaders TYPE string VALUE 'showRowColHeaders',
|
|
lc_xml_attr_activecell TYPE string VALUE 'activeCell',
|
|
lc_xml_attr_sqref TYPE string VALUE 'sqref',
|
|
lc_xml_attr_min TYPE string VALUE 'min',
|
|
lc_xml_attr_max TYPE string VALUE 'max',
|
|
lc_xml_attr_hidden TYPE string VALUE 'hidden',
|
|
lc_xml_attr_width TYPE string VALUE 'width',
|
|
lc_xml_attr_defaultwidth TYPE string VALUE '9.10',
|
|
lc_xml_attr_style TYPE string VALUE 'style',
|
|
lc_xml_attr_true TYPE string VALUE 'true',
|
|
lc_xml_attr_bestfit TYPE string VALUE 'bestFit',
|
|
lc_xml_attr_customheight TYPE string VALUE 'customHeight',
|
|
lc_xml_attr_customwidth TYPE string VALUE 'customWidth',
|
|
lc_xml_attr_collapsed TYPE string VALUE 'collapsed',
|
|
lc_xml_attr_defaultrowheight TYPE string VALUE 'defaultRowHeight',
|
|
lc_xml_attr_defaultcolwidth TYPE string VALUE 'defaultColWidth',
|
|
lc_xml_attr_outlinelevelrow TYPE string VALUE 'x14ac:outlineLevelRow',
|
|
lc_xml_attr_outlinelevelcol TYPE string VALUE 'x14ac:outlineLevelCol',
|
|
lc_xml_attr_outlinelevel TYPE string VALUE 'outlineLevel',
|
|
lc_xml_attr_r TYPE string VALUE 'r',
|
|
lc_xml_attr_s TYPE string VALUE 's',
|
|
lc_xml_attr_spans TYPE string VALUE 'spans',
|
|
lc_xml_attr_t TYPE string VALUE 't',
|
|
lc_xml_attr_password TYPE string VALUE 'password',
|
|
lc_xml_attr_sheet TYPE string VALUE 'sheet',
|
|
lc_xml_attr_objects TYPE string VALUE 'objects',
|
|
lc_xml_attr_scenarios TYPE string VALUE 'scenarios',
|
|
lc_xml_attr_autofilter TYPE string VALUE 'autoFilter',
|
|
lc_xml_attr_deletecolumns TYPE string VALUE 'deleteColumns',
|
|
lc_xml_attr_deleterows TYPE string VALUE 'deleteRows',
|
|
lc_xml_attr_formatcells TYPE string VALUE 'formatCells',
|
|
lc_xml_attr_formatcolumns TYPE string VALUE 'formatColumns',
|
|
lc_xml_attr_formatrows TYPE string VALUE 'formatRows',
|
|
lc_xml_attr_insertcolumns TYPE string VALUE 'insertColumns',
|
|
lc_xml_attr_inserthyperlinks TYPE string VALUE 'insertHyperlinks',
|
|
lc_xml_attr_insertrows TYPE string VALUE 'insertRows',
|
|
lc_xml_attr_pivottables TYPE string VALUE 'pivotTables',
|
|
lc_xml_attr_selectlockedcells TYPE string VALUE 'selectLockedCells',
|
|
lc_xml_attr_selectunlockedcell TYPE string VALUE 'selectUnlockedCells',
|
|
lc_xml_attr_sort TYPE string VALUE 'sort',
|
|
lc_xml_attr_left TYPE string VALUE 'left',
|
|
lc_xml_attr_right TYPE string VALUE 'right',
|
|
lc_xml_attr_top TYPE string VALUE 'top',
|
|
lc_xml_attr_bottom TYPE string VALUE 'bottom',
|
|
lc_xml_attr_header TYPE string VALUE 'header',
|
|
lc_xml_attr_footer TYPE string VALUE 'footer',
|
|
lc_xml_attr_type TYPE string VALUE 'type',
|
|
lc_xml_attr_iconset TYPE string VALUE 'iconSet',
|
|
lc_xml_attr_showvalue TYPE string VALUE 'showValue',
|
|
lc_xml_attr_val TYPE string VALUE 'val',
|
|
lc_xml_attr_dxfid TYPE string VALUE 'dxfId',
|
|
lc_xml_attr_priority TYPE string VALUE 'priority',
|
|
lc_xml_attr_operator TYPE string VALUE 'operator',
|
|
lc_xml_attr_allowblank TYPE string VALUE 'allowBlank',
|
|
lc_xml_attr_showinputmessage TYPE string VALUE 'showInputMessage',
|
|
lc_xml_attr_showerrormessage TYPE string VALUE 'showErrorMessage',
|
|
lc_xml_attr_errortitle TYPE string VALUE 'errorTitle',
|
|
lc_xml_attr_error TYPE string VALUE 'error',
|
|
lc_xml_attr_prompttitle TYPE string VALUE 'promptTitle',
|
|
lc_xml_attr_prompt TYPE string VALUE 'prompt',
|
|
lc_xml_attr_count TYPE string VALUE 'count',
|
|
lc_xml_attr_blackandwhite TYPE string VALUE 'blackAndWhite',
|
|
lc_xml_attr_cellcomments TYPE string VALUE 'cellComments',
|
|
lc_xml_attr_copies TYPE string VALUE 'copies',
|
|
lc_xml_attr_draft TYPE string VALUE 'draft',
|
|
lc_xml_attr_errors TYPE string VALUE 'errors',
|
|
lc_xml_attr_firstpagenumber TYPE string VALUE 'firstPageNumber',
|
|
lc_xml_attr_fittopage TYPE string VALUE 'fitToPage',
|
|
lc_xml_attr_fittoheight TYPE string VALUE 'fitToHeight',
|
|
lc_xml_attr_fittowidth TYPE string VALUE 'fitToWidth',
|
|
lc_xml_attr_horizontaldpi TYPE string VALUE 'horizontalDpi',
|
|
lc_xml_attr_orientation TYPE string VALUE 'orientation',
|
|
lc_xml_attr_pageorder TYPE string VALUE 'pageOrder',
|
|
lc_xml_attr_paperheight TYPE string VALUE 'paperHeight',
|
|
lc_xml_attr_papersize TYPE string VALUE 'paperSize',
|
|
lc_xml_attr_paperwidth TYPE string VALUE 'paperWidth',
|
|
lc_xml_attr_scale TYPE string VALUE 'scale',
|
|
lc_xml_attr_usefirstpagenumber TYPE string VALUE 'useFirstPageNumber',
|
|
lc_xml_attr_useprinterdefaults TYPE string VALUE 'usePrinterDefaults',
|
|
lc_xml_attr_verticaldpi TYPE string VALUE 'verticalDpi',
|
|
|
|
" Node namespace
|
|
lc_xml_node_ns TYPE string VALUE 'http://schemas.openxmlformats.org/spreadsheetml/2006/main',
|
|
lc_xml_node_r_ns TYPE string VALUE 'http://schemas.openxmlformats.org/officeDocument/2006/relationships',
|
|
lc_xml_node_comp_ns TYPE string VALUE 'http://schemas.openxmlformats.org/markup-compatibility/2006',
|
|
lc_xml_node_comp_pref TYPE string VALUE 'x14ac',
|
|
lc_xml_node_ig_ns TYPE string VALUE 'http://schemas.microsoft.com/office/spreadsheetml/2009/9/ac'.
|
|
|
|
DATA: lo_ixml TYPE REF TO if_ixml,
|
|
lo_document TYPE REF TO if_ixml_document,
|
|
lo_element_root TYPE REF TO if_ixml_element,
|
|
lo_element TYPE REF TO if_ixml_element,
|
|
lo_element_2 TYPE REF TO if_ixml_element,
|
|
lo_element_3 TYPE REF TO if_ixml_element,
|
|
lo_element_4 TYPE REF TO if_ixml_element,
|
|
lo_encoding TYPE REF TO if_ixml_encoding,
|
|
lo_streamfactory TYPE REF TO if_ixml_stream_factory,
|
|
lo_ostream TYPE REF TO if_ixml_ostream,
|
|
lo_renderer TYPE REF TO if_ixml_renderer,
|
|
lo_iterator TYPE REF TO cl_object_collection_iterator,
|
|
lo_style_conditional TYPE REF TO zcl_excel_style_conditional,
|
|
lo_data_validation TYPE REF TO zcl_excel_data_validation,
|
|
lo_table TYPE REF TO zcl_excel_table,
|
|
row_dimension TYPE REF TO zcl_excel_worksheet_rowdimensi,
|
|
default_col_dimension TYPE REF TO zcl_excel_worksheet_columndime,
|
|
default_row_dimension TYPE REF TO zcl_excel_worksheet_rowdimensi.
|
|
|
|
DATA: lv_value TYPE string,
|
|
t_range_merge TYPE string_table,
|
|
lv_merge TYPE string,
|
|
lv_column_p TYPE zexcel_cell_column_alpha,
|
|
lv_column TYPE zexcel_cell_column,
|
|
lv_style_guid TYPE zexcel_cell_style,
|
|
lv_flag TYPE c,
|
|
ls_iconset TYPE zexcel_conditional_iconset,
|
|
ls_cellis TYPE zexcel_conditional_cellis,
|
|
ls_expression TYPE zexcel_conditional_expression,
|
|
lt_cfvo TYPE TABLE OF cfvo,
|
|
ls_cfvo TYPE cfvo,
|
|
lv_cell_row_s TYPE string,
|
|
ls_last_row TYPE zexcel_s_cell_data,
|
|
ls_style_mapping TYPE zexcel_s_styles_mapping,
|
|
lv_freeze_cell_row TYPE zexcel_cell_row,
|
|
lv_freeze_cell_column TYPE zexcel_cell_column,
|
|
lv_freeze_cell_column_alpha TYPE zexcel_cell_column_alpha,
|
|
column_dimensions TYPE zexcel_t_worksheet_columndime,
|
|
row_dimensions TYPE zexcel_t_worksheet_rowdimensio,
|
|
ls_style_cond_mapping TYPE zexcel_s_styles_cond_mapping,
|
|
lv_relation_id TYPE i VALUE 0,
|
|
outline_level_row TYPE i VALUE 0,
|
|
outline_level_col TYPE i VALUE 0,
|
|
col_count TYPE int4,
|
|
merge_count TYPE int4,
|
|
write_current_row TYPE boolean.
|
|
|
|
FIELD-SYMBOLS: <ls_sheet_content> TYPE zexcel_s_cell_data,
|
|
<fs_range_merge> LIKE LINE OF t_range_merge,
|
|
<column_dimension> TYPE zexcel_s_worksheet_columndime,
|
|
<row_dimension> TYPE zexcel_s_worksheet_rowdimensio.
|
|
|
|
**********************************************************************
|
|
* STEP 1: Create [Content_Types].xml into the root of the ZIP
|
|
lo_ixml = cl_ixml=>create( ).
|
|
|
|
**********************************************************************
|
|
* STEP 2: Set document attributes
|
|
lo_encoding = lo_ixml->create_encoding( byte_order = if_ixml_encoding=>co_platform_endian
|
|
character_set = 'utf-8' ).
|
|
lo_document = lo_ixml->create_document( ).
|
|
lo_document->set_encoding( lo_encoding ).
|
|
lo_document->set_standalone( abap_true ).
|
|
|
|
***********************************************************************
|
|
* STEP 3: Create main node relationships
|
|
lo_element_root = lo_document->create_simple_element( name = lc_xml_node_worksheet
|
|
parent = lo_document ).
|
|
lo_element_root->set_attribute_ns( name = 'xmlns'
|
|
value = lc_xml_node_ns ).
|
|
lo_element_root->set_attribute_ns( name = 'xmlns:r'
|
|
value = lc_xml_node_r_ns ).
|
|
lo_element_root->set_attribute_ns( name = 'xmlns:mc'
|
|
value = lc_xml_node_comp_ns ).
|
|
lo_element_root->set_attribute_ns( name = 'mc:Ignorable'
|
|
value = lc_xml_node_comp_pref ).
|
|
lo_element_root->set_attribute_ns( name = 'xmlns:x14ac'
|
|
value = lc_xml_node_ig_ns ).
|
|
|
|
|
|
**********************************************************************
|
|
* STEP 4: Create subnodes
|
|
" sheetPr
|
|
lo_element = lo_document->create_simple_element( name = lc_xml_node_sheetpr
|
|
parent = lo_document ).
|
|
" TODO tabColor
|
|
|
|
" outlinePr
|
|
lo_element_2 = lo_document->create_simple_element( name = lc_xml_node_outlinepr
|
|
parent = lo_document ).
|
|
" TODO read attribute summaryBelow and set the attribute to 0
|
|
lo_element_2->set_attribute_ns( name = lc_xml_attr_summarybelow
|
|
value = '1' ).
|
|
" TODO read attribute summaryRight and set the attribute to 0
|
|
lo_element_2->set_attribute_ns( name = lc_xml_attr_summaryright
|
|
value = '1' ).
|
|
|
|
lo_element->append_child( new_child = lo_element_2 ).
|
|
|
|
IF io_worksheet->sheet_setup->fit_to_page IS NOT INITIAL.
|
|
lo_element_2 = lo_document->create_simple_element( name = lc_xml_node_pagesetuppr
|
|
parent = lo_document ).
|
|
lo_element_2->set_attribute_ns( name = lc_xml_attr_fittopage
|
|
value = `1` ).
|
|
lo_element->append_child( new_child = lo_element_2 ). " pageSetupPr node
|
|
ENDIF.
|
|
|
|
lo_element_root->append_child( new_child = lo_element ).
|
|
|
|
" dimension node
|
|
lo_element = lo_document->create_simple_element( name = lc_xml_node_dimension
|
|
parent = lo_document ).
|
|
lv_value = io_worksheet->get_dimension_range( ).
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_ref
|
|
value = lv_value ).
|
|
lo_element_root->append_child( new_child = lo_element ).
|
|
|
|
" sheetViews node
|
|
lo_element = lo_document->create_simple_element( name = lc_xml_node_sheetviews
|
|
parent = lo_document ).
|
|
" sheetView node
|
|
lo_element_2 = lo_document->create_simple_element( name = lc_xml_node_sheetview
|
|
parent = lo_document ).
|
|
IF io_worksheet->zif_excel_sheet_properties~show_zeros EQ abap_false.
|
|
lo_element_2->set_attribute_ns( name = lc_xml_attr_showzeros
|
|
value = '0' ).
|
|
ENDIF.
|
|
IF iv_active EQ abap_true.
|
|
lo_element_2->set_attribute_ns( name = lc_xml_attr_tabselected
|
|
value = '1' ).
|
|
ELSE.
|
|
lo_element_2->set_attribute_ns( name = lc_xml_attr_tabselected
|
|
value = '0' ).
|
|
ENDIF.
|
|
lo_element_2->set_attribute_ns( name = lc_xml_attr_workbookviewid
|
|
value = '0' ).
|
|
" showGridLines attribute
|
|
IF io_worksheet->show_gridlines = abap_true.
|
|
lo_element_2->set_attribute_ns( name = lc_xml_attr_showgridlines
|
|
value = '1' ).
|
|
ELSE.
|
|
lo_element_2->set_attribute_ns( name = lc_xml_attr_showgridlines
|
|
value = '0' ).
|
|
ENDIF.
|
|
|
|
" showRowColHeaders attribute
|
|
IF io_worksheet->show_rowcolheaders = abap_true.
|
|
lo_element_2->set_attribute_ns( name = lc_xml_attr_showrowcolheaders
|
|
value = '1' ).
|
|
ELSE.
|
|
lo_element_2->set_attribute_ns( name = lc_xml_attr_showrowcolheaders
|
|
value = '0' ).
|
|
ENDIF.
|
|
|
|
|
|
" freeze panes
|
|
io_worksheet->get_freeze_cell( IMPORTING ep_row = lv_freeze_cell_row
|
|
ep_column = lv_freeze_cell_column ).
|
|
|
|
IF lv_freeze_cell_row IS NOT INITIAL AND lv_freeze_cell_column IS NOT INITIAL.
|
|
lo_element_3 = lo_document->create_simple_element( name = lc_xml_node_pane
|
|
parent = lo_element_2 ).
|
|
|
|
IF lv_freeze_cell_row > 1.
|
|
lv_value = lv_freeze_cell_row - 1.
|
|
CONDENSE lv_value.
|
|
lo_element_3->set_attribute_ns( name = 'ySplit'
|
|
value = lv_value ).
|
|
ENDIF.
|
|
|
|
IF lv_freeze_cell_column > 1.
|
|
lv_value = lv_freeze_cell_column - 1.
|
|
CONDENSE lv_value.
|
|
lo_element_3->set_attribute_ns( name = 'xSplit'
|
|
value = lv_value ).
|
|
ENDIF.
|
|
|
|
lv_freeze_cell_column_alpha = zcl_excel_common=>convert_column2alpha( ip_column = lv_freeze_cell_column ).
|
|
lv_value = zcl_excel_common=>number_to_excel_string( ip_value = lv_freeze_cell_row ).
|
|
CONCATENATE lv_freeze_cell_column_alpha lv_value INTO lv_value.
|
|
lo_element_3->set_attribute_ns( name = 'topLeftCell'
|
|
value = lv_value ).
|
|
|
|
lo_element_3->set_attribute_ns( name = 'activePane'
|
|
value = 'bottomRight' ).
|
|
|
|
lo_element_3->set_attribute_ns( name = 'state'
|
|
value = 'frozen' ).
|
|
|
|
lo_element_2->append_child( new_child = lo_element_3 ).
|
|
ENDIF.
|
|
" selection node
|
|
lo_element_3 = lo_document->create_simple_element( name = lc_xml_node_selection
|
|
parent = lo_document ).
|
|
lv_value = io_worksheet->get_active_cell( ).
|
|
lo_element_3->set_attribute_ns( name = lc_xml_attr_activecell
|
|
value = lv_value ).
|
|
|
|
lo_element_3->set_attribute_ns( name = lc_xml_attr_sqref
|
|
value = lv_value ).
|
|
|
|
lo_element_2->append_child( new_child = lo_element_3 ). " sheetView node
|
|
|
|
lo_element->append_child( new_child = lo_element_2 ). " sheetView node
|
|
|
|
lo_element_root->append_child( new_child = lo_element ). " sheetViews node
|
|
|
|
|
|
column_dimensions[] = io_worksheet->get_column_dimensions( ).
|
|
" Calculate col
|
|
IF NOT column_dimensions IS INITIAL.
|
|
io_worksheet->calculate_column_widths( ).
|
|
column_dimensions[] = io_worksheet->get_column_dimensions( ).
|
|
ENDIF.
|
|
row_dimensions[] = io_worksheet->get_row_dimensions( ).
|
|
" sheetFormatPr node
|
|
lo_element = lo_document->create_simple_element( name = lc_xml_node_sheetformatpr
|
|
parent = lo_document ).
|
|
" defaultRowHeight
|
|
default_row_dimension = io_worksheet->get_default_row_dimension( ).
|
|
IF default_row_dimension IS BOUND.
|
|
IF default_row_dimension->get_row_height( ) >= 0.
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_customheight
|
|
value = lc_xml_attr_true ).
|
|
lv_value = default_row_dimension->get_row_height( ).
|
|
ELSE.
|
|
lv_value = '12.75'.
|
|
ENDIF.
|
|
ELSE.
|
|
lv_value = '12.75'.
|
|
ENDIF.
|
|
SHIFT lv_value RIGHT DELETING TRAILING space.
|
|
SHIFT lv_value LEFT DELETING LEADING space.
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_defaultrowheight
|
|
value = lv_value ).
|
|
" defaultColWidth
|
|
default_col_dimension = io_worksheet->get_default_column_dimension( ).
|
|
IF default_col_dimension IS BOUND.
|
|
IF default_col_dimension->get_width( ) >= 0.
|
|
lv_value = default_col_dimension->get_width( ).
|
|
SHIFT lv_value RIGHT DELETING TRAILING space.
|
|
SHIFT lv_value LEFT DELETING LEADING space.
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_defaultcolwidth
|
|
value = lv_value ).
|
|
ENDIF.
|
|
ENDIF.
|
|
" outlineLevelRow
|
|
LOOP AT row_dimensions ASSIGNING <row_dimension>.
|
|
IF <row_dimension>-row_dimension->get_outline_level( ) > outline_level_row.
|
|
outline_level_row = <row_dimension>-row_dimension->get_outline_level( ).
|
|
ENDIF.
|
|
ENDLOOP.
|
|
lv_value = outline_level_row.
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_outlinelevelrow
|
|
value = lv_value ).
|
|
" outlineLevelCol
|
|
LOOP AT column_dimensions ASSIGNING <column_dimension>.
|
|
IF <column_dimension>-column_dimension->get_outline_level( ) > outline_level_col.
|
|
outline_level_col = <column_dimension>-column_dimension->get_outline_level( ).
|
|
ENDIF.
|
|
ENDLOOP.
|
|
lv_value = outline_level_col.
|
|
SHIFT lv_value RIGHT DELETING TRAILING space.
|
|
SHIFT lv_value LEFT DELETING LEADING space.
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_outlinelevelcol
|
|
value = lv_value ).
|
|
* lv_value = 0.
|
|
* SHIFT lv_value RIGHT DELETING TRAILING space.
|
|
* SHIFT lv_value LEFT DELETING LEADING space.
|
|
* lo_element->set_attribute_ns( name = lc_xml_attr_dydescent
|
|
* value = lv_value ).
|
|
|
|
lo_element_root->append_child( new_child = lo_element ). " sheetFormatPr node
|
|
|
|
IF io_worksheet->zif_excel_sheet_properties~get_style( ) IS NOT INITIAL OR NOT column_dimensions IS INITIAL.
|
|
" cols node
|
|
lo_element = lo_document->create_simple_element( name = lc_xml_node_cols
|
|
parent = lo_document ).
|
|
" This code have to be enhanced in order to manage also column style properties
|
|
" Now it is an out/out
|
|
IF NOT column_dimensions IS INITIAL.
|
|
LOOP AT column_dimensions ASSIGNING <column_dimension>.
|
|
" col node
|
|
lo_element_2 = lo_document->create_simple_element( name = lc_xml_node_col
|
|
parent = lo_document ).
|
|
lv_value = <column_dimension>-column_dimension->get_column_index( ).
|
|
SHIFT lv_value RIGHT DELETING TRAILING space.
|
|
SHIFT lv_value LEFT DELETING LEADING space.
|
|
lo_element_2->set_attribute_ns( name = lc_xml_attr_min
|
|
value = lv_value ).
|
|
lo_element_2->set_attribute_ns( name = lc_xml_attr_max
|
|
value = lv_value ).
|
|
" Width
|
|
IF <column_dimension>-column_dimension->get_width( ) < 0.
|
|
lo_element_2->set_attribute_ns( name = lc_xml_attr_width
|
|
value = lc_xml_attr_defaultwidth ).
|
|
ELSE.
|
|
lv_value = <column_dimension>-column_dimension->get_width( ).
|
|
lo_element_2->set_attribute_ns( name = lc_xml_attr_width
|
|
value = lv_value ).
|
|
ENDIF.
|
|
" Column visibility
|
|
IF <column_dimension>-column_dimension->get_visible( ) = abap_false.
|
|
lo_element_2->set_attribute_ns( name = lc_xml_attr_hidden
|
|
value = lc_xml_attr_true ).
|
|
ENDIF.
|
|
" Auto size?
|
|
IF <column_dimension>-column_dimension->get_auto_size( ) = abap_true.
|
|
lo_element_2->set_attribute_ns( name = lc_xml_attr_bestfit
|
|
value = lc_xml_attr_true ).
|
|
ENDIF.
|
|
" Custom width?
|
|
IF default_col_dimension IS BOUND.
|
|
IF <column_dimension>-column_dimension->get_width( )
|
|
<> default_col_dimension->get_width( ).
|
|
lo_element_2->set_attribute_ns( name = lc_xml_attr_customwidth
|
|
value = lc_xml_attr_true ).
|
|
|
|
ENDIF.
|
|
ELSE.
|
|
lo_element_2->set_attribute_ns( name = lc_xml_attr_customwidth
|
|
value = lc_xml_attr_true ).
|
|
ENDIF.
|
|
" Collapsed
|
|
IF <column_dimension>-column_dimension->get_collapsed( ) = abap_true.
|
|
lo_element_2->set_attribute_ns( name = lc_xml_attr_collapsed
|
|
value = lc_xml_attr_true ).
|
|
ENDIF.
|
|
" outlineLevel
|
|
IF <column_dimension>-column_dimension->get_outline_level( ) > 0.
|
|
lv_value = <column_dimension>-column_dimension->get_outline_level( ).
|
|
lo_element_2->set_attribute_ns( name = lc_xml_attr_outlinelevel
|
|
value = lv_value ).
|
|
ENDIF.
|
|
" Style
|
|
lv_value = <column_dimension>-column_dimension->get_xf_index( ).
|
|
SHIFT lv_value RIGHT DELETING TRAILING space.
|
|
SHIFT lv_value LEFT DELETING LEADING space.
|
|
lo_element_2->set_attribute_ns( name = lc_xml_attr_style
|
|
value = lv_value ).
|
|
|
|
lo_element->append_child( new_child = lo_element_2 ). " col node
|
|
ENDLOOP.
|
|
ELSE.
|
|
IF io_worksheet->zif_excel_sheet_properties~get_style( ) IS NOT INITIAL.
|
|
lo_element_2 = lo_document->create_simple_element( name = lc_xml_node_col
|
|
parent = lo_document ).
|
|
lv_value = zcl_excel_common=>c_excel_sheet_min_col.
|
|
CONDENSE lv_value.
|
|
lo_element_2->set_attribute_ns( name = lc_xml_attr_min
|
|
value = lv_value ).
|
|
lv_value = zcl_excel_common=>c_excel_sheet_max_col.
|
|
CONDENSE lv_value.
|
|
lo_element_2->set_attribute_ns( name = lc_xml_attr_max
|
|
value = lv_value ).
|
|
lo_element_2->set_attribute_ns( name = lc_xml_attr_width
|
|
value = lc_xml_attr_defaultwidth ).
|
|
lv_style_guid = io_worksheet->zif_excel_sheet_properties~get_style( ).
|
|
READ TABLE styles_mapping INTO ls_style_mapping WITH KEY guid = lv_style_guid.
|
|
lv_value = ls_style_mapping-style.
|
|
CONDENSE lv_value.
|
|
lo_element_2->set_attribute_ns( name = lc_xml_attr_style
|
|
value = lv_value ).
|
|
lo_element->append_child( new_child = lo_element_2 ). " col node
|
|
ENDIF.
|
|
ENDIF.
|
|
lo_element_root->append_child( new_child = lo_element ). " cols node
|
|
ENDIF.
|
|
" sheetData node
|
|
lo_element = lo_document->create_simple_element( name = lc_xml_node_sheetdata
|
|
parent = lo_document ).
|
|
" Get column count
|
|
col_count = io_worksheet->get_highest_column( ).
|
|
|
|
LOOP AT io_worksheet->sheet_content ASSIGNING <ls_sheet_content>.
|
|
CLEAR ls_style_mapping.
|
|
IF ls_last_row-cell_row NE <ls_sheet_content>-cell_row.
|
|
" Add new row
|
|
lo_element_2 = lo_document->create_simple_element( name = lc_xml_node_row
|
|
parent = lo_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 ).
|
|
row_dimension = io_worksheet->get_row_dimension( <ls_sheet_content>-cell_row ).
|
|
" Do we need the row dimension attributes?
|
|
IF row_dimension->get_row_height( ) >= 0 OR
|
|
row_dimension->get_visible( ) = abap_false OR
|
|
row_dimension->get_collapsed( ) = abap_true OR
|
|
row_dimension->get_outline_level( ) > 0 OR
|
|
row_dimension->get_xf_index( ) <> 0.
|
|
" Row dimensions
|
|
IF row_dimension->get_row_height( ) >= 0.
|
|
lo_element_2->set_attribute_ns( name = 'customHeight' value = '1').
|
|
lv_value = row_dimension->get_row_height( ).
|
|
lo_element_2->set_attribute_ns( name = 'ht' value = lv_value ).
|
|
ENDIF.
|
|
" Row visibility
|
|
IF row_dimension->get_visible( ) = abap_false.
|
|
lo_element_2->set_attribute_ns( name = 'hidden' value = 'true').
|
|
ENDIF.
|
|
" Collapsed
|
|
IF row_dimension->get_collapsed( ) = abap_true.
|
|
lo_element_2->set_attribute_ns( name = 'collapsed' value = 'true').
|
|
ENDIF.
|
|
" Outline level
|
|
IF row_dimension->get_outline_level( ) > 0.
|
|
lv_value = row_dimension->get_outline_level( ).
|
|
lo_element_2->set_attribute_ns( name = 'outlineLevel' value = lv_value ).
|
|
ENDIF.
|
|
" Style
|
|
IF row_dimension->get_xf_index( ) <> 0.
|
|
lv_value = row_dimension->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.
|
|
ENDIF.
|
|
ENDIF.
|
|
lo_element_3 = lo_document->create_simple_element( name = lc_xml_node_c
|
|
parent = lo_document ).
|
|
|
|
lo_element_3->set_attribute_ns( name = lc_xml_attr_r
|
|
value = <ls_sheet_content>-cell_coords ).
|
|
|
|
IF <ls_sheet_content>-cell_style IS NOT INITIAL.
|
|
READ TABLE styles_mapping INTO ls_style_mapping WITH KEY guid = <ls_sheet_content>-cell_style.
|
|
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 = lo_document->create_simple_element( name = lc_xml_node_f
|
|
parent = lo_document ).
|
|
lv_value = <ls_sheet_content>-cell_formula.
|
|
lo_element_4->set_value( value = lv_value ).
|
|
lo_element_3->append_child( new_child = lo_element_4 ). " fomula node
|
|
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.
|
|
lo_element_3->set_attribute_ns( name = lc_xml_attr_t
|
|
value = <ls_sheet_content>-data_type ).
|
|
ENDIF.
|
|
|
|
" value node
|
|
lo_element_4 = lo_document->create_simple_element( name = lc_xml_node_v
|
|
parent = lo_document ).
|
|
|
|
IF <ls_sheet_content>-data_type EQ 's'.
|
|
lv_value = me->get_shared_string_index( <ls_sheet_content>-cell_value ).
|
|
lo_element_4->set_value( value = lv_value ).
|
|
ELSE.
|
|
lv_value = <ls_sheet_content>-cell_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
|
|
IF ls_last_row-cell_row NE <ls_sheet_content>-cell_row.
|
|
lo_element->append_child( new_child = lo_element_2 ). " row node
|
|
ls_last_row = <ls_sheet_content>.
|
|
ENDIF.
|
|
|
|
ENDLOOP.
|
|
lo_element_root->append_child( new_child = lo_element ). " sheetData node
|
|
|
|
|
|
IF io_worksheet->zif_excel_sheet_protection~protected EQ abap_true.
|
|
" 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.
|
|
IF lv_value IS NOT INITIAL.
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_password
|
|
value = lv_value ).
|
|
ENDIF.
|
|
lv_value = io_worksheet->zif_excel_sheet_protection~auto_filter.
|
|
CONDENSE lv_value NO-GAPS.
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_autofilter
|
|
value = lv_value ).
|
|
lv_value = io_worksheet->zif_excel_sheet_protection~delete_columns.
|
|
CONDENSE lv_value NO-GAPS.
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_deletecolumns
|
|
value = lv_value ).
|
|
lv_value = io_worksheet->zif_excel_sheet_protection~delete_rows.
|
|
CONDENSE lv_value NO-GAPS.
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_deleterows
|
|
value = lv_value ).
|
|
lv_value = io_worksheet->zif_excel_sheet_protection~format_cells.
|
|
CONDENSE lv_value NO-GAPS.
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_formatcells
|
|
value = lv_value ).
|
|
lv_value = io_worksheet->zif_excel_sheet_protection~format_columns.
|
|
CONDENSE lv_value NO-GAPS.
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_formatcolumns
|
|
value = lv_value ).
|
|
lv_value = io_worksheet->zif_excel_sheet_protection~format_rows.
|
|
CONDENSE lv_value NO-GAPS.
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_formatrows
|
|
value = lv_value ).
|
|
lv_value = io_worksheet->zif_excel_sheet_protection~insert_columns.
|
|
CONDENSE lv_value NO-GAPS.
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_insertcolumns
|
|
value = lv_value ).
|
|
lv_value = io_worksheet->zif_excel_sheet_protection~insert_hyperlinks.
|
|
CONDENSE lv_value NO-GAPS.
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_inserthyperlinks
|
|
value = lv_value ).
|
|
lv_value = io_worksheet->zif_excel_sheet_protection~insert_rows.
|
|
CONDENSE lv_value NO-GAPS.
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_insertrows
|
|
value = lv_value ).
|
|
lv_value = io_worksheet->zif_excel_sheet_protection~objects.
|
|
CONDENSE lv_value NO-GAPS.
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_objects
|
|
value = lv_value ).
|
|
lv_value = io_worksheet->zif_excel_sheet_protection~pivot_tables.
|
|
CONDENSE lv_value NO-GAPS.
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_pivottables
|
|
value = lv_value ).
|
|
lv_value = io_worksheet->zif_excel_sheet_protection~scenarios.
|
|
CONDENSE lv_value NO-GAPS.
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_scenarios
|
|
value = lv_value ).
|
|
lv_value = io_worksheet->zif_excel_sheet_protection~select_locked_cells.
|
|
CONDENSE lv_value NO-GAPS.
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_selectlockedcells
|
|
value = lv_value ).
|
|
lv_value = io_worksheet->zif_excel_sheet_protection~select_unlocked_cells.
|
|
CONDENSE lv_value NO-GAPS.
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_selectunlockedcell
|
|
value = lv_value ).
|
|
lv_value = io_worksheet->zif_excel_sheet_protection~sheet.
|
|
CONDENSE lv_value NO-GAPS.
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_sheet
|
|
value = lv_value ).
|
|
lv_value = io_worksheet->zif_excel_sheet_protection~sort.
|
|
CONDENSE lv_value NO-GAPS.
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_sort
|
|
value = lv_value ).
|
|
|
|
lo_element_root->append_child( new_child = lo_element ).
|
|
ENDIF.
|
|
|
|
" Merged cells
|
|
t_range_merge = io_worksheet->get_merge( ).
|
|
IF t_range_merge IS NOT INITIAL.
|
|
lo_element = lo_document->create_simple_element( name = lc_xml_node_mergecells
|
|
parent = lo_document ).
|
|
DESCRIBE TABLE t_range_merge LINES merge_count.
|
|
lv_value = merge_count.
|
|
CONDENSE lv_value.
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_count
|
|
value = lv_value ).
|
|
LOOP AT t_range_merge ASSIGNING <fs_range_merge>.
|
|
lo_element_2 = lo_document->create_simple_element( name = lc_xml_node_mergecell
|
|
parent = lo_document ).
|
|
|
|
lo_element_2->set_attribute_ns( name = lc_xml_attr_ref
|
|
value = <fs_range_merge> ).
|
|
lo_element->append_child( new_child = lo_element_2 ).
|
|
lo_element_root->append_child( new_child = lo_element ).
|
|
io_worksheet->delete_merge( ).
|
|
ENDLOOP.
|
|
ENDIF.
|
|
|
|
" Conditional formatting node
|
|
lo_iterator = io_worksheet->get_cond_styles_iterator( ).
|
|
WHILE lo_iterator->if_object_collection_iterator~has_next( ) EQ abap_true.
|
|
lo_style_conditional ?= lo_iterator->if_object_collection_iterator~get_next( ).
|
|
IF lo_style_conditional->rule IS INITIAL.
|
|
CONTINUE.
|
|
ENDIF.
|
|
lo_element = lo_document->create_simple_element( name = lc_xml_node_condformatting
|
|
parent = lo_document ).
|
|
lv_value = lo_style_conditional->get_dimension_range( ) .
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_sqref
|
|
value = lv_value ).
|
|
|
|
" cfRule node
|
|
lo_element_2 = lo_document->create_simple_element( name = lc_xml_node_cfrule
|
|
parent = lo_document ).
|
|
lv_value = lo_style_conditional->rule.
|
|
lo_element_2->set_attribute_ns( name = lc_xml_attr_type
|
|
value = lv_value ).
|
|
lv_value = lo_style_conditional->priority.
|
|
SHIFT lv_value RIGHT DELETING TRAILING space.
|
|
SHIFT lv_value LEFT DELETING LEADING space.
|
|
lo_element_2->set_attribute_ns( name = lc_xml_attr_priority
|
|
value = lv_value ).
|
|
|
|
CASE lo_style_conditional->rule.
|
|
WHEN zcl_excel_style_conditional=>c_rule_iconset.
|
|
|
|
ls_iconset = lo_style_conditional->mode_iconset.
|
|
|
|
CLEAR lt_cfvo.
|
|
" iconset node
|
|
lo_element_3 = lo_document->create_simple_element( name = lc_xml_node_iconset
|
|
parent = lo_document ).
|
|
IF ls_iconset-iconset NE zcl_excel_style_conditional=>c_iconset_3trafficlights.
|
|
lv_value = ls_iconset-iconset.
|
|
lo_element_3->set_attribute_ns( name = lc_xml_attr_iconset
|
|
value = lv_value ).
|
|
ENDIF.
|
|
|
|
" Set the showValue attribute
|
|
lv_value = ls_iconset-showvalue.
|
|
lo_element_3->set_attribute_ns( name = lc_xml_attr_showvalue
|
|
value = lv_value ).
|
|
|
|
CASE ls_iconset-iconset.
|
|
WHEN zcl_excel_style_conditional=>c_iconset_3trafficlights2 OR
|
|
zcl_excel_style_conditional=>c_iconset_3arrows OR
|
|
zcl_excel_style_conditional=>c_iconset_3arrowsgray OR
|
|
zcl_excel_style_conditional=>c_iconset_3flags OR
|
|
zcl_excel_style_conditional=>c_iconset_3signs OR
|
|
zcl_excel_style_conditional=>c_iconset_3symbols OR
|
|
zcl_excel_style_conditional=>c_iconset_3symbols2 OR
|
|
zcl_excel_style_conditional=>c_iconset_3trafficlights OR
|
|
zcl_excel_style_conditional=>c_iconset_3trafficlights2.
|
|
MOVE ls_iconset-cfvo1_value TO ls_cfvo-value.
|
|
MOVE ls_iconset-cfvo1_type TO ls_cfvo-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.
|
|
APPEND ls_cfvo TO lt_cfvo.
|
|
MOVE ls_iconset-cfvo3_value TO ls_cfvo-value.
|
|
MOVE ls_iconset-cfvo3_type TO ls_cfvo-type.
|
|
APPEND ls_cfvo TO lt_cfvo.
|
|
WHEN zcl_excel_style_conditional=>c_iconset_4arrows OR
|
|
zcl_excel_style_conditional=>c_iconset_4arrowsgray OR
|
|
zcl_excel_style_conditional=>c_iconset_4rating OR
|
|
zcl_excel_style_conditional=>c_iconset_4redtoblack OR
|
|
zcl_excel_style_conditional=>c_iconset_4trafficlights.
|
|
MOVE ls_iconset-cfvo1_value TO ls_cfvo-value.
|
|
MOVE ls_iconset-cfvo1_type TO ls_cfvo-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.
|
|
APPEND ls_cfvo TO lt_cfvo.
|
|
MOVE ls_iconset-cfvo3_value TO ls_cfvo-value.
|
|
MOVE ls_iconset-cfvo3_type TO ls_cfvo-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.
|
|
APPEND ls_cfvo TO lt_cfvo.
|
|
WHEN zcl_excel_style_conditional=>c_iconset_5arrows OR
|
|
zcl_excel_style_conditional=>c_iconset_5arrowsgray OR
|
|
zcl_excel_style_conditional=>c_iconset_5quarters OR
|
|
zcl_excel_style_conditional=>c_iconset_5rating.
|
|
MOVE ls_iconset-cfvo1_value TO ls_cfvo-value.
|
|
MOVE ls_iconset-cfvo1_type TO ls_cfvo-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.
|
|
APPEND ls_cfvo TO lt_cfvo.
|
|
MOVE ls_iconset-cfvo3_value TO ls_cfvo-value.
|
|
MOVE ls_iconset-cfvo3_type TO ls_cfvo-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.
|
|
APPEND ls_cfvo TO lt_cfvo.
|
|
MOVE ls_iconset-cfvo5_value TO ls_cfvo-value.
|
|
MOVE ls_iconset-cfvo5_type TO ls_cfvo-type.
|
|
APPEND ls_cfvo TO lt_cfvo.
|
|
WHEN OTHERS.
|
|
CLEAR lt_cfvo.
|
|
ENDCASE.
|
|
|
|
LOOP AT lt_cfvo INTO ls_cfvo.
|
|
" cfvo node
|
|
lo_element_4 = lo_document->create_simple_element( name = lc_xml_node_cfvo
|
|
parent = lo_document ).
|
|
lv_value = ls_cfvo-type.
|
|
lo_element_4->set_attribute_ns( name = lc_xml_attr_type
|
|
value = lv_value ).
|
|
lv_value = ls_cfvo-value.
|
|
lo_element_4->set_attribute_ns( name = lc_xml_attr_val
|
|
value = lv_value ).
|
|
lo_element_3->append_child( new_child = lo_element_4 ). " cfvo node
|
|
ENDLOOP.
|
|
|
|
|
|
lo_element_2->append_child( new_child = lo_element_3 ). " iconset node
|
|
WHEN zcl_excel_style_conditional=>c_rule_cellis.
|
|
ls_cellis = lo_style_conditional->mode_cellis.
|
|
READ TABLE me->styles_cond_mapping INTO ls_style_cond_mapping WITH KEY guid = ls_cellis-cell_style.
|
|
lv_value = ls_style_cond_mapping-dxf.
|
|
CONDENSE lv_value.
|
|
lo_element_2->set_attribute_ns( name = lc_xml_attr_dxfid
|
|
value = lv_value ).
|
|
lv_value = ls_cellis-operator.
|
|
lo_element_2->set_attribute_ns( name = lc_xml_attr_operator
|
|
value = lv_value ).
|
|
" formula node
|
|
lo_element_3 = lo_document->create_simple_element( name = lc_xml_node_formula
|
|
parent = lo_document ).
|
|
lv_value = ls_cellis-formula.
|
|
lo_element_3->set_value( value = lv_value ).
|
|
lo_element_2->append_child( new_child = lo_element_3 ). " formula node
|
|
WHEN zcl_excel_style_conditional=>c_rule_expression.
|
|
ls_expression = lo_style_conditional->mode_expression.
|
|
READ TABLE me->styles_cond_mapping INTO ls_style_cond_mapping WITH KEY guid = ls_expression-cell_style.
|
|
lv_value = ls_style_cond_mapping-dxf.
|
|
CONDENSE lv_value.
|
|
lo_element_2->set_attribute_ns( name = lc_xml_attr_dxfid
|
|
value = lv_value ).
|
|
" formula node
|
|
lo_element_3 = lo_document->create_simple_element( name = lc_xml_node_formula
|
|
parent = lo_document ).
|
|
lv_value = ls_expression-formula.
|
|
lo_element_3->set_value( value = lv_value ).
|
|
lo_element_2->append_child( new_child = lo_element_3 ). " formula node
|
|
ENDCASE.
|
|
|
|
lo_element->append_child( new_child = lo_element_2 ). " cfRule node
|
|
|
|
lo_element_root->append_child( new_child = lo_element ). " Conditional formatting node
|
|
ENDWHILE.
|
|
|
|
IF io_worksheet->get_data_validations_size( ) GT 0.
|
|
" dataValidations node
|
|
lo_element = lo_document->create_simple_element( name = lc_xml_node_datavalidations
|
|
parent = lo_document ).
|
|
" Conditional formatting node
|
|
lo_iterator = io_worksheet->get_data_validations_iterator( ).
|
|
WHILE lo_iterator->if_object_collection_iterator~has_next( ) EQ abap_true.
|
|
lo_data_validation ?= lo_iterator->if_object_collection_iterator~get_next( ).
|
|
" dataValidation node
|
|
lo_element_2 = lo_document->create_simple_element( name = lc_xml_node_datavalidation
|
|
parent = lo_document ).
|
|
lv_value = lo_data_validation->type.
|
|
lo_element_2->set_attribute_ns( name = lc_xml_attr_type
|
|
value = lv_value ).
|
|
IF NOT lo_data_validation->operator IS INITIAL.
|
|
lv_value = lo_data_validation->operator.
|
|
lo_element_2->set_attribute_ns( name = lc_xml_attr_operator
|
|
value = lv_value ).
|
|
ENDIF.
|
|
IF lo_data_validation->allowblank EQ abap_true.
|
|
lv_value = '1'.
|
|
ELSE.
|
|
lv_value = '0'.
|
|
ENDIF.
|
|
lo_element_2->set_attribute_ns( name = lc_xml_attr_allowblank
|
|
value = lv_value ).
|
|
IF lo_data_validation->showinputmessage EQ abap_true.
|
|
lv_value = '1'.
|
|
ELSE.
|
|
lv_value = '0'.
|
|
ENDIF.
|
|
lo_element_2->set_attribute_ns( name = lc_xml_attr_showinputmessage
|
|
value = lv_value ).
|
|
IF lo_data_validation->showerrormessage EQ abap_true.
|
|
lv_value = '1'.
|
|
ELSE.
|
|
lv_value = '0'.
|
|
ENDIF.
|
|
lo_element_2->set_attribute_ns( name = lc_xml_attr_showerrormessage
|
|
value = lv_value ).
|
|
IF NOT lo_data_validation->errortitle IS INITIAL.
|
|
lv_value = lo_data_validation->errortitle.
|
|
lo_element_2->set_attribute_ns( name = lc_xml_attr_errortitle
|
|
value = lv_value ).
|
|
ENDIF.
|
|
IF NOT lo_data_validation->error IS INITIAL.
|
|
lv_value = lo_data_validation->error.
|
|
lo_element_2->set_attribute_ns( name = lc_xml_attr_error
|
|
value = lv_value ).
|
|
ENDIF.
|
|
IF NOT lo_data_validation->prompttitle IS INITIAL.
|
|
lv_value = lo_data_validation->prompttitle.
|
|
lo_element_2->set_attribute_ns( name = lc_xml_attr_prompttitle
|
|
value = lv_value ).
|
|
ENDIF.
|
|
IF NOT lo_data_validation->prompt IS INITIAL.
|
|
lv_value = lo_data_validation->prompt.
|
|
lo_element_2->set_attribute_ns( name = lc_xml_attr_prompt
|
|
value = lv_value ).
|
|
ENDIF.
|
|
lv_cell_row_s = lo_data_validation->cell_row.
|
|
CONDENSE lv_cell_row_s.
|
|
CONCATENATE lo_data_validation->cell_column lv_cell_row_s INTO lv_value.
|
|
IF lo_data_validation->cell_row_to IS NOT INITIAL.
|
|
lv_cell_row_s = lo_data_validation->cell_row_to.
|
|
CONDENSE lv_cell_row_s.
|
|
CONCATENATE lv_value ':' lo_data_validation->cell_column_to lv_cell_row_s INTO lv_value.
|
|
ENDIF.
|
|
lo_element_2->set_attribute_ns( name = lc_xml_attr_sqref
|
|
value = lv_value ).
|
|
" formula1 node
|
|
lo_element_3 = lo_document->create_simple_element( name = lc_xml_node_formula1
|
|
parent = lo_document ).
|
|
lv_value = lo_data_validation->formula1.
|
|
lo_element_3->set_value( value = lv_value ).
|
|
|
|
lo_element_2->append_child( new_child = lo_element_3 ). " formula1 node
|
|
" formula2 node
|
|
IF NOT lo_data_validation->formula2 IS INITIAL.
|
|
lo_element_3 = lo_document->create_simple_element( name = lc_xml_node_formula2
|
|
parent = lo_document ).
|
|
lv_value = lo_data_validation->formula2.
|
|
lo_element_3->set_value( value = lv_value ).
|
|
|
|
lo_element_2->append_child( new_child = lo_element_3 ). " formula2 node
|
|
ENDIF.
|
|
|
|
lo_element->append_child( new_child = lo_element_2 ). " dataValidation node
|
|
ENDWHILE.
|
|
lo_element_root->append_child( new_child = lo_element ). " dataValidations node
|
|
ENDIF.
|
|
|
|
" Hyperlinks
|
|
DATA: lv_hyperlinks_count TYPE i,
|
|
lo_link TYPE REF TO zcl_excel_hyperlink.
|
|
|
|
lv_hyperlinks_count = io_worksheet->get_hyperlinks_size( ).
|
|
IF lv_hyperlinks_count > 0.
|
|
lo_element = lo_document->create_simple_element( name = 'hyperlinks'
|
|
parent = lo_document ).
|
|
|
|
lo_iterator = io_worksheet->get_hyperlinks_iterator( ).
|
|
WHILE lo_iterator->if_object_collection_iterator~has_next( ) EQ abap_true.
|
|
lo_link ?= lo_iterator->if_object_collection_iterator~get_next( ).
|
|
|
|
lo_element_2 = lo_document->create_simple_element( name = 'hyperlink'
|
|
parent = lo_element ).
|
|
|
|
lv_value = lo_link->get_ref( ).
|
|
lo_element_2->set_attribute_ns( name = 'ref'
|
|
value = lv_value ).
|
|
|
|
IF lo_link->is_internal( ) = abap_true.
|
|
lv_value = lo_link->get_url( ).
|
|
lo_element_2->set_attribute_ns( name = 'location'
|
|
value = lv_value ).
|
|
ELSE.
|
|
ADD 1 TO lv_relation_id.
|
|
|
|
lv_value = lv_relation_id.
|
|
CONDENSE lv_value.
|
|
CONCATENATE 'rId' lv_value INTO lv_value.
|
|
|
|
lo_element_2->set_attribute_ns( name = 'r:id'
|
|
value = lv_value ).
|
|
|
|
ENDIF.
|
|
|
|
lo_element->append_child( new_child = lo_element_2 ).
|
|
ENDWHILE.
|
|
|
|
lo_element_root->append_child( new_child = lo_element ).
|
|
ENDIF.
|
|
|
|
|
|
" PrintOptions
|
|
IF io_worksheet->print_gridlines = abap_true OR
|
|
io_worksheet->sheet_setup->vertical_centered = abap_true OR
|
|
io_worksheet->sheet_setup->vertical_centered = abap_true.
|
|
lo_element = lo_document->create_simple_element( name = 'printOptions'
|
|
parent = lo_document ).
|
|
|
|
IF io_worksheet->print_gridlines = abap_true.
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_gridlines
|
|
value = 'true' ).
|
|
ENDIF.
|
|
|
|
IF io_worksheet->sheet_setup->horizontal_centered = abap_true.
|
|
lo_element->set_attribute_ns( name = 'horizontalCentered'
|
|
value = 'true' ).
|
|
ENDIF.
|
|
|
|
IF io_worksheet->sheet_setup->vertical_centered = abap_true.
|
|
lo_element->set_attribute_ns( name = 'verticalCentered'
|
|
value = 'true' ).
|
|
ENDIF.
|
|
|
|
lo_element_root->append_child( new_child = lo_element ).
|
|
ENDIF.
|
|
" pageMargins node
|
|
lo_element = lo_document->create_simple_element( name = lc_xml_node_pagemargins
|
|
parent = lo_document ).
|
|
|
|
lv_value = io_worksheet->sheet_setup->margin_left.
|
|
CONDENSE lv_value NO-GAPS.
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_left
|
|
value = lv_value ).
|
|
lv_value = io_worksheet->sheet_setup->margin_right.
|
|
CONDENSE lv_value NO-GAPS.
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_right
|
|
value = lv_value ).
|
|
lv_value = io_worksheet->sheet_setup->margin_top.
|
|
CONDENSE lv_value NO-GAPS.
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_top
|
|
value = lv_value ).
|
|
lv_value = io_worksheet->sheet_setup->margin_bottom.
|
|
CONDENSE lv_value NO-GAPS.
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_bottom
|
|
value = lv_value ).
|
|
lv_value = io_worksheet->sheet_setup->margin_header.
|
|
CONDENSE lv_value NO-GAPS.
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_header
|
|
value = lv_value ).
|
|
lv_value = io_worksheet->sheet_setup->margin_footer.
|
|
CONDENSE lv_value NO-GAPS.
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_footer
|
|
value = lv_value ).
|
|
lo_element_root->append_child( new_child = lo_element ). " pageMargins node
|
|
|
|
* pageSetup node
|
|
lo_element = lo_document->create_simple_element( name = lc_xml_node_pagesetup
|
|
parent = lo_document ).
|
|
|
|
IF io_worksheet->sheet_setup->black_and_white IS NOT INITIAL.
|
|
CONDENSE lv_value NO-GAPS.
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_blackandwhite
|
|
value = `1` ).
|
|
ENDIF.
|
|
|
|
IF io_worksheet->sheet_setup->cell_comments IS NOT INITIAL.
|
|
CONDENSE lv_value NO-GAPS.
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_cellcomments
|
|
value = io_worksheet->sheet_setup->cell_comments ).
|
|
ENDIF.
|
|
|
|
IF io_worksheet->sheet_setup->copies IS NOT INITIAL.
|
|
lv_value = io_worksheet->sheet_setup->copies.
|
|
CONDENSE lv_value NO-GAPS.
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_copies
|
|
value = lv_value ).
|
|
ENDIF.
|
|
|
|
IF io_worksheet->sheet_setup->draft IS NOT INITIAL.
|
|
CONDENSE lv_value NO-GAPS.
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_draft
|
|
value = `1` ).
|
|
ENDIF.
|
|
|
|
IF io_worksheet->sheet_setup->errors IS NOT INITIAL.
|
|
CONDENSE lv_value NO-GAPS.
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_errors
|
|
value = io_worksheet->sheet_setup->errors ).
|
|
ENDIF.
|
|
|
|
IF io_worksheet->sheet_setup->first_page_number IS NOT INITIAL.
|
|
lv_value = io_worksheet->sheet_setup->first_page_number.
|
|
CONDENSE lv_value NO-GAPS.
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_firstpagenumber
|
|
value = lv_value ).
|
|
ENDIF.
|
|
|
|
IF io_worksheet->sheet_setup->fit_to_page IS NOT INITIAL.
|
|
lv_value = io_worksheet->sheet_setup->fit_to_height.
|
|
CONDENSE lv_value NO-GAPS.
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_fittoheight
|
|
value = lv_value ).
|
|
lv_value = io_worksheet->sheet_setup->fit_to_width.
|
|
CONDENSE lv_value NO-GAPS.
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_fittowidth
|
|
value = lv_value ).
|
|
ENDIF.
|
|
|
|
IF io_worksheet->sheet_setup->horizontal_dpi IS NOT INITIAL.
|
|
lv_value = io_worksheet->sheet_setup->horizontal_dpi.
|
|
CONDENSE lv_value NO-GAPS.
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_horizontaldpi
|
|
value = lv_value ).
|
|
ENDIF.
|
|
|
|
IF io_worksheet->sheet_setup->orientation IS NOT INITIAL.
|
|
lv_value = io_worksheet->sheet_setup->orientation.
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_orientation
|
|
value = lv_value ).
|
|
ENDIF.
|
|
|
|
IF io_worksheet->sheet_setup->page_order IS NOT INITIAL.
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_pageorder
|
|
value = io_worksheet->sheet_setup->page_order ).
|
|
ENDIF.
|
|
|
|
IF io_worksheet->sheet_setup->paper_height IS NOT INITIAL.
|
|
lv_value = io_worksheet->sheet_setup->paper_height.
|
|
CONDENSE lv_value NO-GAPS.
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_paperheight
|
|
value = lv_value ).
|
|
ENDIF.
|
|
|
|
IF io_worksheet->sheet_setup->paper_size IS NOT INITIAL.
|
|
lv_value = io_worksheet->sheet_setup->paper_size.
|
|
CONDENSE lv_value NO-GAPS.
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_papersize
|
|
value = lv_value ).
|
|
ENDIF.
|
|
|
|
IF io_worksheet->sheet_setup->paper_width IS NOT INITIAL.
|
|
lv_value = io_worksheet->sheet_setup->paper_width.
|
|
CONDENSE lv_value NO-GAPS.
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_paperwidth
|
|
value = lv_value ).
|
|
ENDIF.
|
|
|
|
IF io_worksheet->sheet_setup->scale IS NOT INITIAL.
|
|
lv_value = io_worksheet->sheet_setup->scale.
|
|
CONDENSE lv_value NO-GAPS.
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_scale
|
|
value = lv_value ).
|
|
ENDIF.
|
|
|
|
IF io_worksheet->sheet_setup->use_first_page_num IS NOT INITIAL.
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_usefirstpagenumber
|
|
value = `1` ).
|
|
ENDIF.
|
|
|
|
IF io_worksheet->sheet_setup->use_printer_defaults IS NOT INITIAL.
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_useprinterdefaults
|
|
value = `1` ).
|
|
ENDIF.
|
|
|
|
IF io_worksheet->sheet_setup->vertical_dpi IS NOT INITIAL.
|
|
lv_value = io_worksheet->sheet_setup->vertical_dpi.
|
|
CONDENSE lv_value NO-GAPS.
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_verticaldpi
|
|
value = lv_value ).
|
|
ENDIF.
|
|
|
|
lo_element_root->append_child( new_child = lo_element ). " pageSetup node
|
|
|
|
* drawing
|
|
DATA: lo_drawings TYPE REF TO zcl_excel_drawings.
|
|
|
|
lo_drawings = io_worksheet->get_drawings( ).
|
|
IF lo_drawings->is_empty( ) = abap_false.
|
|
lo_element = lo_document->create_simple_element( name = lc_xml_node_drawing
|
|
parent = lo_document ).
|
|
ADD 1 TO lv_relation_id.
|
|
|
|
lv_value = lv_relation_id.
|
|
CONDENSE lv_value.
|
|
CONCATENATE 'rId' lv_value INTO lv_value.
|
|
lo_element->set_attribute( name = 'r:id'
|
|
value = lv_value ).
|
|
lo_element_root->append_child( new_child = lo_element ).
|
|
ENDIF.
|
|
|
|
* tables
|
|
DATA lv_table_count TYPE i.
|
|
|
|
lv_table_count = io_worksheet->get_tables_size( ).
|
|
IF lv_table_count > 0.
|
|
lo_element = lo_document->create_simple_element( name = 'tableParts'
|
|
parent = lo_document ).
|
|
lv_value = lv_table_count.
|
|
CONDENSE lv_value.
|
|
lo_element->set_attribute_ns( name = 'count'
|
|
value = lv_value ).
|
|
|
|
lo_iterator = io_worksheet->get_tables_iterator( ).
|
|
WHILE lo_iterator->if_object_collection_iterator~has_next( ) EQ abap_true.
|
|
lo_table ?= lo_iterator->if_object_collection_iterator~get_next( ).
|
|
ADD 1 TO lv_relation_id.
|
|
|
|
lv_value = lv_relation_id.
|
|
CONDENSE lv_value.
|
|
CONCATENATE 'rId' lv_value INTO lv_value.
|
|
lo_element_2 = lo_document->create_simple_element( name = 'tablePart'
|
|
parent = lo_element ).
|
|
lo_element_2->set_attribute_ns( name = 'r:id'
|
|
value = lv_value ).
|
|
lo_element->append_child( new_child = lo_element_2 ).
|
|
|
|
ENDWHILE.
|
|
|
|
lo_element_root->append_child( new_child = lo_element ).
|
|
|
|
ENDIF.
|
|
|
|
|
|
|
|
**********************************************************************
|
|
* STEP 5: Create xstring stream
|
|
lo_streamfactory = lo_ixml->create_stream_factory( ).
|
|
lo_ostream = lo_streamfactory->create_ostream_xstring( string = ep_content ).
|
|
lo_renderer = lo_ixml->create_renderer( ostream = lo_ostream document = lo_document ).
|
|
lo_renderer->render( ).
|
|
|
|
endmethod.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_WRITER_2007" CMPNAME="CREATE_XL_SHEET_RELS" VERSION="1" LANGU="E" DESCRIPT="Create 'xl/workbook/_rels/sheet.xml.rels'" EXPOSURE="1" STATE="1" EDITORDER="11 " DISPID="0 " AUTHOR="FEMIA" CREATEDON="20110528" CHANGEDBY="FEMIA" CHANGEDON="20110601" MTDTYPE="0" MTDDECLTYP="0" R3RELEASE="702" BCMTDCAT="00" BCMTDSYN="0">
|
|
<parameter CLSNAME="ZCL_EXCEL_WRITER_2007" CMPNAME="CREATE_XL_SHEET_RELS" SCONAME="IO_WORKSHEET" VERSION="1" LANGU="E" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " AUTHOR="FEMIA" CREATEDON="20110528" CHANGEDBY="FEMIA" CHANGEDON="20110528" PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="3" TYPE="ZCL_EXCEL_WORKSHEET"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WRITER_2007" CMPNAME="CREATE_XL_SHEET_RELS" SCONAME="IV_DRAWING_INDEX" VERSION="1" LANGU="E" CMPTYPE="1" MTDTYPE="0" EDITORDER="2 " DISPID="0 " AUTHOR="FEMIA" CREATEDON="20110528" CHANGEDBY="FEMIA" CHANGEDON="20110528" PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="I"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WRITER_2007" CMPNAME="CREATE_XL_SHEET_RELS" SCONAME="EP_CONTENT" VERSION="1" LANGU="E" CMPTYPE="1" MTDTYPE="0" EDITORDER="3 " DISPID="0 " AUTHOR="FEMIA" CREATEDON="20110528" CHANGEDBY="FEMIA" CHANGEDON="20110528" PARDECLTYP="3" PARPASSTYP="0" TYPTYPE="1" TYPE="XSTRING"/>
|
|
<source>method CREATE_XL_SHEET_RELS.
|
|
|
|
|
|
** Constant node name
|
|
DATA: lc_xml_node_relationships TYPE string VALUE 'Relationships',
|
|
lc_xml_node_relationship TYPE string VALUE 'Relationship',
|
|
" Node attributes
|
|
lc_xml_attr_id TYPE string VALUE 'Id',
|
|
lc_xml_attr_type TYPE string VALUE 'Type',
|
|
lc_xml_attr_target TYPE string VALUE 'Target',
|
|
lc_xml_attr_target_mode TYPE string VALUE 'TargetMode',
|
|
lc_xml_val_external TYPE string VALUE 'External',
|
|
" Node namespace
|
|
lc_xml_node_rels_ns TYPE string VALUE 'http://schemas.openxmlformats.org/package/2006/relationships',
|
|
lc_xml_node_rid_table_tp TYPE string VALUE 'http://schemas.openxmlformats.org/officeDocument/2006/relationships/table',
|
|
lc_xml_node_rid_drawing_tp TYPE string VALUE 'http://schemas.openxmlformats.org/officeDocument/2006/relationships/drawing',
|
|
lc_xml_node_rid_link_tp TYPE string VALUE 'http://schemas.openxmlformats.org/officeDocument/2006/relationships/hyperlink'.
|
|
|
|
DATA: lo_ixml TYPE REF TO if_ixml,
|
|
lo_document TYPE REF TO if_ixml_document,
|
|
lo_element_root TYPE REF TO if_ixml_element,
|
|
lo_element TYPE REF TO if_ixml_element,
|
|
lo_encoding TYPE REF TO if_ixml_encoding,
|
|
lo_streamfactory TYPE REF TO if_ixml_stream_factory,
|
|
lo_ostream TYPE REF TO if_ixml_ostream,
|
|
lo_renderer TYPE REF TO if_ixml_renderer,
|
|
lo_iterator TYPE REF TO cl_object_collection_iterator,
|
|
lo_table TYPE REF TO zcl_excel_table,
|
|
lo_link TYPE REF TO zcl_excel_hyperlink.
|
|
|
|
DATA: lv_value TYPE string,
|
|
lv_relation_id TYPE i,
|
|
lv_index_str TYPE string.
|
|
|
|
**********************************************************************
|
|
* STEP 1: Create [Content_Types].xml into the root of the ZIP
|
|
lo_ixml = cl_ixml=>create( ).
|
|
|
|
**********************************************************************
|
|
* STEP 2: Set document attributes
|
|
lo_encoding = lo_ixml->create_encoding( byte_order = if_ixml_encoding=>co_platform_endian
|
|
character_set = 'utf-8' ).
|
|
lo_document = lo_ixml->create_document( ).
|
|
lo_document->set_encoding( lo_encoding ).
|
|
lo_document->set_standalone( abap_true ).
|
|
|
|
**********************************************************************
|
|
* STEP 3: Create main node relationships
|
|
lo_element_root = lo_document->create_simple_element( name = lc_xml_node_relationships
|
|
parent = lo_document ).
|
|
lo_element_root->set_attribute_ns( name = 'xmlns'
|
|
value = lc_xml_node_rels_ns ).
|
|
|
|
**********************************************************************
|
|
* STEP 4: Create subnodes
|
|
|
|
" Add sheet Relationship nodes here
|
|
lv_relation_id = 0.
|
|
lo_iterator = io_worksheet->get_hyperlinks_iterator( ).
|
|
WHILE lo_iterator->if_object_collection_iterator~has_next( ) EQ abap_true.
|
|
lo_link ?= lo_iterator->if_object_collection_iterator~get_next( ).
|
|
ADD 1 TO lv_relation_id.
|
|
|
|
lv_value = lv_relation_id.
|
|
CONDENSE lv_value.
|
|
CONCATENATE 'rId' lv_value INTO lv_value.
|
|
|
|
lo_element = lo_document->create_simple_element( name = lc_xml_node_relationship
|
|
parent = lo_document ).
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_id
|
|
value = lv_value ).
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_type
|
|
value = lc_xml_node_rid_link_tp ).
|
|
|
|
lv_value = lo_link->get_url( ).
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_target
|
|
value = lv_value ).
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_target_mode
|
|
value = lc_xml_val_external ).
|
|
lo_element_root->append_child( new_child = lo_element ).
|
|
ENDWHILE.
|
|
|
|
* drawing
|
|
DATA: lo_drawings TYPE REF TO zcl_excel_drawings.
|
|
|
|
lo_drawings = io_worksheet->get_drawings( ).
|
|
IF lo_drawings->is_empty( ) = abap_false.
|
|
lo_element = lo_document->create_simple_element( name = lc_xml_node_relationship
|
|
parent = lo_document ).
|
|
ADD 1 TO lv_relation_id.
|
|
|
|
lv_value = lv_relation_id.
|
|
CONDENSE lv_value.
|
|
CONCATENATE 'rId' lv_value INTO lv_value.
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_id
|
|
value = lv_value ).
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_type
|
|
value = lc_xml_node_rid_drawing_tp ).
|
|
|
|
lv_index_str = iv_drawing_index.
|
|
CONDENSE lv_index_str NO-GAPS.
|
|
MOVE me->c_xl_drawings TO lv_value.
|
|
REPLACE 'xl' WITH '..' INTO lv_value.
|
|
REPLACE '#' WITH lv_index_str INTO lv_value.
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_target
|
|
value = lv_value ).
|
|
lo_element_root->append_child( new_child = lo_element ).
|
|
ENDIF.
|
|
|
|
lo_iterator = io_worksheet->get_tables_iterator( ).
|
|
WHILE lo_iterator->if_object_collection_iterator~has_next( ) EQ abap_true.
|
|
lo_table ?= lo_iterator->if_object_collection_iterator~get_next( ).
|
|
ADD 1 TO lv_relation_id.
|
|
|
|
lv_value = lv_relation_id.
|
|
CONDENSE lv_value.
|
|
CONCATENATE 'rId' lv_value INTO lv_value.
|
|
|
|
lo_element = lo_document->create_simple_element( name = lc_xml_node_relationship
|
|
parent = lo_document ).
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_id
|
|
value = lv_value ).
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_type
|
|
value = lc_xml_node_rid_table_tp ).
|
|
|
|
lv_value = lo_table->get_name( ).
|
|
CONCATENATE '../tables/' lv_value '.xml' INTO lv_value.
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_target
|
|
value = lv_value ).
|
|
lo_element_root->append_child( new_child = lo_element ).
|
|
ENDWHILE.
|
|
|
|
**********************************************************************
|
|
* STEP 5: Create xstring stream
|
|
lo_streamfactory = lo_ixml->create_stream_factory( ).
|
|
lo_ostream = lo_streamfactory->create_ostream_xstring( string = ep_content ).
|
|
lo_renderer = lo_ixml->create_renderer( ostream = lo_ostream document = lo_document ).
|
|
lo_renderer->render( ).
|
|
|
|
endmethod.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_WRITER_2007" CMPNAME="CREATE_XL_STYLES" VERSION="1" LANGU="E" DESCRIPT="Create 'xl/styles.xml'" EXPOSURE="1" STATE="1" EDITORDER="13 " DISPID="0 " AUTHOR="FEMIA" CREATEDON="20110528" CHANGEDBY="FEMIA" CHANGEDON="20110601" MTDTYPE="0" MTDDECLTYP="0" R3RELEASE="702" BCMTDCAT="00" BCMTDSYN="0">
|
|
<parameter CLSNAME="ZCL_EXCEL_WRITER_2007" CMPNAME="CREATE_XL_STYLES" SCONAME="EP_CONTENT" VERSION="1" LANGU="E" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " AUTHOR="FEMIA" CREATEDON="20110528" CHANGEDBY="FEMIA" CHANGEDON="20110528" PARDECLTYP="3" PARPASSTYP="0" TYPTYPE="1" TYPE="XSTRING"/>
|
|
<source>METHOD create_xl_styles.
|
|
|
|
|
|
** Constant node name
|
|
CONSTANTS: lc_xml_node_stylesheet TYPE string VALUE 'styleSheet',
|
|
" font
|
|
lc_xml_node_fonts TYPE string VALUE 'fonts',
|
|
lc_xml_node_font TYPE string VALUE 'font',
|
|
lc_xml_node_b TYPE string VALUE 'b', "bold
|
|
lc_xml_node_i TYPE string VALUE 'i', "italic
|
|
lc_xml_node_u TYPE string VALUE 'u', "underline
|
|
lc_xml_node_strike TYPE string VALUE 'strike', "strikethrough
|
|
lc_xml_node_sz TYPE string VALUE 'sz',
|
|
lc_xml_node_color TYPE string VALUE 'color',
|
|
lc_xml_node_name TYPE string VALUE 'name',
|
|
lc_xml_node_family TYPE string VALUE 'family',
|
|
lc_xml_node_scheme TYPE string VALUE 'scheme',
|
|
" fill
|
|
lc_xml_node_fills TYPE string VALUE 'fills',
|
|
lc_xml_node_fill TYPE string VALUE 'fill',
|
|
lc_xml_node_patternfill TYPE string VALUE 'patternFill',
|
|
lc_xml_node_fgcolor TYPE string VALUE 'fgColor',
|
|
lc_xml_node_bgcolor TYPE string VALUE 'bgColor',
|
|
lc_xml_node_gradientfill TYPE string VALUE 'gradientFill',
|
|
lc_xml_node_stop TYPE string VALUE 'stop',
|
|
" borders
|
|
lc_xml_node_borders TYPE string VALUE 'borders',
|
|
lc_xml_node_border TYPE string VALUE 'border',
|
|
lc_xml_node_left TYPE string VALUE 'left',
|
|
lc_xml_node_right TYPE string VALUE 'right',
|
|
lc_xml_node_top TYPE string VALUE 'top',
|
|
lc_xml_node_bottom TYPE string VALUE 'bottom',
|
|
lc_xml_node_diagonal TYPE string VALUE 'diagonal',
|
|
" numfmt
|
|
lc_xml_node_numfmts TYPE string VALUE 'numFmts',
|
|
lc_xml_node_numfmt TYPE string VALUE 'numFmt',
|
|
" Styles
|
|
lc_xml_node_cellstylexfs TYPE string VALUE 'cellStyleXfs',
|
|
lc_xml_node_xf TYPE string VALUE 'xf',
|
|
lc_xml_node_cellxfs TYPE string VALUE 'cellXfs',
|
|
lc_xml_node_cellstyles TYPE string VALUE 'cellStyles',
|
|
lc_xml_node_cellstyle TYPE string VALUE 'cellStyle',
|
|
lc_xml_node_dxfs TYPE string VALUE 'dxfs',
|
|
lc_xml_node_dxf TYPE string VALUE 'dxf',
|
|
lc_xml_node_tablestyles TYPE string VALUE 'tableStyles',
|
|
" Colors
|
|
lc_xml_node_colors TYPE string VALUE 'colors',
|
|
lc_xml_node_mrucolors TYPE string VALUE 'mruColors',
|
|
" Alignment
|
|
lc_xml_node_alignment TYPE string VALUE 'alignment',
|
|
" Protection
|
|
lc_xml_node_protection TYPE string VALUE 'protection',
|
|
" Node attributes
|
|
lc_xml_attr_count TYPE string VALUE 'count',
|
|
lc_xml_attr_val TYPE string VALUE 'val',
|
|
lc_xml_attr_theme TYPE string VALUE 'theme',
|
|
lc_xml_attr_rgb TYPE string VALUE 'rgb',
|
|
lc_xml_attr_indexed TYPE string VALUE 'indexed',
|
|
lc_xml_attr_tint TYPE string VALUE 'tint',
|
|
lc_xml_attr_style TYPE string VALUE 'style',
|
|
lc_xml_attr_position TYPE string VALUE 'position',
|
|
lc_xml_attr_degree TYPE string VALUE 'degree',
|
|
lc_xml_attr_patterntype TYPE string VALUE 'patternType',
|
|
lc_xml_attr_numfmtid TYPE string VALUE 'numFmtId',
|
|
lc_xml_attr_fontid TYPE string VALUE 'fontId',
|
|
lc_xml_attr_fillid TYPE string VALUE 'fillId',
|
|
lc_xml_attr_borderid TYPE string VALUE 'borderId',
|
|
lc_xml_attr_xfid TYPE string VALUE 'xfId',
|
|
lc_xml_attr_applynumberformat TYPE string VALUE 'applyNumberFormat',
|
|
lc_xml_attr_applyprotection TYPE string VALUE 'applyProtection',
|
|
lc_xml_attr_applyfont TYPE string VALUE 'applyFont',
|
|
lc_xml_attr_applyfill TYPE string VALUE 'applyFill',
|
|
lc_xml_attr_applyborder TYPE string VALUE 'applyBorder',
|
|
lc_xml_attr_name TYPE string VALUE 'name',
|
|
lc_xml_attr_builtinid TYPE string VALUE 'builtinId',
|
|
lc_xml_attr_defaulttablestyle TYPE string VALUE 'defaultTableStyle',
|
|
lc_xml_attr_defaultpivotstyle TYPE string VALUE 'defaultPivotStyle',
|
|
lc_xml_attr_applyalignment TYPE string VALUE 'applyAlignment',
|
|
lc_xml_attr_horizontal TYPE string VALUE 'horizontal',
|
|
lc_xml_attr_formatcode TYPE string VALUE 'formatCode',
|
|
lc_xml_attr_vertical TYPE string VALUE 'vertical',
|
|
lc_xml_attr_wraptext TYPE string VALUE 'wrapText',
|
|
lc_xml_attr_textrotation TYPE string VALUE 'textRotation',
|
|
lc_xml_attr_shrinktofit TYPE string VALUE 'shrinkToFit',
|
|
lc_xml_attr_indent TYPE string VALUE 'indent',
|
|
lc_xml_attr_locked TYPE string VALUE 'locked',
|
|
lc_xml_attr_hidden TYPE string VALUE 'hidden',
|
|
lc_xml_attr_diagonalup TYPE string VALUE 'diagonalUp',
|
|
lc_xml_attr_diagonaldown TYPE string VALUE 'diagonalDown',
|
|
" Node namespace
|
|
lc_xml_node_ns TYPE string VALUE 'http://schemas.openxmlformats.org/spreadsheetml/2006/main'.
|
|
|
|
DATA: lo_ixml TYPE REF TO if_ixml,
|
|
lo_document TYPE REF TO if_ixml_document,
|
|
lo_element_root TYPE REF TO if_ixml_element,
|
|
lo_element_fonts TYPE REF TO if_ixml_element,
|
|
lo_element_font TYPE REF TO if_ixml_element,
|
|
lo_element_fills TYPE REF TO if_ixml_element,
|
|
lo_element_fill TYPE REF TO if_ixml_element,
|
|
lo_element_borders TYPE REF TO if_ixml_element,
|
|
lo_element_border TYPE REF TO if_ixml_element,
|
|
lo_element_numfmts TYPE REF TO if_ixml_element,
|
|
lo_element_numfmt TYPE REF TO if_ixml_element,
|
|
lo_element_cellxfs TYPE REF TO if_ixml_element,
|
|
lo_element TYPE REF TO if_ixml_element,
|
|
lo_sub_element TYPE REF TO if_ixml_element,
|
|
lo_sub_element_2 TYPE REF TO if_ixml_element,
|
|
lo_encoding TYPE REF TO if_ixml_encoding,
|
|
lo_streamfactory TYPE REF TO if_ixml_stream_factory,
|
|
lo_ostream TYPE REF TO if_ixml_ostream,
|
|
lo_renderer TYPE REF TO if_ixml_renderer,
|
|
lo_iterator TYPE REF TO cl_object_collection_iterator,
|
|
lo_iterator2 TYPE REF TO cl_object_collection_iterator,
|
|
lo_worksheet TYPE REF TO zcl_excel_worksheet,
|
|
lo_style_conditional TYPE REF TO zcl_excel_style_conditional,
|
|
lo_style TYPE REF TO zcl_excel_style.
|
|
|
|
|
|
DATA: lt_fonts TYPE zexcel_t_style_font,
|
|
ls_font TYPE zexcel_s_style_font,
|
|
lt_fills TYPE zexcel_t_style_fill,
|
|
ls_fill TYPE zexcel_s_style_fill,
|
|
lt_borders TYPE zexcel_t_style_border,
|
|
ls_border TYPE zexcel_s_style_border,
|
|
lt_numfmts TYPE zexcel_t_style_numfmt,
|
|
ls_numfmt TYPE zexcel_s_style_numfmt,
|
|
lt_protections TYPE zexcel_t_style_protection,
|
|
ls_protection TYPE zexcel_s_style_protection,
|
|
lt_alignments TYPE zexcel_t_style_alignment,
|
|
ls_alignment TYPE zexcel_s_style_alignment,
|
|
lt_cellxfs TYPE zexcel_t_cellxfs,
|
|
ls_cellxfs TYPE zexcel_s_cellxfs,
|
|
ls_styles_mapping TYPE zexcel_s_styles_mapping,
|
|
ls_style_cond_mapping TYPE zexcel_s_styles_cond_mapping,
|
|
ls_cellis TYPE zexcel_conditional_cellis,
|
|
ls_expression TYPE zexcel_conditional_expression.
|
|
|
|
DATA: lv_value TYPE string,
|
|
lv_dfx_count TYPE i,
|
|
lv_fonts_count TYPE i,
|
|
lv_fills_count TYPE i,
|
|
lv_borders_count TYPE i,
|
|
lv_cellxfs_count TYPE i,
|
|
lv_align_flag TYPE c.
|
|
|
|
**********************************************************************
|
|
* STEP 1: Create [Content_Types].xml into the root of the ZIP
|
|
lo_ixml = cl_ixml=>create( ).
|
|
|
|
**********************************************************************
|
|
* STEP 2: Set document attributes
|
|
lo_encoding = lo_ixml->create_encoding( byte_order = if_ixml_encoding=>co_platform_endian
|
|
character_set = 'utf-8' ).
|
|
lo_document = lo_ixml->create_document( ).
|
|
lo_document->set_encoding( lo_encoding ).
|
|
lo_document->set_standalone( abap_true ).
|
|
|
|
***********************************************************************
|
|
* STEP 3: Create main node relationships
|
|
lo_element_root = lo_document->create_simple_element( name = lc_xml_node_stylesheet
|
|
parent = lo_document ).
|
|
lo_element_root->set_attribute_ns( name = 'xmlns'
|
|
value = lc_xml_node_ns ).
|
|
|
|
**********************************************************************
|
|
* STEP 4: Create subnodes
|
|
|
|
lo_element_fonts = lo_document->create_simple_element( name = lc_xml_node_fonts
|
|
parent = lo_document ).
|
|
|
|
lo_element_fills = lo_document->create_simple_element( name = lc_xml_node_fills
|
|
parent = lo_document ).
|
|
|
|
lo_element_borders = lo_document->create_simple_element( name = lc_xml_node_borders
|
|
parent = lo_document ).
|
|
|
|
lo_element_cellxfs = lo_document->create_simple_element( name = lc_xml_node_cellxfs
|
|
parent = lo_document ).
|
|
|
|
lo_element_numfmts = lo_document->create_simple_element( name = lc_xml_node_numfmts
|
|
parent = lo_document ).
|
|
|
|
|
|
* Compress styles
|
|
lo_iterator = excel->get_styles_iterator( ).
|
|
WHILE lo_iterator->if_object_collection_iterator~has_next( ) EQ abap_true.
|
|
lo_style ?= lo_iterator->if_object_collection_iterator~get_next( ).
|
|
ls_font = lo_style->font->get_structure( ).
|
|
ls_fill = lo_style->fill->get_structure( ).
|
|
ls_border = lo_style->borders->get_structure( ).
|
|
ls_alignment = lo_style->alignment->get_structure( ).
|
|
ls_protection = lo_style->protection->get_structure( ).
|
|
ls_numfmt = lo_style->number_format->get_structure( ).
|
|
|
|
CLEAR ls_cellxfs.
|
|
|
|
|
|
* Compress fonts
|
|
READ TABLE lt_fonts FROM ls_font TRANSPORTING NO FIELDS.
|
|
IF sy-subrc EQ 0.
|
|
ls_cellxfs-fontid = sy-tabix.
|
|
ELSE.
|
|
APPEND ls_font TO lt_fonts.
|
|
DESCRIBE TABLE lt_fonts LINES ls_cellxfs-fontid.
|
|
ENDIF.
|
|
SUBTRACT 1 FROM ls_cellxfs-fontid.
|
|
|
|
* Compress alignment
|
|
READ TABLE lt_alignments FROM ls_alignment TRANSPORTING NO FIELDS.
|
|
IF sy-subrc EQ 0.
|
|
ls_cellxfs-alignmentid = sy-tabix.
|
|
ELSE.
|
|
APPEND ls_alignment TO lt_alignments.
|
|
DESCRIBE TABLE lt_alignments LINES ls_cellxfs-alignmentid.
|
|
ENDIF.
|
|
SUBTRACT 1 FROM ls_cellxfs-alignmentid.
|
|
|
|
* Compress fills
|
|
READ TABLE lt_fills FROM ls_fill TRANSPORTING NO FIELDS.
|
|
IF sy-subrc EQ 0.
|
|
ls_cellxfs-fillid = sy-tabix.
|
|
ELSE.
|
|
APPEND ls_fill TO lt_fills.
|
|
DESCRIBE TABLE lt_fills LINES ls_cellxfs-fillid.
|
|
ENDIF.
|
|
SUBTRACT 1 FROM ls_cellxfs-fillid.
|
|
|
|
* Compress borders
|
|
READ TABLE lt_borders FROM ls_border TRANSPORTING NO FIELDS.
|
|
IF sy-subrc EQ 0.
|
|
ls_cellxfs-borderid = sy-tabix.
|
|
ELSE.
|
|
APPEND ls_border TO lt_borders.
|
|
DESCRIBE TABLE lt_borders LINES ls_cellxfs-borderid.
|
|
ENDIF.
|
|
SUBTRACT 1 FROM ls_cellxfs-borderid.
|
|
|
|
* Compress protection
|
|
IF ls_protection-locked EQ c_on AND ls_protection-hidden EQ c_off.
|
|
ls_cellxfs-applyprotection = 0.
|
|
ELSE.
|
|
READ TABLE lt_protections FROM ls_protection TRANSPORTING NO FIELDS.
|
|
IF sy-subrc EQ 0.
|
|
ls_cellxfs-protectionid = sy-tabix.
|
|
ELSE.
|
|
APPEND ls_protection TO lt_protections.
|
|
DESCRIBE TABLE lt_protections LINES ls_cellxfs-protectionid.
|
|
ENDIF.
|
|
ls_cellxfs-applyprotection = 1.
|
|
ENDIF.
|
|
SUBTRACT 1 FROM ls_cellxfs-protectionid.
|
|
|
|
* Compress number formats
|
|
IF ls_numfmt IS NOT INITIAL.
|
|
READ TABLE lt_numfmts FROM ls_numfmt TRANSPORTING NO FIELDS.
|
|
IF sy-subrc EQ 0.
|
|
ls_cellxfs-numfmtid = sy-tabix.
|
|
ELSE.
|
|
APPEND ls_numfmt TO lt_numfmts.
|
|
DESCRIBE TABLE lt_numfmts LINES ls_cellxfs-numfmtid.
|
|
ENDIF.
|
|
ADD zcl_excel_common=>c_excel_numfmt_offset TO ls_cellxfs-numfmtid. " Add OXML offset for custom styles
|
|
ls_cellxfs-applynumberformat = 1.
|
|
ELSE.
|
|
ls_cellxfs-applynumberformat = 0.
|
|
ENDIF.
|
|
|
|
IF ls_cellxfs-fontid NE 0.
|
|
ls_cellxfs-applyfont = 1.
|
|
ELSE.
|
|
ls_cellxfs-applyfont = 0.
|
|
ENDIF.
|
|
IF ls_cellxfs-alignmentid NE 0.
|
|
ls_cellxfs-applyalignment = 1.
|
|
ELSE.
|
|
ls_cellxfs-applyalignment = 0.
|
|
ENDIF.
|
|
IF ls_cellxfs-fillid NE 0.
|
|
ls_cellxfs-applyfill = 1.
|
|
ELSE.
|
|
ls_cellxfs-applyfill = 0.
|
|
ENDIF.
|
|
IF ls_cellxfs-borderid NE 0.
|
|
ls_cellxfs-applyborder = 1.
|
|
ELSE.
|
|
ls_cellxfs-applyborder = 0.
|
|
ENDIF.
|
|
|
|
* Remap styles
|
|
READ TABLE lt_cellxfs FROM ls_cellxfs TRANSPORTING NO FIELDS.
|
|
IF sy-subrc EQ 0.
|
|
ls_styles_mapping-style = sy-tabix.
|
|
ELSE.
|
|
APPEND ls_cellxfs TO lt_cellxfs.
|
|
DESCRIBE TABLE lt_cellxfs LINES ls_styles_mapping-style.
|
|
ENDIF.
|
|
SUBTRACT 1 FROM ls_styles_mapping-style.
|
|
ls_styles_mapping-guid = lo_style->get_guid( ).
|
|
APPEND ls_styles_mapping TO me->styles_mapping.
|
|
ENDWHILE.
|
|
|
|
" create numfmt elements
|
|
LOOP AT lt_numfmts INTO ls_numfmt.
|
|
lo_element_numfmt = lo_document->create_simple_element( name = lc_xml_node_numfmt
|
|
parent = lo_document ).
|
|
lv_value = sy-tabix + zcl_excel_common=>c_excel_numfmt_offset.
|
|
SHIFT lv_value RIGHT DELETING TRAILING space.
|
|
SHIFT lv_value LEFT DELETING LEADING space.
|
|
lo_element_numfmt->set_attribute_ns( name = lc_xml_attr_numfmtid
|
|
value = lv_value ).
|
|
lv_value = ls_numfmt-numfmt.
|
|
lo_element_numfmt->set_attribute_ns( name = lc_xml_attr_formatcode
|
|
value = lv_value ).
|
|
lo_element_numfmts->append_child( new_child = lo_element_numfmt ).
|
|
ENDLOOP.
|
|
|
|
" create font elements
|
|
LOOP AT lt_fonts INTO ls_font.
|
|
lo_element_font = lo_document->create_simple_element( name = lc_xml_node_font
|
|
parent = lo_document ).
|
|
IF ls_font-bold EQ abap_true.
|
|
lo_sub_element = lo_document->create_simple_element( name = lc_xml_node_b
|
|
parent = lo_document ).
|
|
lo_element_font->append_child( new_child = lo_sub_element ).
|
|
ENDIF.
|
|
IF ls_font-italic EQ abap_true.
|
|
lo_sub_element = lo_document->create_simple_element( name = lc_xml_node_i
|
|
parent = lo_document ).
|
|
lo_element_font->append_child( new_child = lo_sub_element ).
|
|
ENDIF.
|
|
IF ls_font-underline EQ abap_true.
|
|
lo_sub_element = lo_document->create_simple_element( name = lc_xml_node_u
|
|
parent = lo_document ).
|
|
lv_value = ls_font-underline_mode.
|
|
lo_sub_element->set_attribute_ns( name = lc_xml_attr_val
|
|
value = lv_value ).
|
|
lo_element_font->append_child( new_child = lo_sub_element ).
|
|
ENDIF.
|
|
IF ls_font-strikethrough EQ abap_true.
|
|
lo_sub_element = lo_document->create_simple_element( name = lc_xml_node_strike
|
|
parent = lo_document ).
|
|
lo_element_font->append_child( new_child = lo_sub_element ).
|
|
ENDIF.
|
|
"size
|
|
lo_sub_element = lo_document->create_simple_element( name = lc_xml_node_sz
|
|
parent = lo_document ).
|
|
lv_value = ls_font-size.
|
|
SHIFT lv_value RIGHT DELETING TRAILING space.
|
|
SHIFT lv_value LEFT DELETING LEADING space.
|
|
lo_sub_element->set_attribute_ns( name = lc_xml_attr_val
|
|
value = lv_value ).
|
|
lo_element_font->append_child( new_child = lo_sub_element ).
|
|
"color
|
|
create_xl_styles_color_node(
|
|
io_document = lo_document
|
|
io_parent = lo_element_font
|
|
is_color = ls_font-color ).
|
|
|
|
"name
|
|
lo_sub_element = lo_document->create_simple_element( name = lc_xml_node_name
|
|
parent = lo_document ).
|
|
lv_value = ls_font-name.
|
|
lo_sub_element->set_attribute_ns( name = lc_xml_attr_val
|
|
value = lv_value ).
|
|
lo_element_font->append_child( new_child = lo_sub_element ).
|
|
"family
|
|
lo_sub_element = lo_document->create_simple_element( name = lc_xml_node_family
|
|
parent = lo_document ).
|
|
lv_value = ls_font-family.
|
|
SHIFT lv_value RIGHT DELETING TRAILING space.
|
|
SHIFT lv_value LEFT DELETING LEADING space.
|
|
lo_sub_element->set_attribute_ns( name = lc_xml_attr_val
|
|
value = lv_value ).
|
|
lo_element_font->append_child( new_child = lo_sub_element ).
|
|
"scheme
|
|
lo_sub_element = lo_document->create_simple_element( name = lc_xml_node_scheme
|
|
parent = lo_document ).
|
|
lv_value = ls_font-scheme.
|
|
lo_sub_element->set_attribute_ns( name = lc_xml_attr_val
|
|
value = lv_value ).
|
|
lo_element_font->append_child( new_child = lo_sub_element ).
|
|
lo_element_fonts->append_child( new_child = lo_element_font ).
|
|
ENDLOOP.
|
|
|
|
" create fill elements
|
|
LOOP AT lt_fills INTO ls_fill.
|
|
lo_element_fill = lo_document->create_simple_element( name = lc_xml_node_fill
|
|
parent = lo_document ).
|
|
"pattern
|
|
lo_sub_element = lo_document->create_simple_element( name = lc_xml_node_patternfill
|
|
parent = lo_document ).
|
|
lv_value = ls_fill-filltype.
|
|
lo_sub_element->set_attribute_ns( name = lc_xml_attr_patterntype
|
|
value = lv_value ).
|
|
" fgcolor
|
|
create_xl_styles_color_node(
|
|
io_document = lo_document
|
|
io_parent = lo_sub_element
|
|
is_color = ls_fill-fgcolor
|
|
iv_color_elem_name = lc_xml_node_fgcolor ).
|
|
|
|
" bgcolor
|
|
create_xl_styles_color_node(
|
|
io_document = lo_document
|
|
io_parent = lo_sub_element
|
|
is_color = ls_fill-bgcolor
|
|
iv_color_elem_name = lc_xml_node_bgcolor ).
|
|
|
|
lo_element_fill->append_child( new_child = lo_sub_element )."pattern
|
|
lo_element_fills->append_child( new_child = lo_element_fill ).
|
|
ENDLOOP.
|
|
|
|
" create border elements
|
|
LOOP AT lt_borders INTO ls_border.
|
|
lo_element_border = lo_document->create_simple_element( name = lc_xml_node_border
|
|
parent = lo_document ).
|
|
|
|
IF ls_border-diagonalup IS NOT INITIAL.
|
|
lv_value = ls_border-diagonalup.
|
|
CONDENSE lv_value.
|
|
lo_element_border->set_attribute_ns( name = lc_xml_attr_diagonalup
|
|
value = lv_value ).
|
|
ENDIF.
|
|
|
|
IF ls_border-diagonaldown IS NOT INITIAL.
|
|
lv_value = ls_border-diagonaldown.
|
|
CONDENSE lv_value.
|
|
lo_element_border->set_attribute_ns( name = lc_xml_attr_diagonaldown
|
|
value = lv_value ).
|
|
ENDIF.
|
|
|
|
"left
|
|
lo_sub_element = lo_document->create_simple_element( name = lc_xml_node_left
|
|
parent = lo_document ).
|
|
IF ls_border-left_style IS NOT INITIAL.
|
|
lv_value = ls_border-left_style.
|
|
lo_sub_element->set_attribute_ns( name = lc_xml_attr_style
|
|
value = lv_value ).
|
|
ENDIF.
|
|
|
|
create_xl_styles_color_node(
|
|
io_document = lo_document
|
|
io_parent = lo_sub_element
|
|
is_color = ls_border-left_color ).
|
|
|
|
lo_element_border->append_child( new_child = lo_sub_element ).
|
|
|
|
"right
|
|
lo_sub_element = lo_document->create_simple_element( name = lc_xml_node_right
|
|
parent = lo_document ).
|
|
IF ls_border-right_style IS NOT INITIAL.
|
|
lv_value = ls_border-right_style.
|
|
lo_sub_element->set_attribute_ns( name = lc_xml_attr_style
|
|
value = lv_value ).
|
|
ENDIF.
|
|
|
|
create_xl_styles_color_node(
|
|
io_document = lo_document
|
|
io_parent = lo_sub_element
|
|
is_color = ls_border-right_color ).
|
|
|
|
lo_element_border->append_child( new_child = lo_sub_element ).
|
|
|
|
"top
|
|
lo_sub_element = lo_document->create_simple_element( name = lc_xml_node_top
|
|
parent = lo_document ).
|
|
IF ls_border-top_style IS NOT INITIAL.
|
|
lv_value = ls_border-top_style.
|
|
lo_sub_element->set_attribute_ns( name = lc_xml_attr_style
|
|
value = lv_value ).
|
|
ENDIF.
|
|
|
|
create_xl_styles_color_node(
|
|
io_document = lo_document
|
|
io_parent = lo_sub_element
|
|
is_color = ls_border-top_color ).
|
|
|
|
lo_element_border->append_child( new_child = lo_sub_element ).
|
|
|
|
"bottom
|
|
lo_sub_element = lo_document->create_simple_element( name = lc_xml_node_bottom
|
|
parent = lo_document ).
|
|
IF ls_border-bottom_style IS NOT INITIAL.
|
|
lv_value = ls_border-bottom_style.
|
|
lo_sub_element->set_attribute_ns( name = lc_xml_attr_style
|
|
value = lv_value ).
|
|
ENDIF.
|
|
|
|
create_xl_styles_color_node(
|
|
io_document = lo_document
|
|
io_parent = lo_sub_element
|
|
is_color = ls_border-bottom_color ).
|
|
|
|
lo_element_border->append_child( new_child = lo_sub_element ).
|
|
|
|
"diagonal
|
|
lo_sub_element = lo_document->create_simple_element( name = lc_xml_node_diagonal
|
|
parent = lo_document ).
|
|
IF ls_border-diagonal_style IS NOT INITIAL.
|
|
lv_value = ls_border-diagonal_style.
|
|
lo_sub_element->set_attribute_ns( name = lc_xml_attr_style
|
|
value = lv_value ).
|
|
ENDIF.
|
|
|
|
create_xl_styles_color_node(
|
|
io_document = lo_document
|
|
io_parent = lo_sub_element
|
|
is_color = ls_border-diagonal_color ).
|
|
|
|
lo_element_border->append_child( new_child = lo_sub_element ).
|
|
lo_element_borders->append_child( new_child = lo_element_border ).
|
|
ENDLOOP.
|
|
|
|
" update attribute "count"
|
|
DESCRIBE TABLE lt_fonts LINES lv_fonts_count.
|
|
MOVE lv_fonts_count TO lv_value.
|
|
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.
|
|
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.
|
|
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.
|
|
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
|
|
value = lv_value ).
|
|
|
|
" Append to root node
|
|
lo_element_root->append_child( new_child = lo_element_numfmts ).
|
|
lo_element_root->append_child( new_child = lo_element_fonts ).
|
|
lo_element_root->append_child( new_child = lo_element_fills ).
|
|
lo_element_root->append_child( new_child = lo_element_borders ).
|
|
|
|
" cellstylexfs node
|
|
lo_element = lo_document->create_simple_element( name = lc_xml_node_cellstylexfs
|
|
parent = lo_document ).
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_count
|
|
value = '1' ).
|
|
lo_sub_element = lo_document->create_simple_element( name = lc_xml_node_xf
|
|
parent = lo_document ).
|
|
|
|
lo_sub_element->set_attribute_ns( name = lc_xml_attr_numfmtid
|
|
value = c_off ).
|
|
lo_sub_element->set_attribute_ns( name = lc_xml_attr_fontid
|
|
value = c_off ).
|
|
lo_sub_element->set_attribute_ns( name = lc_xml_attr_fillid
|
|
value = c_off ).
|
|
lo_sub_element->set_attribute_ns( name = lc_xml_attr_borderid
|
|
value = c_off ).
|
|
|
|
lo_element->append_child( new_child = lo_sub_element ).
|
|
lo_element_root->append_child( new_child = lo_element ).
|
|
|
|
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.
|
|
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.
|
|
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.
|
|
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.
|
|
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.
|
|
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.
|
|
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.
|
|
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.
|
|
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.
|
|
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.
|
|
SHIFT lv_value RIGHT DELETING TRAILING space.
|
|
SHIFT lv_value LEFT DELETING LEADING space.
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_applyalignment
|
|
value = lv_value ).
|
|
lo_sub_element_2 = lo_document->create_simple_element( name = lc_xml_node_alignment
|
|
parent = lo_document ).
|
|
ADD 1 TO ls_cellxfs-alignmentid. "Table index starts from 1
|
|
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.
|
|
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.
|
|
lo_sub_element_2->set_attribute_ns( name = lc_xml_attr_vertical
|
|
value = lv_value ).
|
|
ENDIF.
|
|
IF ls_alignment-wraptext EQ abap_true.
|
|
lo_sub_element_2->set_attribute_ns( name = lc_xml_attr_wraptext
|
|
value = c_on ).
|
|
ENDIF.
|
|
IF ls_alignment-textrotation IS NOT INITIAL.
|
|
MOVE ls_alignment-textrotation TO lv_value.
|
|
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
|
|
value = lv_value ).
|
|
ENDIF.
|
|
IF ls_alignment-shrinktofit EQ abap_true.
|
|
lo_sub_element_2->set_attribute_ns( name = lc_xml_attr_shrinktofit
|
|
value = c_on ).
|
|
ENDIF.
|
|
IF ls_alignment-indent IS NOT INITIAL.
|
|
MOVE ls_alignment-indent TO lv_value.
|
|
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
|
|
value = lv_value ).
|
|
ENDIF.
|
|
|
|
lo_element->append_child( new_child = lo_sub_element_2 ).
|
|
ENDIF.
|
|
IF ls_cellxfs-applyprotection EQ 1.
|
|
MOVE ls_cellxfs-applyprotection TO lv_value.
|
|
CONDENSE lv_value NO-GAPS.
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_applyprotection
|
|
value = lv_value ).
|
|
lo_sub_element_2 = lo_document->create_simple_element( name = lc_xml_node_protection
|
|
parent = lo_document ).
|
|
ADD 1 TO ls_cellxfs-protectionid. "Table index starts from 1
|
|
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.
|
|
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.
|
|
CONDENSE lv_value.
|
|
lo_sub_element_2->set_attribute_ns( name = lc_xml_attr_hidden
|
|
value = lv_value ).
|
|
ENDIF.
|
|
lo_element->append_child( new_child = lo_sub_element_2 ).
|
|
ENDIF.
|
|
lo_element_cellxfs->append_child( new_child = lo_element ).
|
|
ENDLOOP.
|
|
|
|
lo_element_root->append_child( new_child = lo_element_cellxfs ).
|
|
|
|
" cellStyles node
|
|
lo_element = lo_document->create_simple_element( name = lc_xml_node_cellstyles
|
|
parent = lo_document ).
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_count
|
|
value = '1' ).
|
|
lo_sub_element = lo_document->create_simple_element( name = lc_xml_node_cellstyle
|
|
parent = lo_document ).
|
|
|
|
lo_sub_element->set_attribute_ns( name = lc_xml_attr_name
|
|
value = 'Normal' ).
|
|
lo_sub_element->set_attribute_ns( name = lc_xml_attr_xfid
|
|
value = c_off ).
|
|
lo_sub_element->set_attribute_ns( name = lc_xml_attr_builtinid
|
|
value = c_off ).
|
|
|
|
lo_element->append_child( new_child = lo_sub_element ).
|
|
lo_element_root->append_child( new_child = lo_element ).
|
|
|
|
" dxfs node
|
|
lo_element = lo_document->create_simple_element( name = lc_xml_node_dxfs
|
|
parent = lo_document ).
|
|
|
|
lo_iterator = me->excel->get_worksheets_iterator( ).
|
|
" get sheets
|
|
WHILE lo_iterator->if_object_collection_iterator~has_next( ) EQ abap_true.
|
|
lo_worksheet ?= lo_iterator->if_object_collection_iterator~get_next( ).
|
|
" Conditional formatting styles into exch sheet
|
|
lo_iterator2 = lo_worksheet->get_cond_styles_iterator( ).
|
|
WHILE lo_iterator2->if_object_collection_iterator~has_next( ) EQ abap_true.
|
|
lo_style_conditional ?= lo_iterator2->if_object_collection_iterator~get_next( ).
|
|
CASE lo_style_conditional->rule.
|
|
WHEN zcl_excel_style_conditional=>c_rule_cellis.
|
|
"if style defined
|
|
ls_cellis = lo_style_conditional->mode_cellis.
|
|
IF ls_cellis-cell_style IS INITIAL.
|
|
CONTINUE.
|
|
ENDIF.
|
|
READ TABLE me->styles_mapping INTO ls_styles_mapping WITH KEY guid = ls_cellis-cell_style.
|
|
ADD 1 TO ls_styles_mapping-style. " the numbering starts from 0
|
|
READ TABLE lt_cellxfs INTO ls_cellxfs INDEX ls_styles_mapping-style.
|
|
ADD 1 TO ls_cellxfs-fillid. " the numbering starts from 0
|
|
|
|
" Style already mapped?
|
|
READ TABLE me->styles_cond_mapping INTO ls_style_cond_mapping WITH KEY style = ls_styles_mapping-style.
|
|
IF sy-subrc EQ 0.
|
|
ls_style_cond_mapping-guid = ls_cellis-cell_style.
|
|
APPEND ls_style_cond_mapping TO me->styles_cond_mapping.
|
|
ELSE.
|
|
ls_style_cond_mapping-guid = ls_cellis-cell_style.
|
|
ls_style_cond_mapping-style = ls_styles_mapping-style.
|
|
ls_style_cond_mapping-dxf = lv_dfx_count.
|
|
APPEND ls_style_cond_mapping TO me->styles_cond_mapping.
|
|
ADD 1 TO lv_dfx_count.
|
|
|
|
" dxf node
|
|
lo_sub_element = lo_document->create_simple_element( name = lc_xml_node_dxf
|
|
parent = lo_document ).
|
|
|
|
READ TABLE lt_fills INTO ls_fill INDEX ls_cellxfs-fillid.
|
|
IF ls_fill IS NOT INITIAL.
|
|
" fill properties
|
|
lo_element_fill = lo_document->create_simple_element( name = lc_xml_node_fill
|
|
parent = lo_document ).
|
|
"pattern
|
|
lo_sub_element_2 = lo_document->create_simple_element( name = lc_xml_node_patternfill
|
|
parent = lo_document ).
|
|
lv_value = ls_fill-filltype.
|
|
lo_sub_element_2->set_attribute_ns( name = lc_xml_attr_patterntype
|
|
value = lv_value ).
|
|
" fgcolor
|
|
create_xl_styles_color_node(
|
|
io_document = lo_document
|
|
io_parent = lo_sub_element_2
|
|
is_color = ls_fill-fgcolor
|
|
iv_color_elem_name = lc_xml_node_fgcolor ).
|
|
|
|
" bgcolor
|
|
create_xl_styles_color_node(
|
|
io_document = lo_document
|
|
io_parent = lo_sub_element_2
|
|
is_color = ls_fill-bgcolor
|
|
iv_color_elem_name = lc_xml_node_bgcolor ).
|
|
|
|
lo_element_fill->append_child( new_child = lo_sub_element_2 ). "pattern
|
|
|
|
lo_sub_element->append_child( new_child = lo_element_fill ).
|
|
ENDIF.
|
|
ENDIF.
|
|
|
|
lo_element->append_child( new_child = lo_sub_element ).
|
|
WHEN zcl_excel_style_conditional=>c_rule_expression.
|
|
"if style defined
|
|
ls_expression = lo_style_conditional->mode_expression.
|
|
IF ls_expression-cell_style IS INITIAL.
|
|
CONTINUE.
|
|
ENDIF.
|
|
READ TABLE me->styles_mapping INTO ls_styles_mapping WITH KEY guid = ls_expression-cell_style.
|
|
ADD 1 TO ls_styles_mapping-style. " the numbering starts from 0
|
|
READ TABLE lt_cellxfs INTO ls_cellxfs INDEX ls_styles_mapping-style.
|
|
ADD 1 TO ls_cellxfs-fillid. " the numbering starts from 0
|
|
|
|
READ TABLE me->styles_cond_mapping INTO ls_style_cond_mapping WITH KEY style = ls_styles_mapping-style.
|
|
IF sy-subrc EQ 0.
|
|
ls_style_cond_mapping-guid = ls_expression-cell_style.
|
|
APPEND ls_style_cond_mapping TO me->styles_cond_mapping.
|
|
ELSE.
|
|
ls_style_cond_mapping-guid = ls_expression-cell_style.
|
|
ls_style_cond_mapping-style = ls_styles_mapping-style.
|
|
ls_style_cond_mapping-dxf = lv_dfx_count.
|
|
APPEND ls_style_cond_mapping TO me->styles_cond_mapping.
|
|
ADD 1 TO lv_dfx_count.
|
|
|
|
" dxf node
|
|
lo_sub_element = lo_document->create_simple_element( name = lc_xml_node_dxf
|
|
parent = lo_document ).
|
|
|
|
READ TABLE lt_fills INTO ls_fill INDEX ls_cellxfs-fillid.
|
|
IF ls_fill IS NOT INITIAL.
|
|
" fill properties
|
|
lo_element_fill = lo_document->create_simple_element( name = lc_xml_node_fill
|
|
parent = lo_document ).
|
|
"pattern
|
|
lo_sub_element_2 = lo_document->create_simple_element( name = lc_xml_node_patternfill
|
|
parent = lo_document ).
|
|
lv_value = ls_fill-filltype.
|
|
lo_sub_element_2->set_attribute_ns( name = lc_xml_attr_patterntype
|
|
value = lv_value ).
|
|
" fgcolor
|
|
create_xl_styles_color_node(
|
|
io_document = lo_document
|
|
io_parent = lo_sub_element_2
|
|
is_color = ls_fill-fgcolor
|
|
iv_color_elem_name = lc_xml_node_fgcolor ).
|
|
|
|
" bgcolor
|
|
create_xl_styles_color_node(
|
|
io_document = lo_document
|
|
io_parent = lo_sub_element_2
|
|
is_color = ls_fill-bgcolor
|
|
iv_color_elem_name = lc_xml_node_bgcolor ).
|
|
|
|
lo_element_fill->append_child( new_child = lo_sub_element_2 ). "pattern
|
|
|
|
lo_sub_element->append_child( new_child = lo_element_fill ).
|
|
ENDIF.
|
|
ENDIF.
|
|
|
|
lo_element->append_child( new_child = lo_sub_element ).
|
|
WHEN OTHERS.
|
|
CONTINUE.
|
|
ENDCASE.
|
|
ENDWHILE.
|
|
ENDWHILE.
|
|
|
|
lv_value = lv_dfx_count.
|
|
CONDENSE lv_value.
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_count
|
|
value = lv_value ).
|
|
lo_element_root->append_child( new_child = lo_element ).
|
|
|
|
" tableStyles node
|
|
lo_element = lo_document->create_simple_element( name = lc_xml_node_tablestyles
|
|
parent = lo_document ).
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_count
|
|
value = '0' ).
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_defaulttablestyle
|
|
value = zcl_excel_table=>builtinstyle_medium9 ).
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_defaultpivotstyle
|
|
value = zcl_excel_table=>builtinstyle_pivot_light16 ).
|
|
lo_element_root->append_child( new_child = lo_element ).
|
|
|
|
**********************************************************************
|
|
* STEP 5: Create xstring stream
|
|
lo_streamfactory = lo_ixml->create_stream_factory( ).
|
|
lo_ostream = lo_streamfactory->create_ostream_xstring( string = ep_content ).
|
|
lo_renderer = lo_ixml->create_renderer( ostream = lo_ostream document = lo_document ).
|
|
lo_renderer->render( ).
|
|
|
|
ENDMETHOD.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_WRITER_2007" CMPNAME="CREATE_XL_STYLES_COLOR_NODE" VERSION="1" LANGU="E" DESCRIPT="Create 'xl/styles.xml' color node" EXPOSURE="1" STATE="1" EDITORDER="12 " DISPID="0 " AUTHOR="FEMIA" CREATEDON="20110528" CHANGEDBY="FEMIA" CHANGEDON="20110601" MTDTYPE="0" MTDDECLTYP="0" R3RELEASE="702" BCMTDCAT="00" BCMTDSYN="0">
|
|
<parameter CLSNAME="ZCL_EXCEL_WRITER_2007" CMPNAME="CREATE_XL_STYLES_COLOR_NODE" SCONAME="IO_DOCUMENT" VERSION="1" LANGU="E" DESCRIPT="IF_IXML_DOCUMENT" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " AUTHOR="FEMIA" CREATEDON="20110528" CHANGEDBY="FEMIA" CHANGEDON="20110528" PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="3" TYPE="IF_IXML_DOCUMENT"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WRITER_2007" CMPNAME="CREATE_XL_STYLES_COLOR_NODE" SCONAME="IO_PARENT" VERSION="1" LANGU="E" DESCRIPT="IF_IXML_ELEMENT" CMPTYPE="1" MTDTYPE="0" EDITORDER="2 " DISPID="0 " AUTHOR="FEMIA" CREATEDON="20110528" CHANGEDBY="FEMIA" CHANGEDON="20110528" PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="3" TYPE="IF_IXML_ELEMENT"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WRITER_2007" CMPNAME="CREATE_XL_STYLES_COLOR_NODE" SCONAME="IV_COLOR_ELEM_NAME" VERSION="1" LANGU="E" CMPTYPE="1" MTDTYPE="0" EDITORDER="3 " DISPID="0 " AUTHOR="FEMIA" CREATEDON="20110528" CHANGEDBY="FEMIA" CHANGEDON="20110528" PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="STRING" PARVALUE="'color'"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WRITER_2007" CMPNAME="CREATE_XL_STYLES_COLOR_NODE" SCONAME="IS_COLOR" VERSION="1" LANGU="E" DESCRIPT="Color" CMPTYPE="1" MTDTYPE="0" EDITORDER="4 " DISPID="0 " AUTHOR="FEMIA" CREATEDON="20110528" CHANGEDBY="FEMIA" CHANGEDON="20110528" PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_S_STYLE_COLOR"/>
|
|
<source>method CREATE_XL_STYLES_COLOR_NODE.
|
|
DATA: lo_sub_element TYPE REF TO if_ixml_element,
|
|
lv_value TYPE string.
|
|
|
|
CONSTANTS: lc_xml_attr_theme TYPE string VALUE 'theme',
|
|
lc_xml_attr_rgb TYPE string VALUE 'rgb',
|
|
lc_xml_attr_indexed TYPE string VALUE 'indexed',
|
|
lc_xml_attr_tint TYPE string VALUE 'tint'.
|
|
|
|
"add node only if at least one attribute is set
|
|
CHECK is_color-rgb IS NOT INITIAL OR
|
|
is_color-indexed <> zcl_excel_style_color=>c_indexed_not_set OR
|
|
is_color-theme <> zcl_excel_style_color=>c_theme_not_set OR
|
|
is_color-tint IS NOT INITIAL.
|
|
|
|
lo_sub_element = io_document->create_simple_element(
|
|
name = iv_color_elem_name
|
|
parent = io_parent ).
|
|
|
|
IF is_color-rgb IS NOT INITIAL.
|
|
lv_value = is_color-rgb.
|
|
lo_sub_element->set_attribute_ns( name = lc_xml_attr_rgb
|
|
value = lv_value ).
|
|
ENDIF.
|
|
|
|
IF is_color-indexed <> zcl_excel_style_color=>c_indexed_not_set.
|
|
lv_value = zcl_excel_common=>number_to_excel_string( is_color-indexed ).
|
|
lo_sub_element->set_attribute_ns( name = lc_xml_attr_indexed
|
|
value = lv_value ).
|
|
ENDIF.
|
|
|
|
IF is_color-theme <> zcl_excel_style_color=>c_theme_not_set.
|
|
lv_value = zcl_excel_common=>number_to_excel_string( is_color-theme ).
|
|
lo_sub_element->set_attribute_ns( name = lc_xml_attr_theme
|
|
value = lv_value ).
|
|
ENDIF.
|
|
|
|
IF is_color-tint IS NOT INITIAL.
|
|
lv_value = zcl_excel_common=>number_to_excel_string( is_color-tint ).
|
|
lo_sub_element->set_attribute_ns( name = lc_xml_attr_tint
|
|
value = lv_value ).
|
|
ENDIF.
|
|
|
|
io_parent->append_child( new_child = lo_sub_element ).
|
|
endmethod.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_WRITER_2007" CMPNAME="CREATE_XL_TABLE" VERSION="1" LANGU="E" EXPOSURE="1" STATE="1" EDITORDER="14 " DISPID="0 " AUTHOR="FEMIA" CREATEDON="20110528" CHANGEDBY="FEMIA" CHANGEDON="20110601" MTDTYPE="0" MTDDECLTYP="0" R3RELEASE="702" BCMTDCAT="00" BCMTDSYN="0">
|
|
<parameter CLSNAME="ZCL_EXCEL_WRITER_2007" CMPNAME="CREATE_XL_TABLE" SCONAME="IO_TABLE" VERSION="1" LANGU="E" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " AUTHOR="FEMIA" CREATEDON="20110528" CHANGEDBY="FEMIA" CHANGEDON="20110528" PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="3" TYPE="ZCL_EXCEL_TABLE"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WRITER_2007" CMPNAME="CREATE_XL_TABLE" SCONAME="EP_CONTENT" VERSION="1" LANGU="E" CMPTYPE="1" MTDTYPE="0" EDITORDER="2 " DISPID="0 " AUTHOR="FEMIA" CREATEDON="20110528" CHANGEDBY="FEMIA" CHANGEDON="20110528" PARDECLTYP="3" PARPASSTYP="0" TYPTYPE="1" TYPE="XSTRING"/>
|
|
<source>method CREATE_XL_TABLE.
|
|
|
|
DATA: lc_xml_node_table TYPE string VALUE 'table',
|
|
lc_xml_node_relationship TYPE string VALUE 'Relationship',
|
|
" Node attributes
|
|
lc_xml_attr_id TYPE string VALUE 'id',
|
|
lc_xml_attr_name TYPE string VALUE 'name',
|
|
lc_xml_attr_display_name TYPE string VALUE 'displayName',
|
|
lc_xml_attr_ref TYPE string VALUE 'ref',
|
|
lc_xml_attr_totals TYPE string VALUE 'totalsRowShown',
|
|
" Node namespace
|
|
lc_xml_node_table_ns TYPE string VALUE 'http://schemas.openxmlformats.org/spreadsheetml/2006/main',
|
|
" Node id
|
|
lc_xml_node_ridx_id TYPE string VALUE 'rId#'.
|
|
|
|
DATA: lo_ixml TYPE REF TO if_ixml,
|
|
lo_document TYPE REF TO if_ixml_document,
|
|
lo_element_root TYPE REF TO if_ixml_element,
|
|
lo_element TYPE REF TO if_ixml_element,
|
|
lo_element2 TYPE REF TO if_ixml_element,
|
|
lo_encoding TYPE REF TO if_ixml_encoding,
|
|
lo_streamfactory TYPE REF TO if_ixml_stream_factory,
|
|
lo_ostream TYPE REF TO if_ixml_ostream,
|
|
lo_renderer TYPE REF TO if_ixml_renderer,
|
|
|
|
lv_table_name TYPE string,
|
|
lv_id TYPE i,
|
|
lv_syindex TYPE char3,
|
|
lv_ref TYPE string,
|
|
lv_value TYPE string,
|
|
lo_iterator TYPE REF TO cl_object_collection_iterator,
|
|
lv_num_columns TYPE i,
|
|
ls_fieldcat TYPE zexcel_s_fieldcatalog.
|
|
|
|
|
|
**********************************************************************
|
|
* STEP 1: Create xml
|
|
lo_ixml = cl_ixml=>create( ).
|
|
|
|
**********************************************************************
|
|
* STEP 2: Set document attributes
|
|
lo_encoding = lo_ixml->create_encoding( byte_order = if_ixml_encoding=>co_platform_endian
|
|
character_set = 'utf-8' ).
|
|
lo_document = lo_ixml->create_document( ).
|
|
lo_document->set_encoding( lo_encoding ).
|
|
lo_document->set_standalone( abap_true ).
|
|
|
|
**********************************************************************
|
|
* STEP 3: Create main node table
|
|
lo_element_root = lo_document->create_simple_element( name = lc_xml_node_table
|
|
parent = lo_document ).
|
|
|
|
lo_element_root->set_attribute_ns( name = 'xmlns'
|
|
value = lc_xml_node_table_ns ).
|
|
|
|
lv_id = io_table->get_id( ).
|
|
lv_value = zcl_excel_common=>number_to_excel_string( ip_value = lv_id ).
|
|
lo_element_root->set_attribute_ns( name = lc_xml_attr_id
|
|
value = lv_value ).
|
|
|
|
lv_table_name = io_table->get_name( ).
|
|
lo_element_root->set_attribute_ns( name = lc_xml_attr_name
|
|
value = lv_table_name ).
|
|
|
|
lo_element_root->set_attribute_ns( name = lc_xml_attr_display_name
|
|
value = lv_table_name ).
|
|
|
|
lv_ref = io_table->get_reference( ).
|
|
lo_element_root->set_attribute_ns( name = lc_xml_attr_ref
|
|
value = lv_ref ).
|
|
IF io_table->has_totals( ) = abap_true.
|
|
lo_element_root->set_attribute_ns( name = 'totalsRowCount'
|
|
value = '1' ).
|
|
ELSE.
|
|
lo_element_root->set_attribute_ns( name = lc_xml_attr_totals
|
|
value = '0' ).
|
|
ENDIF.
|
|
|
|
**********************************************************************
|
|
* STEP 4: Create subnodes
|
|
|
|
" autoFilter
|
|
lo_element = lo_document->create_simple_element( name = 'autoFilter'
|
|
parent = lo_document ).
|
|
|
|
lv_ref = io_table->get_reference( ip_include_totals_row = abap_false ).
|
|
lo_element->set_attribute_ns( name = 'ref'
|
|
value = lv_ref ).
|
|
|
|
lo_element_root->append_child( new_child = lo_element ).
|
|
|
|
"columns
|
|
lo_element = lo_document->create_simple_element( name = 'tableColumns'
|
|
parent = lo_document ).
|
|
|
|
* lo_columns = io_table->get_columns( ).
|
|
LOOP AT io_table->fieldcat INTO ls_fieldcat WHERE dynpfld = abap_true.
|
|
ADD 1 TO lv_num_columns.
|
|
ENDLOOP.
|
|
|
|
lv_value = lv_num_columns.
|
|
CONDENSE lv_value.
|
|
lo_element->set_attribute_ns( name = 'count'
|
|
value = lv_value ).
|
|
|
|
lo_element_root->append_child( new_child = lo_element ).
|
|
|
|
LOOP AT io_table->fieldcat INTO ls_fieldcat WHERE dynpfld = abap_true.
|
|
lo_element2 = lo_document->create_simple_element_ns( name = 'tableColumn'
|
|
parent = lo_element ).
|
|
|
|
lv_value = ls_fieldcat-position.
|
|
SHIFT lv_value LEFT DELETING LEADING '0'.
|
|
lo_element2->set_attribute_ns( name = 'id'
|
|
value = lv_value ).
|
|
lv_value = ls_fieldcat-scrtext_m.
|
|
lo_element2->set_attribute_ns( name = 'name'
|
|
value = lv_value ).
|
|
|
|
IF ls_fieldcat-totals_function IS NOT INITIAL.
|
|
lo_element2->set_attribute_ns( name = 'totalsRowFunction'
|
|
value = ls_fieldcat-totals_function ).
|
|
ENDIF.
|
|
|
|
lo_element->append_child( new_child = lo_element2 ).
|
|
ENDLOOP.
|
|
|
|
|
|
lo_element = lo_document->create_simple_element( name = 'tableStyleInfo'
|
|
parent = lo_element_root ).
|
|
|
|
lo_element->set_attribute_ns( name = 'name'
|
|
value = io_table->settings-table_style ).
|
|
|
|
lo_element->set_attribute_ns( name = 'showFirstColumn'
|
|
value = '0' ).
|
|
|
|
lo_element->set_attribute_ns( name = 'showLastColumn'
|
|
value = '0' ).
|
|
|
|
IF io_table->settings-show_row_stripes = abap_true.
|
|
lv_value = '1'.
|
|
ELSE.
|
|
lv_value = '0'.
|
|
ENDIF.
|
|
|
|
lo_element->set_attribute_ns( name = 'showRowStripes'
|
|
value = lv_value ).
|
|
|
|
IF io_table->settings-show_column_stripes = abap_true.
|
|
lv_value = '1'.
|
|
ELSE.
|
|
lv_value = '0'.
|
|
ENDIF.
|
|
|
|
lo_element->set_attribute_ns( name = 'showColumnStripes'
|
|
value = lv_value ).
|
|
|
|
lo_element_root->append_child( new_child = lo_element ).
|
|
**********************************************************************
|
|
* STEP 5: Create xstring stream
|
|
lo_streamfactory = lo_ixml->create_stream_factory( ).
|
|
lo_ostream = lo_streamfactory->create_ostream_xstring( string = ep_content ).
|
|
lo_renderer = lo_ixml->create_renderer( ostream = lo_ostream document = lo_document ).
|
|
lo_renderer->render( ).
|
|
|
|
endmethod.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_WRITER_2007" CMPNAME="CREATE_XL_THEME" VERSION="1" LANGU="E" DESCRIPT="Create 'xl/theme/theme1.xml'" EXPOSURE="1" STATE="1" EDITORDER="15 " DISPID="0 " AUTHOR="FEMIA" CREATEDON="20110528" CHANGEDBY="FEMIA" CHANGEDON="20110601" MTDTYPE="0" MTDDECLTYP="0" R3RELEASE="702" BCMTDCAT="00" BCMTDSYN="0">
|
|
<parameter CLSNAME="ZCL_EXCEL_WRITER_2007" CMPNAME="CREATE_XL_THEME" SCONAME="EP_CONTENT" VERSION="1" LANGU="E" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " AUTHOR="FEMIA" CREATEDON="20110528" CHANGEDBY="FEMIA" CHANGEDON="20110528" PARDECLTYP="3" PARPASSTYP="0" TYPTYPE="1" TYPE="XSTRING"/>
|
|
<source>method CREATE_XL_THEME.
|
|
|
|
|
|
* @TODO *
|
|
|
|
DATA: lv_xl_theme TYPE string,
|
|
lv_xl_theme_01 TYPE string,
|
|
lv_xl_theme_02 TYPE string,
|
|
lv_xl_theme_03 TYPE string,
|
|
lv_xl_theme_04 TYPE string,
|
|
lv_xl_theme_05 TYPE string,
|
|
lv_xl_theme_06 TYPE string,
|
|
lv_xl_theme_07 TYPE string,
|
|
lv_xl_theme_08 TYPE string,
|
|
lv_xl_theme_09 TYPE string,
|
|
lv_xl_theme_10 TYPE string,
|
|
lv_xl_theme_11 TYPE string,
|
|
lv_xl_theme_12 TYPE string,
|
|
lv_xl_theme_13 TYPE string,
|
|
lv_xl_theme_14 TYPE string,
|
|
lv_xl_theme_15 TYPE string,
|
|
lv_xl_theme_16 TYPE string,
|
|
lv_xl_theme_17 TYPE string,
|
|
lv_xl_theme_18 TYPE string,
|
|
lv_xl_theme_19 TYPE string,
|
|
lv_xl_theme_20 TYPE string,
|
|
lv_xl_theme_21 TYPE string,
|
|
lv_xl_theme_22 TYPE string,
|
|
lv_xl_theme_23 TYPE string,
|
|
lv_xl_theme_24 TYPE string,
|
|
lv_xl_theme_25 TYPE string,
|
|
lv_xl_theme_26 TYPE string,
|
|
lv_xl_theme_27 TYPE string,
|
|
lv_xl_theme_28 TYPE string,
|
|
lv_xl_theme_29 TYPE string,
|
|
lv_xl_theme_30 TYPE string,
|
|
lv_xl_theme_31 TYPE string,
|
|
lv_xl_theme_32 TYPE string.
|
|
|
|
lv_xl_theme_01 = '<?xml version="1.0" encoding="UTF-8" standalone="yes"?>'.
|
|
lv_xl_theme_02 = '<a:theme xmlns:a="http://schemas.openxmlformats.org/drawingml/2006/main" name="Office Theme"><a:themeElements><a:clrScheme name="Office"><a:dk1><a:sysClr val="windowText" lastClr="000000"/></a:dk1><a:lt1><a:sysClr val="window" '.
|
|
lv_xl_theme_03 = 'lastClr="FFFFFF"/></a:lt1><a:dk2><a:srgbClr val="1F497D"/></a:dk2><a:lt2><a:srgbClr val="EEECE1"/></a:lt2><a:accent1><a:srgbClr val="4F81BD"/></a:accent1><a:accent2><a:srgbClr val="C0504D"/></a:accent2><a:accent3><a:srgbClr '.
|
|
lv_xl_theme_04 = 'val="9BBB59"/></a:accent3><a:accent4><a:srgbClr val="8064A2"/></a:accent4><a:accent5><a:srgbClr val="4BACC6"/></a:accent5><a:accent6><a:srgbClr val="F79646"/></a:accent6><a:hlink><a:srgbClr val="0000FF"/></a:hlink><a:folHlink>'.
|
|
lv_xl_theme_05 = '<a:srgbClr val="800080"/></a:folHlink></a:clrScheme><a:fontScheme name="Office"><a:majorFont><a:latin typeface="Cambria"/><a:ea typeface=""/><a:cs typeface=""/>'.
|
|
lv_xl_theme_06 = '<a:font script="Arab" typeface="Times New Roman"/><a:font script="Hebr" typeface="Times New Roman"/><a:font script="Thai" '.
|
|
lv_xl_theme_07 = 'typeface="Tahoma"/><a:font script="Ethi" typeface="Nyala"/><a:font script="Beng" typeface="Vrinda"/><a:font script="Gujr" typeface="Shruti"/><a:font script="Khmr" typeface="MoolBoran"/><a:font script="Knda" typeface="Tunga"/><a:font '.
|
|
lv_xl_theme_08 = 'script="Guru" typeface="Raavi"/><a:font script="Cans" typeface="Euphemia"/><a:font script="Cher" typeface="Plantagenet Cherokee"/><a:font script="Yiii" typeface="Microsoft Yi Baiti"/><a:font script="Tibt" '.
|
|
lv_xl_theme_09 = 'typeface="Microsoft Himalaya"/><a:font script="Thaa" typeface="MV Boli"/><a:font script="Deva" typeface="Mangal"/><a:font script="Telu" typeface="Gautami"/><a:font script="Taml" typeface="Latha"/><a:font script="Syrc" '.
|
|
lv_xl_theme_10 = 'typeface="Estrangelo Edessa"/><a:font script="Orya" typeface="Kalinga"/><a:font script="Mlym" typeface="Kartika"/><a:font script="Laoo" typeface="DokChampa"/><a:font script="Sinh" typeface="Iskoola Pota"/><a:font script="Mong" '.
|
|
lv_xl_theme_11 = 'typeface="Mongolian Baiti"/><a:font script="Viet" typeface="Times New Roman"/><a:font script="Uigh" typeface="Microsoft Uighur"/></a:majorFont><a:minorFont><a:latin typeface="Calibri"/><a:ea typeface=""/><a:cs typeface=""/>'.
|
|
lv_xl_theme_12 = '<a:font script="Arab" typeface="Arial"/><a:font script="Hebr" '.
|
|
lv_xl_theme_13 = 'typeface="Arial"/><a:font script="Thai" typeface="Tahoma"/><a:font script="Ethi" typeface="Nyala"/><a:font script="Beng" typeface="Vrinda"/><a:font script="Gujr" typeface="Shruti"/><a:font script="Khmr" typeface="DaunPenh"/><a:font '.
|
|
lv_xl_theme_14 = 'script="Knda" typeface="Tunga"/><a:font script="Guru" typeface="Raavi"/><a:font script="Cans" typeface="Euphemia"/><a:font script="Cher" typeface="Plantagenet Cherokee"/><a:font script="Yiii" typeface="Microsoft Yi Baiti"/><a:font '.
|
|
lv_xl_theme_15 = 'script="Tibt" typeface="Microsoft Himalaya"/><a:font script="Thaa" typeface="MV Boli"/><a:font script="Deva" typeface="Mangal"/><a:font script="Telu" typeface="Gautami"/><a:font script="Taml" typeface="Latha"/><a:font script="Syrc" '.
|
|
lv_xl_theme_16 = 'typeface="Estrangelo Edessa"/><a:font script="Orya" typeface="Kalinga"/><a:font script="Mlym" typeface="Kartika"/><a:font script="Laoo" typeface="DokChampa"/><a:font script="Sinh" typeface="Iskoola Pota"/><a:font script="Mong" '.
|
|
lv_xl_theme_17 = 'typeface="Mongolian Baiti"/><a:font script="Viet" typeface="Arial"/><a:font script="Uigh" typeface="Microsoft Uighur"/></a:minorFont></a:fontScheme><a:fmtScheme name="Office"><a:fillStyleLst><a:solidFill><a:schemeClr val="phClr"/>'.
|
|
lv_xl_theme_18 = '</a:solidFill><a:gradFill rotWithShape="1"><a:gsLst><a:gs pos="0"><a:schemeClr val="phClr"><a:tint val="50000"/><a:satMod val="300000"/></a:schemeClr></a:gs><a:gs pos="35000"><a:schemeClr val="phClr"><a:tint val="37000"/><a:satMod '.
|
|
lv_xl_theme_19 = 'val="300000"/></a:schemeClr></a:gs><a:gs pos="100000"><a:schemeClr val="phClr"><a:tint val="15000"/><a:satMod val="350000"/></a:schemeClr></a:gs></a:gsLst><a:lin ang="16200000" scaled="1"/></a:gradFill><a:gradFill rotWithShape="1">'.
|
|
lv_xl_theme_20 = '<a:gsLst><a:gs pos="0"><a:schemeClr val="phClr"><a:shade val="51000"/><a:satMod val="130000"/></a:schemeClr></a:gs><a:gs pos="80000"><a:schemeClr val="phClr"><a:shade val="93000"/><a:satMod val="130000"/></a:schemeClr></a:gs><a:gs '.
|
|
lv_xl_theme_21 = 'pos="100000"><a:schemeClr val="phClr"><a:shade val="94000"/><a:satMod val="135000"/></a:schemeClr></a:gs></a:gsLst><a:lin ang="16200000" scaled="0"/></a:gradFill></a:fillStyleLst><a:lnStyleLst><a:ln w="9525" cap="flat" cmpd="sng" '.
|
|
lv_xl_theme_22 = 'algn="ctr"><a:solidFill><a:schemeClr val="phClr"><a:shade val="95000"/><a:satMod val="105000"/></a:schemeClr></a:solidFill><a:prstDash val="solid"/></a:ln><a:ln w="25400" cap="flat" cmpd="sng" algn="ctr"><a:solidFill><a:schemeClr '.
|
|
lv_xl_theme_23 = 'val="phClr"/></a:solidFill><a:prstDash val="solid"/></a:ln><a:ln w="38100" cap="flat" cmpd="sng" algn="ctr"><a:solidFill><a:schemeClr val="phClr"/></a:solidFill><a:prstDash val="solid"/></a:ln></a:lnStyleLst><a:effectStyleLst>'.
|
|
lv_xl_theme_24 = '<a:effectStyle><a:effectLst><a:outerShdw blurRad="40000" dist="20000" dir="5400000" rotWithShape="0"><a:srgbClr val="000000"><a:alpha val="38000"/></a:srgbClr></a:outerShdw></a:effectLst></a:effectStyle><a:effectStyle><a:effectLst>'.
|
|
lv_xl_theme_25 = '<a:outerShdw blurRad="40000" dist="23000" dir="5400000" rotWithShape="0"><a:srgbClr val="000000"><a:alpha val="35000"/></a:srgbClr></a:outerShdw></a:effectLst></a:effectStyle><a:effectStyle><a:effectLst><a:outerShdw blurRad="40000" '.
|
|
lv_xl_theme_26 = 'dist="23000" dir="5400000" rotWithShape="0"><a:srgbClr val="000000"><a:alpha val="35000"/></a:srgbClr></a:outerShdw></a:effectLst><a:scene3d><a:camera prst="orthographicFront"><a:rot lat="0" lon="0" rev="0"/></a:camera><a:lightRig '.
|
|
lv_xl_theme_27 = 'rig="threePt" dir="t"><a:rot lat="0" lon="0" rev="1200000"/></a:lightRig></a:scene3d><a:sp3d><a:bevelT w="63500" h="25400"/></a:sp3d></a:effectStyle></a:effectStyleLst><a:bgFillStyleLst><a:solidFill><a:schemeClr val="phClr"/>'.
|
|
lv_xl_theme_28 = '</a:solidFill><a:gradFill rotWithShape="1"><a:gsLst><a:gs pos="0"><a:schemeClr val="phClr"><a:tint val="40000"/><a:satMod val="350000"/></a:schemeClr></a:gs><a:gs pos="40000"><a:schemeClr val="phClr"><a:tint val="45000"/><a:shade '.
|
|
lv_xl_theme_29 = 'val="99000"/><a:satMod val="350000"/></a:schemeClr></a:gs><a:gs pos="100000"><a:schemeClr val="phClr"><a:shade val="20000"/><a:satMod val="255000"/></a:schemeClr></a:gs></a:gsLst><a:path path="circle"><a:fillToRect l="50000" '.
|
|
lv_xl_theme_30 = 't="-80000" r="50000" b="180000"/></a:path></a:gradFill><a:gradFill rotWithShape="1"><a:gsLst><a:gs pos="0"><a:schemeClr val="phClr"><a:tint val="80000"/><a:satMod val="300000"/></a:schemeClr></a:gs><a:gs pos="100000"><a:schemeClr '.
|
|
lv_xl_theme_31 = 'val="phClr"><a:shade val="30000"/><a:satMod val="200000"/></a:schemeClr></a:gs></a:gsLst><a:path path="circle"><a:fillToRect l="50000" t="50000" r="50000" b="50000"/></a:path></a:gradFill></a:bgFillStyleLst></a:fmtScheme>'.
|
|
lv_xl_theme_32 = '</a:themeElements><a:objectDefaults/><a:extraClrSchemeLst/></a:theme>'.
|
|
|
|
|
|
CONCATENATE lv_xl_theme_01 lv_xl_theme_02 lv_xl_theme_03 lv_xl_theme_04 lv_xl_theme_05 lv_xl_theme_06 lv_xl_theme_07 lv_xl_theme_08 lv_xl_theme_09 lv_xl_theme_10 lv_xl_theme_11 lv_xl_theme_12 lv_xl_theme_13 lv_xl_theme_14 lv_xl_theme_15
|
|
lv_xl_theme_16 lv_xl_theme_17 lv_xl_theme_18 lv_xl_theme_19 lv_xl_theme_20 lv_xl_theme_21 lv_xl_theme_22 lv_xl_theme_23 lv_xl_theme_24 lv_xl_theme_25 lv_xl_theme_26 lv_xl_theme_27 lv_xl_theme_28 lv_xl_theme_29 lv_xl_theme_30
|
|
lv_xl_theme_31 lv_xl_theme_32
|
|
INTO lv_xl_theme SEPARATED BY space.
|
|
|
|
CALL FUNCTION 'SCMS_STRING_TO_XSTRING'
|
|
EXPORTING
|
|
text = lv_xl_theme
|
|
IMPORTING
|
|
buffer = ep_content.
|
|
|
|
|
|
endmethod.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_WRITER_2007" CMPNAME="CREATE_XL_WORKBOOK" VERSION="1" LANGU="E" DESCRIPT="Create 'xl/workbook.xml'" EXPOSURE="1" STATE="1" EDITORDER="16 " DISPID="0 " AUTHOR="FEMIA" CREATEDON="20110528" CHANGEDBY="FEMIA" CHANGEDON="20110601" MTDTYPE="0" MTDDECLTYP="0" R3RELEASE="702" BCMTDCAT="00" BCMTDSYN="0">
|
|
<parameter CLSNAME="ZCL_EXCEL_WRITER_2007" CMPNAME="CREATE_XL_WORKBOOK" SCONAME="EP_CONTENT" VERSION="1" LANGU="E" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " AUTHOR="FEMIA" CREATEDON="20110528" CHANGEDBY="FEMIA" CHANGEDON="20110528" PARDECLTYP="3" PARPASSTYP="0" TYPTYPE="1" TYPE="XSTRING"/>
|
|
<source>method CREATE_XL_WORKBOOK.
|
|
|
|
|
|
** Constant node name
|
|
DATA: lc_xml_node_workbook TYPE string VALUE 'workbook',
|
|
lc_xml_node_fileversion TYPE string VALUE 'fileVersion',
|
|
lc_xml_node_workbookpr TYPE string VALUE 'workbookPr',
|
|
lc_xml_node_bookviews TYPE string VALUE 'bookViews',
|
|
lc_xml_node_workbookview TYPE string VALUE 'workbookView',
|
|
lc_xml_node_sheets TYPE string VALUE 'sheets',
|
|
lc_xml_node_sheet TYPE string VALUE 'sheet',
|
|
lc_xml_node_calcpr TYPE string VALUE 'calcPr',
|
|
lc_xml_node_workbookprotection TYPE string VALUE 'workbookProtection',
|
|
lc_xml_node_definednames TYPE string VALUE 'definedNames',
|
|
lc_xml_node_definedname TYPE string VALUE 'definedName',
|
|
" Node attributes
|
|
lc_xml_attr_appname TYPE string VALUE 'appName',
|
|
lc_xml_attr_lastedited TYPE string VALUE 'lastEdited',
|
|
lc_xml_attr_lowestedited TYPE string VALUE 'lowestEdited',
|
|
lc_xml_attr_rupbuild TYPE string VALUE 'rupBuild',
|
|
lc_xml_attr_themeversion TYPE string VALUE 'defaultThemeVersion',
|
|
lc_xml_attr_xwindow TYPE string VALUE 'xWindow',
|
|
lc_xml_attr_ywindow TYPE string VALUE 'yWindow',
|
|
lc_xml_attr_windowwidth TYPE string VALUE 'windowWidth',
|
|
lc_xml_attr_windowheight TYPE string VALUE 'windowHeight',
|
|
lc_xml_attr_activetab TYPE string VALUE 'activeTab',
|
|
lc_xml_attr_name TYPE string VALUE 'name',
|
|
lc_xml_attr_sheetid TYPE string VALUE 'sheetId',
|
|
lc_xml_attr_state TYPE string VALUE 'state',
|
|
lc_xml_attr_id TYPE string VALUE 'id',
|
|
lc_xml_attr_calcid TYPE string VALUE 'calcId',
|
|
lc_xml_attr_lockrevision TYPE string VALUE 'lockRevision',
|
|
lc_xml_attr_lockstructure TYPE string VALUE 'lockStructure',
|
|
lc_xml_attr_lockwindows TYPE string VALUE 'lockWindows',
|
|
lc_xml_attr_revisionspassword TYPE string VALUE 'revisionsPassword',
|
|
lc_xml_attr_workbookpassword TYPE string VALUE 'workbookPassword',
|
|
" Node namespace
|
|
lc_r_ns TYPE string VALUE 'r',
|
|
lc_xml_node_ns TYPE string VALUE 'http://schemas.openxmlformats.org/spreadsheetml/2006/main',
|
|
lc_xml_node_r_ns TYPE string VALUE 'http://schemas.openxmlformats.org/officeDocument/2006/relationships',
|
|
" Node id
|
|
lc_xml_node_ridx_id TYPE string VALUE 'rId#'.
|
|
|
|
DATA: lo_ixml TYPE REF TO if_ixml,
|
|
lo_document TYPE REF TO if_ixml_document,
|
|
lo_element_root TYPE REF TO if_ixml_element,
|
|
lo_element TYPE REF TO if_ixml_element,
|
|
lo_sub_element TYPE REF TO if_ixml_element,
|
|
lo_encoding TYPE REF TO if_ixml_encoding,
|
|
lo_streamfactory TYPE REF TO if_ixml_stream_factory,
|
|
lo_ostream TYPE REF TO if_ixml_ostream,
|
|
lo_renderer TYPE REF TO if_ixml_renderer,
|
|
lo_iterator TYPE REF TO cl_object_collection_iterator,
|
|
lo_worksheet TYPE REF TO zcl_excel_worksheet,
|
|
lo_range TYPE REF TO zcl_excel_range.
|
|
|
|
DATA: lv_xml_node_ridx_id TYPE string,
|
|
lv_value TYPE string,
|
|
lv_syindex TYPE string,
|
|
lv_active_sheet TYPE zexcel_active_worksheet.
|
|
|
|
**********************************************************************
|
|
* STEP 1: Create [Content_Types].xml into the root of the ZIP
|
|
lo_ixml = cl_ixml=>create( ).
|
|
|
|
**********************************************************************
|
|
* STEP 2: Set document attributes
|
|
lo_encoding = lo_ixml->create_encoding( byte_order = if_ixml_encoding=>co_platform_endian
|
|
character_set = 'utf-8' ).
|
|
lo_document = lo_ixml->create_document( ).
|
|
lo_document->set_encoding( lo_encoding ).
|
|
lo_document->set_standalone( abap_true ).
|
|
|
|
**********************************************************************
|
|
* STEP 3: Create main node
|
|
lo_element_root = lo_document->create_simple_element( name = lc_xml_node_workbook
|
|
parent = lo_document ).
|
|
lo_element_root->set_attribute_ns( name = 'xmlns'
|
|
value = lc_xml_node_ns ).
|
|
lo_element_root->set_attribute_ns( name = 'xmlns:r'
|
|
value = lc_xml_node_r_ns ).
|
|
|
|
**********************************************************************
|
|
* STEP 4: Create subnode
|
|
" fileVersion node
|
|
lo_element = lo_document->create_simple_element( name = lc_xml_node_fileversion
|
|
parent = lo_document ).
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_appname
|
|
value = 'xl' ).
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_lastedited
|
|
value = '4' ).
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_lowestedited
|
|
value = '4' ).
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_rupbuild
|
|
value = '4506' ).
|
|
lo_element_root->append_child( new_child = lo_element ).
|
|
|
|
" fileVersion node
|
|
lo_element = lo_document->create_simple_element( name = lc_xml_node_workbookpr
|
|
parent = lo_document ).
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_themeversion
|
|
value = '124226' ).
|
|
lo_element_root->append_child( new_child = lo_element ).
|
|
|
|
" workbookProtection node
|
|
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.
|
|
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.
|
|
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.
|
|
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.
|
|
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.
|
|
CONDENSE lv_value NO-GAPS.
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_lockwindows
|
|
value = lv_value ).
|
|
lo_element_root->append_child( new_child = lo_element ).
|
|
ENDIF.
|
|
|
|
" bookviews node
|
|
lo_element = lo_document->create_simple_element( name = lc_xml_node_bookviews
|
|
parent = lo_document ).
|
|
" bookview node
|
|
lo_sub_element = lo_document->create_simple_element( name = lc_xml_node_workbookview
|
|
parent = lo_document ).
|
|
lo_sub_element->set_attribute_ns( name = lc_xml_attr_xwindow
|
|
value = '120' ).
|
|
lo_sub_element->set_attribute_ns( name = lc_xml_attr_ywindow
|
|
value = '120' ).
|
|
lo_sub_element->set_attribute_ns( name = lc_xml_attr_windowwidth
|
|
value = '19035' ).
|
|
lo_sub_element->set_attribute_ns( name = lc_xml_attr_windowheight
|
|
value = '8445' ).
|
|
" Set Active Sheet
|
|
lv_active_sheet = excel->get_active_sheet_index( ).
|
|
IF lv_active_sheet > 1.
|
|
lv_active_sheet = lv_active_sheet - 1.
|
|
lv_value = lv_active_sheet.
|
|
CONDENSE lv_value.
|
|
lo_sub_element->set_attribute_ns( name = lc_xml_attr_activetab
|
|
value = lv_value ).
|
|
ENDIF.
|
|
lo_element->append_child( new_child = lo_sub_element )." bookview node
|
|
lo_element_root->append_child( new_child = lo_element )." bookviews node
|
|
|
|
" sheets node
|
|
lo_element = lo_document->create_simple_element( name = lc_xml_node_sheets
|
|
parent = lo_document ).
|
|
lo_iterator = excel->get_worksheets_iterator( ).
|
|
|
|
WHILE lo_iterator->if_object_collection_iterator~has_next( ) EQ abap_true.
|
|
" sheet node
|
|
lo_sub_element = lo_document->create_simple_element_ns( name = lc_xml_node_sheet
|
|
parent = lo_document ).
|
|
lo_worksheet ?= lo_iterator->if_object_collection_iterator~get_next( ).
|
|
lv_value = lo_worksheet->get_title( ).
|
|
lv_syindex = sy-index.
|
|
SHIFT lv_syindex RIGHT DELETING TRAILING space.
|
|
SHIFT lv_syindex LEFT DELETING LEADING space.
|
|
lv_xml_node_ridx_id = lc_xml_node_ridx_id.
|
|
REPLACE ALL OCCURRENCES OF '#' IN lv_xml_node_ridx_id WITH lv_syindex.
|
|
lo_sub_element->set_attribute_ns( name = lc_xml_attr_name
|
|
value = lv_value ).
|
|
lo_sub_element->set_attribute_ns( name = lc_xml_attr_sheetid
|
|
value = lv_syindex ).
|
|
IF lo_worksheet->zif_excel_sheet_properties~hidden EQ abap_true.
|
|
lo_sub_element->set_attribute_ns( name = lc_xml_attr_state
|
|
value = 'hidden' ).
|
|
ENDIF.
|
|
lo_sub_element->set_attribute_ns( name = lc_xml_attr_id
|
|
prefix = lc_r_ns
|
|
value = lv_xml_node_ridx_id ).
|
|
lo_element->append_child( new_child = lo_sub_element ). " sheet node
|
|
ENDWHILE.
|
|
lo_element_root->append_child( new_child = lo_element )." sheets node
|
|
|
|
|
|
" ranges node
|
|
lo_element = lo_document->create_simple_element( name = lc_xml_node_definednames
|
|
parent = lo_document ).
|
|
lo_iterator = excel->get_ranges_iterator( ).
|
|
|
|
WHILE lo_iterator->if_object_collection_iterator~has_next( ) EQ abap_true.
|
|
" range node
|
|
lo_sub_element = lo_document->create_simple_element_ns( name = lc_xml_node_definedname
|
|
parent = lo_document ).
|
|
lo_range ?= lo_iterator->if_object_collection_iterator~get_next( ).
|
|
lv_value = lo_range->name.
|
|
lo_sub_element->set_attribute_ns( name = lc_xml_attr_name
|
|
value = lv_value ).
|
|
lv_value = lo_range->get_value( ).
|
|
lo_sub_element->set_value( value = lv_value ).
|
|
lo_element->append_child( new_child = lo_sub_element ). " range node
|
|
ENDWHILE.
|
|
lo_element_root->append_child( new_child = lo_element )." ranges node
|
|
|
|
" calcPr node
|
|
lo_element = lo_document->create_simple_element( name = lc_xml_node_calcpr
|
|
parent = lo_document ).
|
|
lo_element->set_attribute_ns( name = lc_xml_attr_calcid
|
|
value = '125725' ).
|
|
lo_element_root->append_child( new_child = lo_element ).
|
|
|
|
**********************************************************************
|
|
* STEP 5: Create xstring stream
|
|
lo_streamfactory = lo_ixml->create_stream_factory( ).
|
|
lo_ostream = lo_streamfactory->create_ostream_xstring( string = ep_content ).
|
|
lo_renderer = lo_ixml->create_renderer( ostream = lo_ostream document = lo_document ).
|
|
lo_renderer->render( ).
|
|
|
|
endmethod.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_WRITER_2007" CMPNAME="FLAG2BOOL" VERSION="1" LANGU="E" DESCRIPT="Convert a FLAG to BOOLEAN value" EXPOSURE="0" STATE="1" EDITORDER="17 " DISPID="0 " AUTHOR="FEMIA" CREATEDON="20110528" CHANGEDBY="FEMIA" CHANGEDON="20110528" MTDTYPE="0" MTDDECLTYP="0" R3RELEASE="702" BCMTDCAT="00" BCMTDSYN="0">
|
|
<parameter CLSNAME="ZCL_EXCEL_WRITER_2007" CMPNAME="FLAG2BOOL" SCONAME="IP_FLAG" VERSION="1" LANGU="E" DESCRIPT="General Flag" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " AUTHOR="FEMIA" CREATEDON="20110528" CHANGEDBY="FEMIA" CHANGEDON="20110528" PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="FLAG"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WRITER_2007" CMPNAME="FLAG2BOOL" SCONAME="EP_BOOLEAN" VERSION="1" LANGU="E" DESCRIPT="Boolean value" CMPTYPE="1" MTDTYPE="0" EDITORDER="2 " DISPID="0 " AUTHOR="FEMIA" CREATEDON="20110528" CHANGEDBY="FEMIA" CHANGEDON="20110528" PARDECLTYP="3" PARPASSTYP="0" TYPTYPE="1" TYPE="CHAR5"/>
|
|
<source>method FLAG2BOOL.
|
|
|
|
|
|
IF ip_flag EQ abap_true.
|
|
ep_boolean = 'true'.
|
|
ELSE.
|
|
ep_boolean = 'false'.
|
|
ENDIF.
|
|
endmethod.</source>
|
|
</method>
|
|
<method CLSNAME="ZCL_EXCEL_WRITER_2007" CMPNAME="GET_SHARED_STRING_INDEX" VERSION="1" LANGU="E" DESCRIPT="Get shared string index" EXPOSURE="0" STATE="1" EDITORDER="18 " DISPID="0 " AUTHOR="FEMIA" CREATEDON="20110528" CHANGEDBY="FEMIA" CHANGEDON="20110528" MTDTYPE="0" MTDDECLTYP="0" R3RELEASE="702" BCMTDCAT="00" BCMTDSYN="0">
|
|
<parameter CLSNAME="ZCL_EXCEL_WRITER_2007" CMPNAME="GET_SHARED_STRING_INDEX" SCONAME="IP_CELL_VALUE" VERSION="1" LANGU="E" DESCRIPT="Cell Value" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " AUTHOR="FEMIA" CREATEDON="20110528" CHANGEDBY="FEMIA" CHANGEDON="20110528" PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_CELL_VALUE"/>
|
|
<parameter CLSNAME="ZCL_EXCEL_WRITER_2007" CMPNAME="GET_SHARED_STRING_INDEX" SCONAME="EP_INDEX" VERSION="1" LANGU="E" DESCRIPT="Natural Number" CMPTYPE="1" MTDTYPE="0" EDITORDER="2 " DISPID="0 " AUTHOR="FEMIA" CREATEDON="20110528" CHANGEDBY="FEMIA" CHANGEDON="20110528" PARDECLTYP="3" PARPASSTYP="0" TYPTYPE="1" TYPE="INT4"/>
|
|
<source>method GET_SHARED_STRING_INDEX.
|
|
|
|
|
|
DATA ls_shared_string TYPE zexcel_s_shared_string.
|
|
|
|
READ TABLE shared_strings INTO ls_shared_string WITH KEY string_value = ip_cell_value BINARY SEARCH.
|
|
ep_index = ls_shared_string-string_no.
|
|
|
|
endmethod.</source>
|
|
</method>
|
|
</CLAS>
|