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

Merge branch 'master' of https://github.com/gregorwolf/abap2xlsx

Browse Source
This commit is contained in:
Gregor Wolf 2019-02-11 17:42:40 +01:00
commit e29c54d3d1
1 changed files with 23 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
src/zdemo_excel15.prog.abap
View File

@ -17,6 +17,8 @@ TYPES:
input TYPE string, input TYPE string,
END OF t_demo_excel15. END OF t_demo_excel15.
CONSTANTS: sheet_with_date_formats TYPE string VALUE '24_Sheets_with_different_default_date_formats.xlsx'.
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.
@ -24,9 +26,9 @@ DATA: excel TYPE REF TO zcl_excel,
DATA: ex TYPE REF TO zcx_excel, DATA: ex TYPE REF TO zcx_excel,
msg TYPE string. msg TYPE string.
DATA: lv_file TYPE xstring, DATA: lv_file TYPE xstring,
lv_bytecount TYPE i, lv_bytecount TYPE i,
lt_file_tab TYPE solix_tab. lt_file_tab TYPE solix_tab.
DATA: lv_workdir TYPE string, DATA: lv_workdir TYPE string,
output_file_path TYPE string, output_file_path TYPE string,
@ -39,7 +41,8 @@ DATA: worksheet TYPE REF TO zcl_excel_worksheet,
column TYPE zexcel_cell_column VALUE 1, column TYPE zexcel_cell_column VALUE 1,
col_str TYPE zexcel_cell_column_alpha, col_str TYPE zexcel_cell_column_alpha,
row TYPE int4 VALUE 1, row TYPE int4 VALUE 1,
value TYPE zexcel_cell_value. value TYPE zexcel_cell_value,
converted_date TYPE d.
DATA: DATA:
lt_files TYPE TABLE OF t_demo_excel15. lt_files TYPE TABLE OF t_demo_excel15.
@ -73,6 +76,8 @@ INITIALIZATION.
APPEND INITIAL LINE TO lt_files ASSIGNING <wa_files>. APPEND INITIAL LINE TO lt_files ASSIGNING <wa_files>.
<wa_files>-input = '13_MergedCells.xlsx'. <wa_files>-input = '13_MergedCells.xlsx'.
APPEND INITIAL LINE TO lt_files ASSIGNING <wa_files>. APPEND INITIAL LINE TO lt_files ASSIGNING <wa_files>.
<wa_files>-input = sheet_with_date_formats.
APPEND INITIAL LINE TO lt_files ASSIGNING <wa_files>.
<wa_files>-input = '31_AutosizeWithDifferentFontSizes.xlsx'. <wa_files>-input = '31_AutosizeWithDifferentFontSizes.xlsx'.
START-OF-SELECTION. START-OF-SELECTION.
@ -96,7 +101,8 @@ START-OF-SELECTION.
highest_column = worksheet->get_highest_column( ). highest_column = worksheet->get_highest_column( ).
highest_row = worksheet->get_highest_row( ). highest_row = worksheet->get_highest_row( ).
WRITE: 'Highest column: ', highest_column, 'Highest row: ', highest_row. WRITE: / 'Filename ', <wa_files>-input.
WRITE: / 'Highest column: ', highest_column, 'Highest row: ', highest_row.
WRITE: /. WRITE: /.
WHILE row <= highest_row. WHILE row <= highest_row.
@ -116,6 +122,18 @@ START-OF-SELECTION.
column = 1. column = 1.
row = row + 1. row = row + 1.
ENDWHILE. ENDWHILE.
IF <wa_files>-input = sheet_with_date_formats.
worksheet->get_cell(
EXPORTING
ip_column = 'A'
ip_row = 4
IMPORTING
ep_value = value
).
WRITE: / 'Date value using get_cell: ', value.
converted_date = zcl_excel_common=>excel_string_to_date( ip_value = value ).
WRITE: / 'Converted date: ', converted_date.
ENDIF.
ENDIF. 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->write_file( excel ). lv_file = lo_excel_writer->write_file( excel ).