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

#179 - as suggested by Gregor I added the colored tabs to demoreport 4

Browse Source 
git-svn-id: https://subversion.assembla.com/svn/abap2xlsx/trunk@346 b7d68dce-7c3c-4a99-8ce0-9ea847f5d049
This commit is contained in:
Stefan Schmöcker 2012-10-24 20:09:48 +00:00
parent 6e902d884b
commit 6a92c01fa7
1 changed files with 29 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
ZA2X/PROG/ZDEMO_EXCEL4.slnk
View File

@ -1,5 +1,5 @@
<?xml version="1.0" encoding="iso-8859-2"?> <?xml version="1.0" encoding="utf-8"?>
<PROG NAME="ZDEMO_EXCEL4" VARCL="X" SUBC="1" CNAM="FEMIA" CDAT="20100711" UNAM="K2_SCHMOECK" UDAT="20120324" VERN="000050" RSTAT="T" RMAND="001" RLOAD="E" FIXPT="X" SDATE="20120324" STIME="111822" IDATE="20120324" ITIME="111822" UCCHECK="X"> <PROG NAME="ZDEMO_EXCEL4" VARCL="X" SUBC="1" RSTAT="T" RMAND="001" RLOAD="E" FIXPT="X" UCCHECK="X">
<textPool> <textPool>
<language SPRAS="E"> <language SPRAS="E">
<textElement ID="R" ENTRY="abap2xlsx Demo: Create XLXS with multiple sheets" LENGTH="49 "/> <textElement ID="R" ENTRY="abap2xlsx Demo: Create XLXS with multiple sheets" LENGTH="49 "/>
@ -18,9 +18,12 @@ REPORT zdemo_excel4.
DATA: lo_excel TYPE REF TO zcl_excel, DATA: lo_excel TYPE REF TO zcl_excel,
lo_worksheet TYPE REF TO zcl_excel_worksheet, lo_worksheet TYPE REF TO zcl_excel_worksheet,
lo_hyperlink TYPE REF TO zcl_excel_hyperlink.
DATA: ls_header TYPE zexcel_s_worksheet_head_foot, lo_hyperlink TYPE REF TO zcl_excel_hyperlink,
lv_tabcolor TYPE zexcel_s_tabcolor,
ls_header TYPE zexcel_s_worksheet_head_foot,
ls_footer TYPE zexcel_s_worksheet_head_foot. ls_footer TYPE zexcel_s_worksheet_head_foot.
CONSTANTS: gc_save_file_name TYPE string VALUE &apos;04_Sheets.xlsx&apos;. CONSTANTS: gc_save_file_name TYPE string VALUE &apos;04_Sheets.xlsx&apos;.
@ -37,10 +40,15 @@ START-OF-SELECTION.
lo_worksheet-&gt;set_title( ip_title = &apos;Sheet1&apos; ). lo_worksheet-&gt;set_title( ip_title = &apos;Sheet1&apos; ).
lo_worksheet-&gt;zif_excel_sheet_properties~selected = zif_excel_sheet_properties=&gt;c_selected. lo_worksheet-&gt;zif_excel_sheet_properties~selected = zif_excel_sheet_properties=&gt;c_selected.
lo_worksheet-&gt;set_cell( ip_column = &apos;B&apos; ip_row = 2 ip_value = &apos;This is the first sheet&apos; ). lo_worksheet-&gt;set_cell( ip_column = &apos;B&apos; ip_row = 2 ip_value = &apos;This is the first sheet&apos; ).
* Set color to tab with sheetname - Red
lv_tabcolor-rgb = zcl_excel_style_color=&gt;create_new_argb( ip_red = &apos;FF&apos;
ip_green = &apos;00&apos;
ip_blu = &apos;00&apos; ).
lo_worksheet-&gt;set_tabcolor( lv_tabcolor ).
lo_hyperlink = zcl_excel_hyperlink=&gt;create_internal_link( iv_location = &apos;Sheet2!B2&apos; ). 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 ). 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 &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;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;black_and_white = &apos;X&apos;.
@ -68,6 +76,11 @@ START-OF-SELECTION.
lo_worksheet = lo_excel-&gt;add_new_worksheet( ). lo_worksheet = lo_excel-&gt;add_new_worksheet( ).
lo_worksheet-&gt;set_title( ip_title = &apos;Sheet2&apos; ). lo_worksheet-&gt;set_title( ip_title = &apos;Sheet2&apos; ).
* Set color to tab with sheetname - Green
lv_tabcolor-rgb = zcl_excel_style_color=&gt;create_new_argb( ip_red = &apos;00&apos;
ip_green = &apos;FF&apos;
ip_blu = &apos;00&apos; ).
lo_worksheet-&gt;set_tabcolor( lv_tabcolor ).
lo_worksheet-&gt;zif_excel_sheet_properties~selected = zif_excel_sheet_properties=&gt;c_selected. lo_worksheet-&gt;zif_excel_sheet_properties~selected = zif_excel_sheet_properties=&gt;c_selected.
lo_worksheet-&gt;set_cell( ip_column = &apos;B&apos; ip_row = 2 ip_value = &apos;This is the second sheet&apos; ). lo_worksheet-&gt;set_cell( ip_column = &apos;B&apos; ip_row = 2 ip_value = &apos;This is the second sheet&apos; ).
lo_hyperlink = zcl_excel_hyperlink=&gt;create_internal_link( iv_location = &apos;Sheet1!B2&apos; ). lo_hyperlink = zcl_excel_hyperlink=&gt;create_internal_link( iv_location = &apos;Sheet1!B2&apos; ).
@ -79,6 +92,11 @@ START-OF-SELECTION.
lo_worksheet = lo_excel-&gt;add_new_worksheet( ). lo_worksheet = lo_excel-&gt;add_new_worksheet( ).
lo_worksheet-&gt;set_title( ip_title = &apos;Sheet3&apos; ). lo_worksheet-&gt;set_title( ip_title = &apos;Sheet3&apos; ).
* Set color to tab with sheetname - Blue
lv_tabcolor-rgb = zcl_excel_style_color=&gt;create_new_argb( ip_red = &apos;00&apos;
ip_green = &apos;00&apos;
ip_blu = &apos;FF&apos; ).
lo_worksheet-&gt;set_tabcolor( lv_tabcolor ).
lo_worksheet-&gt;zif_excel_sheet_properties~hidden = zif_excel_sheet_properties=&gt;c_hidden. 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 lo_worksheet-&gt;sheet_setup-&gt;set_header_footer( ip_odd_header = ls_header
@ -86,6 +104,11 @@ START-OF-SELECTION.
lo_worksheet = lo_excel-&gt;add_new_worksheet( ). lo_worksheet = lo_excel-&gt;add_new_worksheet( ).
lo_worksheet-&gt;set_title( ip_title = &apos;Sheet4&apos; ). lo_worksheet-&gt;set_title( ip_title = &apos;Sheet4&apos; ).
* Set color to tab with sheetname - other color
lv_tabcolor-rgb = zcl_excel_style_color=&gt;create_new_argb( ip_red = &apos;00&apos;
ip_green = &apos;FF&apos;
ip_blu = &apos;FF&apos; ).
lo_worksheet-&gt;set_tabcolor( lv_tabcolor ).
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 = 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;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;zif_excel_sheet_properties~show_zeros = zif_excel_sheet_properties=&gt;c_hidezero.