SAP将内表生成XML作为excel保存到FTP
最近遇到了一个需求，在sap后台按月将数据导入到ftp服务器上，并保存为excel文件。之前的做法是将文件生成到本地，然后上传到sap服务器上。但是sap服务器后台运行程序的时候并不存在本地路径，因此要求直接将内表保存为excel格式传输到ftp上。据我了解，sap并不支持ole的传输，于是就想到使用xml方式传输到ftp上，然后将扩展名保存为*.xls同样可以使用excel打开。于是对程序进行了如下的改写。1.创建XML文件
l_ixml = cl_ixml=>create( ).
* Creating the dom object model
l_document = l_ixml->create_document( ).
* Create root node 'Workbook'
l_element_root= l_document->create_simple_element(
name = 'Workbook'
* uri= 'urn:schemas-microsoft-com:office:spreadsheet'
parent = l_document ).
l_element_root->set_attribute(
name = 'xmlns'
value = 'urn:schemas-microsoft-com:office:spreadsheet' ).
ns_attribute = l_document->create_namespace_decl(
name = 'ss'
prefix = 'xmlns'
uri = 'urn:schemas-microsoft-com:office:spreadsheet' ).
l_element_root->set_attribute_node( ns_attribute ).
ns_attribute = l_document->create_namespace_decl(
name = 'x'
prefix = 'xmlns'
uri = 'urn:schemas-microsoft-com:office:excel' ).
l_element_root->set_attribute_node( ns_attribute ).
* Create node for document properties.
r_element_properties = l_document->create_simple_element(
name = 'DocumentProperties'
parent = l_element_root ).
l_value = sy-uname.
l_document->create_simple_element(
name = 'Author'
value = l_value
parent = r_element_properties).
2.创建excel表名
r_worksheet = l_document->create_simple_element(
name = 'Worksheet '
parent = l_element_root ).
r_worksheet->set_attribute_ns(
name = 'Name'
prefix = 'ss'
value = table_name ).
* table
*
r_table = l_document->create_simple_element(
name = 'Table'
parent = r_worksheet ).
3.创建column
因为xml格式的excel为先column，然后再每个row下存在cell，所以先循环输出column。
LOOP AT i_table INTO wa_tab.
r_column = l_document->create_simple_element(
name = 'Column'
parent = r_table ).
endloop.
4.row和内容类型
r_row = l_document->create_simple_element(
name = 'Row'
parent = r_table ).
r_cell = l_document->create_simple_element(
name = 'Cell'
parent = r_row ).
r_data = l_document->create_simple_element(
name = 'Data'
value = '人员基本信息'
parent = r_cell ).
r_data->set_attribute_ns(
name = 'Type'
prefix = 'ss'
value = 'String' ).
将内表填写到excel表格内
loop at i_table ASSIGNING .
i_index = i_index + 1.
l_index = i_index.
r_row = l_document->create_simple_element(
name = 'Row'
parent = r_table ).
r_cell = l_document->create_simple_element(
name = 'Cell'
parent = r_row ).
r_data = l_document->create_simple_element(
name = 'Data'
value = l_index
parent = r_cell ).
r_data->set_attribute_ns(
name = 'Type'
prefix = 'ss'
value = 'String' ).
desc_struc ?= cl_abap_typedescr=>describe_by_data( i_table )."因为内表的每列数据要填写到excel的每行内。所以使用该方法将内表转换。
*perform get_cell using t_itab-bukrs.
loop at desc_struc->components ASSIGNING .
ASSIGN COMPONENT -name OF STRUCTURETO ."动态绑定表格内容。
CHECK sy-subrc IS INITIAL.
r_cell = l_document->create_simple_element(
name = 'Cell'
parent = r_row ).
l_value = -name.
l_type= -type_kind. "fieldname, scrtext_m etc.
CASE l_type.
WHEN 'I' OR 'P' OR 'F' OR 'N'.
l_type = 'String'.
l_value = .
CONDENSE l_value NO-GAPS.
WHEN 'D' OR 'T'.
l_type = 'String'.
WRITETO l_text.
l_value = l_text.
WHEN OTHERS.
* l_value = . "Without conversion exit
WRITETO l_text.
SHIFT l_text LEFT DELETING LEADING space.
l_value = l_text.
l_type = 'String'.
ENDCASE.
r_data = l_document->create_simple_element(
name = 'Data'
value = l_value
parent = r_cell ).
r_data->set_attribute_ns(
name = 'Type'
prefix = 'ss'
value = l_type ).
endloop.
ENDLOOP.
xml生成输出
l_streamfactory = l_ixml->create_stream_factory( ).
* Connect internal XML table to stream factory
l_ostream = l_streamfactory->create_ostream_itable( table = l_xml_table ).
* rendering the document
l_renderer = l_ixml->create_renderer( ostream= l_ostream
document = l_document ).
l_rc = l_renderer->render( ).
* saving the xml document
l_xml_size = l_ostream->get_num_written_raw( ).
最后 使用上传方法绑定内表名称，完成上传。
CALL FUNCTION 'FTP_R3_TO_SERVER'
EXPORTING
handle = hdl
fname = 'Excle.xls'"此处将xml文件作为excel格式保存，不影响访问。
blob_length = l_xml_size
TABLES
blob = l_xml_table.
至此，通过xml完成直接将内表中的数据作为文件保存到ftp上。完成数据的上传。
页:
[1]