Function
GetXMLNode(anXML, aNode)
'Load
XML Output as an XMLObject
Set xmlDoc = XMLUtil.CreateXML() xmlDoc.Load anXML
Set vXMLElements = xmlDoc.ChildElementsByPath(aNode)
GetXMLNode = vXMLElements.Item(1).Value
Set xmlDoc = Nothing
Set vXMLElements = Nothing
End Function
No comments:
Post a Comment