mirror of
https://github.com/abap2xlsx/abap2xlsx.git
synced 2025-05-05 20:29:45 +08:00
195e762394
git-svn-id: https://subversion.assembla.com/svn/abap2xlsx/trunk@281 b7d68dce-7c3c-4a99-8ce0-9ea847f5d049
92 lines
3.3 KiB
XML
92 lines
3.3 KiB
XML
<?xml version="1.0" encoding="iso-8859-2"?>
|
|
<PROG NAME="ZDEMO_EXCEL33" VARCL="X" SUBC="1" CNAM="RTURNHEIM" CDAT="20120311" UNAM="K2_SCHMOECK" UDAT="20120324" VERN="000028" RSTAT="T" RMAND="001" RLOAD="E" FIXPT="X" SDATE="20120324" STIME="111822" IDATE="20120324" ITIME="111822" UCCHECK="X">
|
|
<textPool>
|
|
<language SPRAS="E">
|
|
<textElement ID="R" ENTRY="abap2xlsx Demo: Autofilter" LENGTH="27 "/>
|
|
<textElement ID="S" KEY="P_EMPTY" ENTRY=" Leave Table Empty" LENGTH="25 "/>
|
|
<textElement ID="S" KEY="P_PATH" ENTRY="D ." LENGTH="24 "/>
|
|
</language>
|
|
</textPool>
|
|
<source>*&---------------------------------------------------------------------*
|
|
*& Report ZDEMO_EXCEL3
|
|
*&
|
|
*&---------------------------------------------------------------------*
|
|
*&
|
|
*&
|
|
*&---------------------------------------------------------------------*
|
|
|
|
REPORT zdemo_excel33.
|
|
|
|
TYPE-POOLS: abap.
|
|
|
|
DATA: lo_excel TYPE REF TO zcl_excel,
|
|
lo_worksheet TYPE REF TO zcl_excel_worksheet,
|
|
lo_converter TYPE REF TO zcl_excel_converter,
|
|
lo_autofilter TYPE REF TO zcl_excel_autofilter.
|
|
|
|
DATA lt_test TYPE TABLE OF sflight.
|
|
|
|
DATA: lv_title TYPE zexcel_sheet_title,
|
|
lt_carr TYPE TABLE OF scarr,
|
|
row TYPE zexcel_cell_row VALUE 2,
|
|
lt_dfies TYPE STANDARD TABLE OF dfies,
|
|
ls_dfies TYPE dfies,
|
|
l_row_int TYPE i,
|
|
l_col_int TYPE i,
|
|
l_col_alpha TYPE zexcel_cell_column_alpha,
|
|
l_cell_value TYPE zexcel_cell_value,
|
|
ls_area TYPE zexcel_s_autofilter_area.
|
|
DATA: lo_data_validation TYPE REF TO zcl_excel_data_validation.
|
|
FIELD-SYMBOLS: <fs_test> TYPE sflight,
|
|
<fs_fldval> TYPE ANY.
|
|
|
|
CONSTANTS: c_airlines TYPE string VALUE 'Airlines'.
|
|
|
|
CONSTANTS: gc_save_file_name TYPE string VALUE '33_autofilter.xlsx'.
|
|
INCLUDE zdemo_excel_outputopt_incl.
|
|
|
|
|
|
START-OF-SELECTION.
|
|
|
|
" Creates active sheet
|
|
CREATE OBJECT lo_excel.
|
|
|
|
" Get active sheet
|
|
lo_worksheet = lo_excel->get_active_worksheet( ).
|
|
lo_worksheet->set_title( ip_title = 'Internal table').
|
|
|
|
SELECT * UP TO 500 ROWS FROM sflight INTO TABLE lt_test. "#EC CI_NOWHERE
|
|
|
|
CREATE OBJECT lo_converter.
|
|
|
|
lo_converter->convert( EXPORTING
|
|
it_table = lt_test
|
|
i_row_int = 3
|
|
i_column_int = 2
|
|
io_worksheet = lo_worksheet
|
|
CHANGING
|
|
co_excel = lo_excel ) .
|
|
|
|
lo_autofilter = lo_excel->add_new_autofilter( io_sheet = lo_worksheet ) .
|
|
|
|
ls_area-row_start = 3.
|
|
ls_area-col_start = 3.
|
|
DESCRIBE TABLE lt_test LINES l_row_int.
|
|
ls_area-row_end = l_row_int + 3.
|
|
ls_area-col_end = 3.
|
|
|
|
lo_autofilter->set_filter_area( is_area = ls_area ).
|
|
|
|
lo_worksheet->get_cell( EXPORTING
|
|
ip_column = 'C'
|
|
ip_row = 5
|
|
IMPORTING
|
|
ep_value = l_cell_value ).
|
|
lo_autofilter->set_value( i_column = 3
|
|
i_value = l_cell_value ).
|
|
|
|
|
|
*** Create output
|
|
lcl_output=>output( lo_excel ).</source>
|
|
</PROG>
|