Option Explicit

'http://www.xmlfiles.com/dom/dom_access.asp

Sub GetXML()
Dim arFiles, x, lRow&, c As Range
arFiles = Application.GetOpenFilename("XML files,*.xml", , "Выберите файлы", , True)
If Not IsArray(arFiles) Then Exit Sub
lRow = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count
For Each x In arFiles
         For Each c In [b1:e1].SpecialCells(xlCellTypeConstants)
             Cells(lRow, c.Column) = FindTag(x, (c))
         Next
         lRow = lRow + 1
Next
End Sub

Private Function FindTag$(ByRef ff, ByRef sTag$)

With CreateObject("Microsoft.XMLDOM")
.async = "false"
.Load (ff)
FindTag = .getElementsByTagName(sTag).Item(0).Text
End With

End Function