Option
Explicit
Public
Sub
XML()
Const
PATH
As
String
= "D:\Test\"
Dim
xmlDoc
As
Object
Dim
xmlNode
As
Object
Dim
rngCell
As
Excel.Range
Dim
strFilename
As
String
Set
rngCell = Worksheets(1).Range(
"A1"
)
Set
xmlDoc = CreateObject(
"Microsoft.XMLDOM"
)
Call
xmlDoc.setProperty(
"SelectionLanguage"
,
"XPath"
)
strFilename = Dir(PATH &
"*.xml"
)
Do
While
strFilename <>
""
If
xmlDoc.Load(PATH & strFilename)
Then
For
Each
xmlNode
In
xmlDoc.getElementsByTagName(
"ID"
)
rngCell.Value = xmlNode.Text
Set
rngCell = rngCell.Offset(RowOffset:=1)
Next
End
If
strFilename = Dir()
Loop
End
Sub