Excel_VBA 读取XML

''读取xml文件，返回root节点
Function readXmlFile(ByVal fileName As String) As Object
Dim xmlFile As Object
Dim root As Object

Set xmlFile = CreateObject("MSXml2.DOMDocument")
xmlFile.async = False
xmlFile.Load (fileName) 'XML文件名，带上路径，比如c:\bbb.XML

xmlFile.setProperty "SelectionLanguage", "XPath" '
Set root = xmlFile.DocumentElement
'Set root = xmlFile.getElementsByTagName("TestItem")
Set readXmlFile = root
End Function

这样调用Set nodeStart = readXmlFile(arrFiles(i))