mirror of
https://github.com/abap2xlsx/abap2xlsx.git
synced 2025-05-05 06:16:05 +08:00
109 lines
5.9 KiB
XML
109 lines
5.9 KiB
XML
<?xml version="1.0" encoding="utf-8"?>
|
|
<PROG NAME="ZDEMO_EXCEL30" VARCL="X" SUBC="1" RSTAT="T" RMAND="001" RLOAD="E" FIXPT="X" UCCHECK="X">
|
|
<textPool>
|
|
<language SPRAS="E">
|
|
<textElement ID="R" ENTRY="abap2xlsx Demo: ABAP Cell data types" LENGTH="37 "/>
|
|
<textElement ID="S" KEY="P_PATH" ENTRY="D ." LENGTH="9 "/>
|
|
</language>
|
|
</textPool>
|
|
<source>*&---------------------------------------------------------------------*
|
|
*& Report ZDEMO_EXCEL1
|
|
*&
|
|
*&---------------------------------------------------------------------*
|
|
*&
|
|
*&
|
|
*&---------------------------------------------------------------------*
|
|
|
|
REPORT zdemo_excel30.
|
|
|
|
DATA: lo_excel TYPE REF TO zcl_excel,
|
|
lo_worksheet TYPE REF TO zcl_excel_worksheet,
|
|
lo_hyperlink TYPE REF TO zcl_excel_hyperlink,
|
|
column_dimension TYPE REF TO zcl_excel_worksheet_columndime.
|
|
|
|
|
|
DATA: lv_value TYPE string,
|
|
lv_count TYPE i VALUE 10,
|
|
lv_packed TYPE p LENGTH 16 DECIMALS 1 VALUE '1234567890.5'.
|
|
|
|
CONSTANTS: lc_typekind_string TYPE abap_typekind VALUE cl_abap_typedescr=>typekind_string,
|
|
lc_typekind_packed TYPE abap_typekind VALUE cl_abap_typedescr=>typekind_packed,
|
|
lc_typekind_num TYPE abap_typekind VALUE cl_abap_typedescr=>typekind_num,
|
|
lc_typekind_date TYPE abap_typekind VALUE cl_abap_typedescr=>typekind_date,
|
|
lc_typekind_s_ls TYPE string VALUE 's_leading_blanks'.
|
|
|
|
CONSTANTS: gc_save_file_name TYPE string VALUE '30_CellDataTypes.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 = 'Cell data types' ).
|
|
lo_worksheet->set_cell( ip_column = 'A' ip_row = 1 ip_value = 'Number as String'
|
|
ip_abap_type = lc_typekind_string ).
|
|
lo_worksheet->set_cell( ip_column = 'A' ip_row = 2 ip_value = '11'
|
|
ip_abap_type = lc_typekind_string ).
|
|
lo_worksheet->set_cell( ip_column = 'B' ip_row = 1 ip_value = 'String'
|
|
ip_abap_type = lc_typekind_string ).
|
|
lo_worksheet->set_cell( ip_column = 'B' ip_row = 2 ip_value = ' String with leading spaces'
|
|
ip_data_type = lc_typekind_s_ls ).
|
|
lo_worksheet->set_cell( ip_column = 'B' ip_row = 3 ip_value = ' Negative Value'
|
|
ip_abap_type = lc_typekind_string ).
|
|
lo_worksheet->set_cell( ip_column = 'C' ip_row = 1 ip_value = 'Packed'
|
|
ip_abap_type = lc_typekind_string ).
|
|
lo_worksheet->set_cell( ip_column = 'C' ip_row = 2 ip_value = '50000.01-'
|
|
ip_abap_type = lc_typekind_packed ).
|
|
lo_worksheet->set_cell( ip_column = 'D' ip_row = 1 ip_value = 'Number with Percentage'
|
|
ip_abap_type = lc_typekind_string ).
|
|
lo_worksheet->set_cell( ip_column = 'D' ip_row = 2 ip_value = '0 %'
|
|
ip_abap_type = lc_typekind_num ).
|
|
lo_worksheet->set_cell( ip_column = 'E' ip_row = 1 ip_value = 'Date'
|
|
ip_abap_type = lc_typekind_string ).
|
|
lo_worksheet->set_cell( ip_column = 'E' ip_row = 2 ip_value = '20110831'
|
|
ip_abap_type = lc_typekind_date ).
|
|
lo_worksheet->set_cell( ip_column = 'B' ip_row = 3 ip_value = 'Positive Value'
|
|
ip_abap_type = lc_typekind_string ).
|
|
lo_worksheet->set_cell( ip_column = 'C' ip_row = 3 ip_value = '5000.02'
|
|
ip_abap_type = lc_typekind_packed ).
|
|
lo_worksheet->set_cell( ip_column = 'D' ip_row = 3 ip_value = '50 %'
|
|
ip_abap_type = lc_typekind_num ).
|
|
|
|
WHILE lv_count <= 15.
|
|
lv_value = lv_count.
|
|
CONCATENATE 'Positive Value with' lv_value 'Digits' INTO lv_value SEPARATED BY space.
|
|
lo_worksheet->set_cell( ip_column = 'B' ip_row = lv_count ip_value = lv_value
|
|
ip_abap_type = lc_typekind_string ).
|
|
lo_worksheet->set_cell( ip_column = 'C' ip_row = lv_count ip_value = lv_packed
|
|
ip_abap_type = lc_typekind_packed ).
|
|
CONCATENATE 'Positive Value with' lv_value 'Digits formated as string' INTO lv_value SEPARATED BY space.
|
|
lo_worksheet->set_cell( ip_column = 'D' ip_row = lv_count ip_value = lv_value
|
|
ip_abap_type = lc_typekind_string ).
|
|
lo_worksheet->set_cell( ip_column = 'E' ip_row = lv_count ip_value = lv_packed
|
|
ip_abap_type = lc_typekind_string ).
|
|
lv_packed = lv_packed * 10.
|
|
lv_count = lv_count + 1.
|
|
ENDWHILE.
|
|
|
|
column_dimension = lo_worksheet->get_column_dimension( ip_column = 'A' ).
|
|
column_dimension->set_auto_size( abap_true ).
|
|
column_dimension = lo_worksheet->get_column_dimension( ip_column = 'B' ).
|
|
column_dimension->set_auto_size( abap_true ).
|
|
column_dimension = lo_worksheet->get_column_dimension( ip_column = 'C' ).
|
|
column_dimension->set_auto_size( abap_true ).
|
|
column_dimension = lo_worksheet->get_column_dimension( ip_column = 'D' ).
|
|
column_dimension->set_auto_size( abap_true ).
|
|
column_dimension = lo_worksheet->get_column_dimension( ip_column = 'E' ).
|
|
column_dimension->set_auto_size( abap_true ).
|
|
|
|
|
|
|
|
|
|
*** Create output
|
|
lcl_output=>output( lo_excel ).</source>
|
|
</PROG>
|