*&---------------------------------------------------------------------*
*& 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 ).