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

Fixed #145

Browse Source 
git-svn-id: https://subversion.assembla.com/svn/abap2xlsx/trunk@264 b7d68dce-7c3c-4a99-8ce0-9ea847f5d049
This commit is contained in:
Ivan Femia 2012-03-16 08:21:12 +00:00
parent 9e766b5363
commit ea9d9d300b
1 changed files with 144 additions and 117 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
ZA2X/PROG/ZDEMO_EXCEL4.slnk
View File

@ -1,8 +1,9 @@
<?xml version="1.0" encoding="utf-16"?>
<PROG NAME="ZDEMO_EXCEL4" VARCL="X" SUBC="1" CNAM="FEMIA" CDAT="20100711" UNAM="DEVELOPER" UDAT="20111229" VERN="000039" RSTAT="T" RMAND="001" RLOAD="E" FIXPT="X" SDATE="20111229" STIME="193218" IDATE="20111229" ITIME="193218" UCCHECK="X">
<PROG NAME="ZDEMO_EXCEL4" VARCL="X" SUBC="1" CNAM="FEMIA" CDAT="20100711" UNAM="FEMIA" UDAT="20120316" VERN="000046" RSTAT="T" RMAND="001" RLOAD="E" FIXPT="X" SDATE="20120316" STIME="090807" IDATE="20120316" ITIME="090807" UCCHECK="X">
<textPool>
<language SPRAS="E">
<textElement ID="R" ENTRY="abap2xlsx Demo: Create XLXS with multiple sheets" LENGTH="48 "/>
<textElement ID="S" KEY="P_PATH" ENTRY="D ." LENGTH="9 "/>
</language>
</textPool>
<source>*&amp;---------------------------------------------------------------------*
@ -28,6 +29,9 @@ DATA: lv_full_path TYPE string,
lv_workdir TYPE string,
lv_file_separator TYPE c.
DATA: ls_header TYPE zexcel_s_worksheet_head_foot,
ls_footer TYPE zexcel_s_worksheet_head_foot.
CONSTANTS: lv_default_file_name TYPE string VALUE &apos;04_Sheets.xlsx&apos;.
PARAMETERS: p_path TYPE zexcel_export_dir.
@ -62,6 +66,8 @@ START-OF-SELECTION.
lo_hyperlink = zcl_excel_hyperlink=&gt;create_internal_link( iv_location = &apos;Sheet2!B2&apos; ).
lo_worksheet-&gt;set_cell( ip_column = &apos;B&apos; ip_row = 3 ip_value = &apos;This is link to second sheet&apos; ip_hyperlink = lo_hyperlink ).
&quot; Page printing settings
lo_worksheet-&gt;sheet_setup-&gt;set_page_margins( ip_header = &apos;1&apos; ip_footer = &apos;1&apos; ip_unit = &apos;cm&apos; ).
lo_worksheet-&gt;sheet_setup-&gt;black_and_white = &apos;X&apos;.
lo_worksheet-&gt;sheet_setup-&gt;fit_to_page = &apos;X&apos;. &quot; you should turn this on to activate fit_to_height and fit_to_width
@ -72,6 +78,18 @@ START-OF-SELECTION.
lo_worksheet-&gt;sheet_setup-&gt;paper_size = zcl_excel_sheet_setup=&gt;c_papersize_a4.
lo_worksheet-&gt;sheet_setup-&gt;scale = 80. &quot; used only if ip_fit_to_page = SPACE
&quot; Header and Footer
ls_header-right_value = &apos;print date &amp;D&apos;.
ls_header-right_font-size = 8.
ls_header-right_font-name = zcl_excel_style_font=&gt;c_name_arial.
ls_footer-left_value = &apos;&amp;Z&amp;F&apos;. &quot;Path / Filename
ls_footer-left_font = ls_header-right_font.
ls_footer-right_value = &apos;page &amp;P of &amp;N&apos;. &quot;page x of y
ls_footer-right_font = ls_header-right_font.
lo_worksheet-&gt;sheet_setup-&gt;set_header_footer( ip_odd_header = ls_header
ip_odd_footer = ls_footer ).
lo_worksheet = lo_excel-&gt;add_new_worksheet( ).
@ -82,16 +100,25 @@ START-OF-SELECTION.
lo_worksheet-&gt;set_cell( ip_column = &apos;B&apos; ip_row = 3 ip_value = &apos;This is link to first sheet&apos; ip_hyperlink = lo_hyperlink ).
lo_worksheet-&gt;set_cell( ip_column = &apos;B&apos; ip_row = 4 ip_value = &apos;Sheet3 is hidden&apos; ).
lo_worksheet-&gt;sheet_setup-&gt;set_header_footer( ip_odd_header = ls_header
ip_odd_footer = ls_footer ).
lo_worksheet = lo_excel-&gt;add_new_worksheet( ).
lo_worksheet-&gt;set_title( ip_title = &apos;Sheet3&apos; ).
lo_worksheet-&gt;zif_excel_sheet_properties~hidden = zif_excel_sheet_properties=&gt;c_hidden.
lo_worksheet-&gt;sheet_setup-&gt;set_header_footer( ip_odd_header = ls_header
ip_odd_footer = ls_footer ).
lo_worksheet = lo_excel-&gt;add_new_worksheet( ).
lo_worksheet-&gt;set_title( ip_title = &apos;Sheet4&apos; ).
lo_worksheet-&gt;set_cell( ip_column = &apos;B&apos; ip_row = 2 ip_value = &apos;Cell B3 has value 0&apos; ).
lo_worksheet-&gt;set_cell( ip_column = &apos;B&apos; ip_row = 3 ip_value = 0 ).
lo_worksheet-&gt;zif_excel_sheet_properties~show_zeros = zif_excel_sheet_properties=&gt;c_hidezero.
lo_worksheet-&gt;sheet_setup-&gt;set_header_footer( ip_odd_header = ls_header
ip_odd_footer = ls_footer ).
lo_excel-&gt;set_active_sheet_index_by_name( &apos;Sheet1&apos; ).
CREATE OBJECT lo_excel_writer TYPE zcl_excel_writer_2007.