ABAP XML转换EXCEL并下载到指定路径
时间: 2024-06-04 14:11:52 浏览: 182
以下是将XML转换为Excel并下载到指定路径的ABAP代码示例:
DATA: xml_string TYPE string,
xml_table TYPE STANDARD TABLE OF xml_tab,
excel_data TYPE STANDARD TABLE OF tab512,
excel_file TYPE string,
file_path TYPE string,
xml_parser TYPE REF TO cl_xml_parser.
*将XML文件读入字符串
CALL FUNCTION 'GUI_UPLOAD'
EXPORTING
filename = 'C:\temp\input.xml'
filetype = 'ASC'
IMPORTING
filelength = xml_length
TABLES
data_tab = xml_string.
*将XML字符串解析为表
CREATE OBJECT xml_parser.
CALL METHOD xml_parser->parse
EXPORTING
xml_source = xml_string
RECEIVING
parsed_xml = xml_table.
*将XML表转换为Excel表
LOOP AT xml_table INTO DATA(xml_row).
APPEND VALUE #( column1 = xml_row-column1
column2 = xml_row-column2
column3 = xml_row-column3 ) TO excel_data.
ENDLOOP.
*将Excel表写入文件
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
filename = 'output.xls'
filetype = 'ASC'
TABLES
data_tab = excel_data.
*将Excel文件复制到指定的路径
file_path = 'C:\temp\output.xls'.
CALL FUNCTION 'WS_UPLOAD'
EXPORTING
filename = 'output.xls'
filetype = 'BIN'
TABLES
data_tab = excel_data.
CALL FUNCTION 'GUI_DELETE_FILE'
EXPORTING
filename = 'output.xls'.
CALL FUNCTION 'GUI_UPLOAD'
EXPORTING
filename = file_path
filetype = 'BIN'
TABLES
data_tab = excel_data.
*将Excel文件下载到本地
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
filename = file_path
filetype = 'BIN'
TABLES
data_tab = excel_data.
*删除Excel表
FREE excel_data.
*释放XML解析器
IF xml_parser IS BOUND.
CALL METHOD xml_parser->free.
ENDIF.
阅读全文
相关推荐













