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

Add parameter to avoid output when executed from ZEXCEL_DEMO report

Browse Source 
git-svn-id: https://subversion.assembla.com/svn/abap2xlsx/trunk@37 b7d68dce-7c3c-4a99-8ce0-9ea847f5d049
This commit is contained in:
Ivan Femia 2010-10-30 21:52:06 +00:00
parent 1eae326b74
commit d3e5a8c989
2 changed files with 48 additions and 35 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

54
ZA2X/PROG/ZDEMO_EXCEL15.slnk
View File

@ -1,8 +1,10 @@
<?xml version="1.0" encoding="iso-8859-1"?> <?xml version="1.0" encoding="utf-16"?>
<PROG NAME="ZDEMO_EXCEL15" VARCL="X" SUBC="1" CNAM="BCUSER" CDAT="20100820" UNAM="BCUSER" UDAT="20101030" VERN="000019" RSTAT="T" RMAND="000" RLOAD="E" FIXPT="X" SDATE="20101030" STIME="142409" IDATE="20101030" ITIME="142409" UCCHECK="X"> <PROG NAME="ZDEMO_EXCEL15" VARCL="X" SUBC="1" CNAM="BCUSER" CDAT="20100820" UNAM="FEMIA" UDAT="20101030" VERN="000021" RSTAT="T" RMAND="000" RLOAD="E" FIXPT="X" SDATE="20101030" STIME="234140" IDATE="20101030" ITIME="234140" UCCHECK="X">
<textPool> <textPool>
<language SPRAS="E"> <language SPRAS="E">
<textElement ID="R" ENTRY="ABAP2XLSX Reader Demo" LENGTH="21 "/> <textElement ID="R" ENTRY="ABAP2XLSX Reader Demo" LENGTH="21 "/>
<textElement ID="S" KEY="P_NOOUT" ENTRY=" Hide output" LENGTH="19 "/>
<textElement ID="S" KEY="P_PATH" ENTRY=" Select output path" LENGTH="26 "/>
</language> </language>
</textPool> </textPool>
<source>*&amp;---------------------------------------------------------------------* <source>*&amp;---------------------------------------------------------------------*
@ -15,6 +17,8 @@
REPORT zdemo_excel15. REPORT zdemo_excel15.
TYPE-POOLS: abap.
DATA: excel TYPE REF TO zcl_excel, DATA: excel TYPE REF TO zcl_excel,
lo_excel_writer TYPE REF TO zif_excel_writer, lo_excel_writer TYPE REF TO zif_excel_writer,
reader TYPE REF TO zif_excel_reader. reader TYPE REF TO zif_excel_reader.
@ -39,7 +43,8 @@ DATA: worksheet TYPE REF TO zcl_excel_worksheet,
CONSTANTS: lv_default_file_name TYPE string VALUE &apos;15_iTabFromReader.xlsx&apos;, CONSTANTS: lv_default_file_name TYPE string VALUE &apos;15_iTabFromReader.xlsx&apos;,
lv_default_input TYPE string VALUE &apos;03_iTab.xlsx&apos;. lv_default_input TYPE string VALUE &apos;03_iTab.xlsx&apos;.
PARAMETERS: p_path TYPE string. PARAMETERS: p_path TYPE string,
p_noout TYPE xfeld DEFAULT abap_true.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_path. AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_path.
@ -63,30 +68,31 @@ START-OF-SELECTION.
CREATE OBJECT reader TYPE zcl_excel_reader_2007. CREATE OBJECT reader TYPE zcl_excel_reader_2007.
excel = reader-&gt;load_file( input_file_path ). excel = reader-&gt;load_file( input_file_path ).
worksheet = excel-&gt;get_active_worksheet( ). IF p_noout EQ abap_false.
highest_column = worksheet-&gt;get_highest_column( ). worksheet = excel-&gt;get_active_worksheet( ).
highest_row = worksheet-&gt;get_highest_row( ). highest_column = worksheet-&gt;get_highest_column( ).
highest_row = worksheet-&gt;get_highest_row( ).
WRITE: &apos;Highest column: &apos;, highest_column, &apos;Highest row: &apos;, highest_row. WRITE: &apos;Highest column: &apos;, highest_column, &apos;Highest row: &apos;, highest_row.
WHILE row &lt;= highest_row. WHILE row &lt;= highest_row.
WHILE column &lt;= highest_column. WHILE column &lt;= highest_column.
col_str = zcl_excel_common=&gt;convert_column2alpha( column ). col_str = zcl_excel_common=&gt;convert_column2alpha( column ).
worksheet-&gt;get_cell( worksheet-&gt;get_cell(
EXPORTING EXPORTING
ip_column = col_str ip_column = col_str
ip_row = row ip_row = row
IMPORTING IMPORTING
ep_value = value ep_value = value
). ).
WRITE: value. WRITE: value.
column = column + 1. column = column + 1.
ENDWHILE.
WRITE: /.
column = 1.
row = row + 1.
ENDWHILE. ENDWHILE.
WRITE: /. ENDIF.
column = 1.
row = row + 1.
ENDWHILE.
CREATE OBJECT lo_excel_writer TYPE zcl_excel_writer_2007. CREATE OBJECT lo_excel_writer TYPE zcl_excel_writer_2007.
lv_file = lo_excel_writer-&gt;write_file( excel ). lv_file = lo_excel_writer-&gt;write_file( excel ).

29
ZA2X/PROG/ZDEMO_EXCEL19.slnk
View File

@ -1,8 +1,10 @@
<?xml version="1.0" encoding="iso-8859-1"?> <?xml version="1.0" encoding="utf-16"?>
<PROG NAME="ZDEMO_EXCEL19" VARCL="X" SUBC="1" CNAM="BCUSER" CDAT="20101030" UNAM="BCUSER" UDAT="20101030" VERN="000016" RSTAT="T" RMAND="000" RLOAD="E" FIXPT="X" SDATE="20101030" STIME="202715" IDATE="20101030" ITIME="202715" UCCHECK="X"> <PROG NAME="ZDEMO_EXCEL19" VARCL="X" SUBC="1" CNAM="BCUSER" CDAT="20101030" UNAM="FEMIA" UDAT="20101030" VERN="000018" RSTAT="T" RMAND="000" RLOAD="E" FIXPT="X" SDATE="20101030" STIME="234803" IDATE="20101030" ITIME="234803" UCCHECK="X">
<textPool> <textPool>
<language SPRAS="E"> <language SPRAS="E">
<textElement ID="R" ENTRY="abap2xlsx Demo: Set active sheet" LENGTH="32 "/> <textElement ID="R" ENTRY="abap2xlsx Demo: Set active sheet" LENGTH="32 "/>
<textElement ID="S" KEY="P_NOOUT" ENTRY=" Hide output" LENGTH="19 "/>
<textElement ID="S" KEY="P_PATH" ENTRY=" Select output path" LENGTH="26 "/>
</language> </language>
</textPool> </textPool>
<source>*&amp;---------------------------------------------------------------------* <source>*&amp;---------------------------------------------------------------------*
@ -13,8 +15,9 @@
*&amp; *&amp;
*&amp;---------------------------------------------------------------------* *&amp;---------------------------------------------------------------------*
REPORT ZDEMO_EXCEL19. REPORT zdemo_excel19.
TYPE-POOLS: abap.
DATA: lo_excel TYPE REF TO zcl_excel, DATA: lo_excel TYPE REF TO zcl_excel,
lo_excel_writer TYPE REF TO zif_excel_writer, lo_excel_writer TYPE REF TO zif_excel_writer,
@ -31,7 +34,8 @@ DATA: lv_workdir TYPE string,
CONSTANTS: lv_default_file_name TYPE string VALUE &apos;19_SetActiveSheet.xlsx&apos;. CONSTANTS: lv_default_file_name TYPE string VALUE &apos;19_SetActiveSheet.xlsx&apos;.
PARAMETERS: p_path TYPE string. PARAMETERS: p_path TYPE string,
p_noout TYPE xfeld DEFAULT abap_true.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_path. AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_path.
@ -67,14 +71,17 @@ START-OF-SELECTION.
lo_worksheet-&gt;title = &apos;Third&apos;. lo_worksheet-&gt;title = &apos;Third&apos;.
lo_worksheet-&gt;set_cell( ip_row = 1 ip_column = &apos;A&apos; ip_value = &apos;This is Sheet 3&apos; ). lo_worksheet-&gt;set_cell( ip_row = 1 ip_column = &apos;A&apos; ip_value = &apos;This is Sheet 3&apos; ).
&quot; lo_excel-&gt;set_active_sheet_index_by_name( data_sheet_name ). IF p_noout EQ abap_false.
DATA: active_sheet_index TYPE ZEXCEL_ACTIVE_WORKSHEET. &quot; lo_excel-&gt;set_active_sheet_index_by_name( data_sheet_name ).
active_sheet_index = lo_excel-&gt;get_active_sheet_index( ). DATA: active_sheet_index TYPE zexcel_active_worksheet.
write: &apos;Sheet Index before: &apos;, active_sheet_index. active_sheet_index = lo_excel-&gt;get_active_sheet_index( ).
WRITE: &apos;Sheet Index before: &apos;, active_sheet_index.
ENDIF.
lo_excel-&gt;set_active_sheet_index( &apos;2&apos; ). lo_excel-&gt;set_active_sheet_index( &apos;2&apos; ).
active_sheet_index = lo_excel-&gt;get_active_sheet_index( ). IF p_noout EQ abap_false.
write: &apos;Sheet Index after: &apos;, active_sheet_index. active_sheet_index = lo_excel-&gt;get_active_sheet_index( ).
WRITE: &apos;Sheet Index after: &apos;, active_sheet_index.
ENDIF.
CREATE OBJECT lo_excel_writer TYPE zcl_excel_writer_2007. CREATE OBJECT lo_excel_writer TYPE zcl_excel_writer_2007.
lv_file = lo_excel_writer-&gt;write_file( lo_excel ). lv_file = lo_excel_writer-&gt;write_file( lo_excel ).