讲IDOC生成的XML文件转化为excel文件的方法

本文主要是介绍讲IDOC生成的XML文件转化为excel文件的方法，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！

官方教程：http://help.sap.com/saphelp_erp2004/helpdata//EN/e3/7d4719ca581441b6841f1054ff1326/frameset.htm

关于转化的命令和基本格式都在里面

Command Overview

Command	Description
<tt:apply ...>	Calls a subtemplate
<tt:assign ...>	Assigns a value to data
<tt:attribute ...>	Defines a non-literal attribute
<tt:call ...>	Calls an ST program
<tt:clear ...>	Initializes data
<tt:cond ...>	Defines a conditioned transformation
<tt:cond-var ...>	Defines a condition for variables
<tt:context ...>	Defines a context for local data roots in subtemplates
<tt:copy ...>	Transforms any data objects to asXML
<tt:d-cond ...>	Defines a conditioned transformation for deserialization
<tt:deserialize ...>	Defines the direction of the transformation
<tt:empty ...>	Defines an empty pattern
<tt:group ...>	Defines a group of conditioned transformations
<tt:include ...>	Includes an ST program
<... tt:lax=?...? ...>	Controls the name comparison of literal XML elements
<tt:loop ...>	Transforms internal tables
<tt:namespace ...>	Declares a namespace
<tt:parameter ...>	Declares a parameter
<tt:read ...>	Reads a variable from XML
<tt:ref ...>	Sets the current node in the own context
<... tt:ref=?...? ...>	Sets the current node for a literal XML element
<tt:root ...>	Declares a data root
<tt:serialize ...>	Defines the direction of the transformation
<tt:s-cond ...>	Defines a conditioned transformation for the serialization
<tt:skip ...>	Skips XML elements during deserialization
<tt:switch ...>	Defines a case distinction between conditioned transformations
<tt:switch-var ...>	Defines a case distinction for variables
<tt:template ...>	Defines a main template or subtemplates
<tt:text ...>	Explicitly identifies a literal text
<tt:transform ...>	Root element of an ST program
<tt:value ...>	Transforms elementary data objects
<... tt:value-ref =?...? ...>	Short form for transformation of elementary data objects inliteral XML elements
<tt:variable ...>	Declares a variable
<tt:with-parameter ...>	Passes values to called ST programs and subtemplates
<tt:with-root ...>	Passes data nodes to called ST programs and subtemplates
<tt:write ...>	Writes the value of a variable to XML

下面写一个具体的实例

程序实现把转换好的文件保存为xml

ZTEST_GLB_TRANS

*&---------------------------------------------------------------------*
*& Report  ZTEST_GLB_TRANS
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ztest_glb_trans.
TYPES: BEGIN OF xml_line,
data(100) TYPE c,
END OF xml_line.

DATA:
lv_xml TYPE string,
it_xml TYPE TABLE OF xml_line.

DATA: BEGIN OF l_header,
        title1(100)   TYPE c,
        title2(100)   TYPE c,
        cus_name(100) TYPE c,
        cus_val(100)  TYPE c,
        con_date(100) TYPE c,
        con_val(100)  TYPE c,
        con_term(100) TYPE c,
        con_tval(100) TYPE c,
        quo_date(100) TYPE c,
        quo_comm(100)  TYPE c,
        rep_date(100) TYPE c,
        quo_no(100)   TYPE c,
        qty(100)  TYPE c,
        cond(100) type c,
        type(100) type c,
        des(100) type c,
        amou(100) type c,
        Unit(100) type c,
END OF l_header.

DATA td_header LIKE TABLE OF l_header.

DATA: BEGIN OF l_item,
        item_type      type c,  "Package = ‘P’; Offer = ‘O’; Good = ‘G’; Subtotal = ‘S’
        mat_des(100)   TYPE c,
        mat_num(100)   type c,
        qty(100)       TYPE c,
        cond(100)      type c,
        con_des(100)   type c,
        amou(100)      type c,
        Unit(100)      type c,
END OF l_item.
DATA td_item LIKE TABLE OF l_item.

PERFORM get_data.

* call XML
CALL TRANSFORMATION ZMPS_PRICING_VALIDATE_XML
SOURCE it_header = td_header
       it_item_data = td_item
RESULT XML  lv_xml.

CALL FUNCTION 'SCMS_STRING_TO_FTEXT'
  EXPORTING
    text      = lv_xml
  TABLES
    ftext_tab = it_xml.
***download
CALL FUNCTION 'GUI_DOWNLOAD'
  EXPORTING
    filename = 'C:\Test01.xls'
    filetype = 'BIN'
  TABLES
    data_tab = it_xml.

WRITE:lv_xml.
*&---------------------------------------------------------------------*
*&      Form  GET_DATA
*&---------------------------------------------------------------------*
FORM get_data .
    l_header-title1   = 'Managed Print Services'.
    l_header-title2   = 'Pricing Validation Report'.
    l_header-cus_name = 'Customer'.
    l_header-cus_val  = 'ABC Ltd'.
    l_header-con_date = 'Contract Start Date'.
    l_header-con_val  = '8/1/2011'.
    l_header-con_term = 'Contract Term (months)'.
    l_header-con_tval = '48'.
    l_header-quo_date = 'Quote Date: 07/01/2011'.
    l_header-quo_comm  = 'Valid for 45 days'.
    l_header-rep_date = 'Report Date 07/01/2011'.
    l_header-quo_no   = 'Quote Ref: 123-456'.
    l_header-qty  = 'Qty'.
    l_header-cond = 'Condition'.
    l_header-type = 'type'.
    l_header-des = 'Discription'.
    l_header-amou = 'Amounts'.
    l_header-Unit = 'Unit'.
  APPEND l_header TO td_header.

  CLEAR l_item.
  l_item-mat_des = 'Package'.
  l_item-item_type = 'P'.
  APPEND l_item TO td_item.
  CLEAR l_item.

  l_item-mat_des = 'HP Hardware support'.
  l_item-item_type = 'O'.
  APPEND l_item TO td_item.
  CLEAR l_item.

  l_item-mat_des = 'HP LaserJet 4345MFP Printer'.
  l_item-mat_num = 'Q3942A'.
  l_item-qty    = '15'.
  l_item-cond   = 'ZA73'.
  l_item-con_des   = 'Gross Monthly Base Price (Amount Based)'.
  l_item-amou   = '1200'.
  l_item-unit   = 'Dolllar'.
  APPEND l_item TO td_item.
  CLEAR l_item.

  l_item-cond   = 'YA9F'.
  l_item-con_des   = 'Item Discount on Base Price (Amount Based)'.
  l_item-amou   = '200'.
  l_item-unit   = 'Dolllar'.
  APPEND l_item TO td_item.
  CLEAR l_item.

  l_item-cond   = 'ZM97'.
  l_item-con_des   = 'Uplift on Unit Color Click Price'.
  l_item-amou   = '0'.
  l_item-unit   = 'Dollar Amt Per 1000'.
  APPEND l_item TO td_item.
  CLEAR l_item.

  l_item-con_des   = 'Sub Totals'.
  l_item-amou   = '1200'.
  l_item-item_type   = 'S'.
  APPEND l_item TO td_item.
  CLEAR l_item.

  l_item-con_des   = 'Tax'.
  l_item-amou   = '200'.
  l_item-item_type   = 'S'.
  APPEND l_item TO td_item.
  clear l_item.
ENDFORM.                    " GET_DATA