SAP将内表生成XML作为excel保存到FTP

shirobert

　　最近遇到了一个需求，在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 STRUCTURE  TO ."动态绑定表格内容。
      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'.
          WRITE  TO l_text.
          l_value = l_text.
        WHEN OTHERS.
*          l_value = .    "Without conversion exit
          WRITE  TO 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上。完成数据的上传。