通过XML转换下载.xlsx格式的excel文件

admin管理员组

文章数量:1533081

2024年5月14日发(作者：)

CALL METHOD cl_gui_frontend_services=>file_save_dialog

EXPORTING

window_title = l_title

default_extension = 'XLSX'

default_file_name = ''

* with_encoding =

* file_filter =

initial_directory = l_path

prompt_on_overwrite = 'X'

CHANGING

filename = l_filename

path = l_path

fullpath = l_fullpath

user_action = l_result

* file_encoding =

EXCEPTIONS

cntl_error = 1

error_no_gui = 2

not_supported_by_gui = 3

OTHERS = 4.

IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ELSE.

c_filename = l_filename. "l_path.

ENDIF.

ENDFORM.

*&---------------------------------------------------------------------*

*& Form EXPORT_TO_EXCEL

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

* -->P_L_FILENAME text

*----------------------------------------------------------------------*

FORM export_to_excel USING i_filename.

DATA: l_length TYPE i,

l_xml_stream TYPE xml_rawdata,

l_flavour TYPE string,

l_version TYPE string.

DATA: lr_alv_new_data TYPE REF TO data,

lr_result_data TYPE REF TO cl_salv_ex_result_data_table.

DATA: ls_xml_choice TYPE if_salv_bs_xml=>s_type_xml_choice,

xml TYPE xstring.

GET REFERENCE OF git_vbap INTO lr_alv_new_data.

lr_result_data = cl_salv_ex_util=>factory_result_data_table(

* t_selected_rows = lt_lvc_row

* t_selected_columns = lt_sel_cols

* t_selected_cells = lt_sel_cells

r_data = lr_alv_new_data

* s_layout = lr_grid->m_cl_variant->ms_layout

t_fieldcatalog = git_fcat

* t_sort = lr_grid->m_cl_variant->mt_sort

* t_filter = lr_grid->m_cl_variant->mt_filter

* t_hyperlinks = lr_grid->mt_hyperlinks

* s_current_cell = ls_cur_cell

* hyperlink_entry_column = ls_hyper_entry

* dropdown_entry_column = ls_dropdown_entry

* r_top_of_list = lr_top_of_list

* r_end_of_list = lr_end_of_list

* t_dropdown_values = lt_drdn

).

CASE cl_salv_bs_a_xml_base=>get_version( ).

WHEN if_salv_bs_xml=>version_25.

l_version = if_salv_bs_xml=>version_25.

WHEN if_salv_bs_xml=>version_26.

l_version = if_salv_bs_xml=>version_26. " = 2.6

ENDCASE.

l_flavour = if_salv_bs_c_tt=>c_tt_xml_flavour_export. "Flavor for Complete ALV XML

CALL METHOD cl_salv_bs_tt_util=>if_salv_bs_tt_util~transform

EXPORTING

xml_type = if_salv_bs_xml=>c_type_xlsx "XLSX

xml_version = l_version

r_result_data = lr_result_data

xml_flavour = l_flavour

本文标签： 格式转换下载文件