qtp 如何把XML导成EXCEL （各位帮忙）

lhjtc8257 · 发表于 2009-8-7 13:03:56

xml 文件：
<Message>
<Head>
      <Id>001</Id>
      <From>上海/From>
      <To>新加坡</To>
      <Cc>test<Cc/>
</Head>
<Body>
      <INFO>
         <NAME>紫龙</NAME>
         <NO>001</NO>
      </INFO>
      <INFO>
         <NAME>星矢</NAME>
         <NO>002</NO>
      </INFO>
   </Body>
</Message>

如何把这个 XML导出EXCEL成：
001 上海新加坡紫龙 001
001 上海新加坡星矢 002

急求方法，非常困混，

dreamever · 发表于 2009-8-7 13:30:35

你这个代码的工作量可不小呢……
首先要用VBS读取xml的文件，将xml文件的内容组织成一个二维数组
其次还是用vbs把刚才得到的那个二维数组写进excel。
而且那个xml文件组织的好象也有问题，比如说从xml文件中，根本看不出来为什么紫龙和要上海放在一行，如果紫龙和上海都属于同一个对象的属性，那么应该把他们放在同一个节点下才对哈
具体的代码实在是没精力去写了，等待高人帖代码吧。

[ 本帖最后由 dreamever 于 2009-8-7 13:33 编辑 ]

lhjtc8257 · 发表于 2009-8-7 13:47:32

是这样的，上海市头信息，所有body的信息使用的头信息都一样

如果解析到excel中，头就重复导出

那请问可以是实现这样吗：
Id 001
From 上海
to 新加坡
name 星矢
name 紫龙

lhjtc8257 · 发表于 2009-8-7 14:23:31

如何判断一个节点是文本的或则仍然是节点？求解

lhjtc8257 · 发表于 2009-8-7 17:53:21

有高人解答下吗？？？很着急

fan730 · 发表于 2009-8-7 20:37:15

从Excel 导到 XML还好弄点，像楼主要求的这种反方向就困难多了。

lantianwei · 发表于 2009-8-7 23:23:04

http://www.51testing.com/html/62/n-76062.html

lhjtc8257 · 发表于 2009-8-8 00:53:10

如果只要提取
Id 001
From 上海
to 新加坡
name 星矢
name 紫龙

可以实现吗？？？请求帮忙！

dabeixiong · 发表于 2009-8-8 02:19:45

有点晚了~随便写写睡觉去了~没写啥注释自己研究去吧，我对xml也不老熟悉的-.-!

Dim xmlDoc,Head
Set xmlDoc = CreateObject("Microsoft.XMLDOM")
xmlDoc.load "D:\QTP\Test.xml"

Set Root = xmlDoc.documentElement
Set Childs = Root.childNodes
Set Head = Childs.item(0)
Set Body = Childs.item(1)
Set varID = Head.childNodes.item(0)
Set varFrom = Head.childNodes.item(1)
Set varTo = Head.childNodes.item(2)
Set varCc = Head.childNodes.item(3)

i = 1
For Each BodyChild In Body.childNodes
Set varName = BodyChild.childNodes.item(0)
Set varNo = BodyChild.childNodes.item(1)

DataTable.SetCurrentRow(i)
DataTable.Value(1, dtGloabalSheet) = varID.firstChild.nodeValue
DataTable.Value(2, dtGloabalSheet) = varFrom.firstChild.nodeValue
DataTable.Value(3, dtGloabalSheet) = varTo.firstChild.nodeValue
DataTable.Value(4, dtGloabalSheet) = varCc.firstChild.nodeValue
DataTable.Value(5, dtGloabalSheet) = varName.firstChild.nodeValue
DataTable.Value(6, dtGloabalSheet) = varNo.firstChild.nodeValue
i = i + 1
Next

DataTable.Export ("D:\QTP\Test.xls")

lhjtc8257 · 发表于 2009-8-8 11:09:29

OK 谢谢啊，如果需要定位到一个<NAME>星矢</NAME>

把他读出来，当配置信息用，最简单的方法是？？？

liujinkui · 发表于 2009-8-8 14:00:33

关注

nbkhic · 发表于 2009-8-8 17:33:46

我是直接在excel中写了个模版，然后导出XML文件。然后写了一些操作XML的函数来写XML文件的……

kaidong12 · 发表于 2009-8-17 21:12:19

Excel可以打开XML的，说明已经有现成方法了，看能不能用vbs调用一下啊

hsjzfling · 发表于 2009-8-18 11:51:51

GetNodeValue "D:\test.xml", "Id"
GetNodeValue "D:\test.xml", "From"
GetNodeValue "D:\test.xml", "To"
GetNodeValue "D:\test.xml", "NAME"

Function GetNodeValue (ByVal strXmlFilePath,ByVal xmlNodeName)
Dim xmlDoc,xmlRoot
Set xmlDoc = CreateObject("Microsoft.XMLDOM")
xmlDoc.async = False
xmlDoc.load strXmlFilePath
If xmlDoc.parseError.errorCode <> 0 Then
MsgBox "Wrong XML Format, caused by "& Chr(13) & xmlDoc.parseError.reason
Exit Function
End If
Set xmlElem = xmlDoc.getElementsByTagName(xmlNodeName)
For i = 0 To xmlElem.length - 1
Set xmlItem = xmlElem.item(i).ChildNodes.Item(0)
MsgBox xmlNodeName&" "&xmlItem.nodeValue
Next
Set xmlItem = Nothing
Set xmlElem = Nothing
Set xmlDoc = Nothing
End Function

复制代码

取到值之后写入Excel就不用我再多写了吧

		自动登录	找回密码
密码			(注-册)加入51Testing

[求助] qtp 如何把XML导成EXCEL （各位帮忙）

相关帖子

站长推荐 /1

[求助] qtp 如何 把XML导成EXCEL （各位帮忙）

相关帖子

站长推荐 /1

[求助] qtp 如何把XML导成EXCEL （各位帮忙）