我正在使用以下代码获取xml中“DistanceUnit”元素的值:
Dim xmlDoc As MSXML2.DOMDocument60
Dim xmlElement As MSXML2.IXMLDOMElement
Set xmlDoc = New MSXML2.DOMDocument60
xmlDoc.async = False
xmlDoc.validateOnParse = False
xmlDoc.LoadXML strResponse
Set xmlElement = xmlDoc.DocumentElement
Set curNode = xmlElement.SelectSingleNode("/Response/ResourceSets/ResourceSet/Resources/Route/DistanceUnit")
调试时我发现curNode没什么问题。我不明白为什么。 当我使用itterative代码时,似乎工作正常:
Set xmlRoot = xmlDoc.DocumentElement
Set xmlChildren = xmlRoot.ChildNodes
For Each xmlTemplate In xmlChildren
If xmlTemplate.nodeName = "ResourceSets" Then
MsgBox "found!"
Exit For
End If
Next xmlTemplate
我不想使用itterative代码,因为我知道元素的确切xpath ...
此代码也可以,但我只想使用xpath:
Set curNode = xmlRoot.ChildNodes(6).ChildNodes(0).ChildNodes(1).ChildNodes(0).ChildNodes(2)
MsgBox curNode.Text
谢谢, 李
我的xml:
<Response xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns="http://schemas.microsoft.com/search/local/ws/rest/v1">
....
<StatusCode>200</StatusCode>
<StatusDescription>OK</StatusDescription>
<AuthenticationResultCode>ValidCredentials</AuthenticationResultCode>
<ResourceSets>
<ResourceSet>
<EstimatedTotal>1</EstimatedTotal>
<Resources>
<Route>
.....
<DistanceUnit>Kilometer</DistanceUnit>
.....
</Route>
</Resources>
</ResourceSet>
</ResourceSets>
</Response>
答案 0 :(得分:2)
尝试为默认名称空间声明指定名称空间前缀(有关详细信息,请参阅this KB article):
Set xmlDoc = New MSXML2.DOMDocument60
xmlDoc.async = False
xmlDoc.validateOnParse = False
xmlDoc.setProperty "SelectionNamespaces", "xmlns:a='http://schemas.microsoft.com/search/local/ws/rest/v1'"
xmlDoc.LoadXML strResponse
Set xmlElement = xmlDoc.DocumentElement
Set curNode = xmlElement.SelectSingleNode("/a:Response/a:ResourceSets/a:ResourceSet/a:Resources/a:Route/a:DistanceUnit")