Private Sub ListXML()
Dim sFile As String
Dim i As Long, kat As String
i = 1
kat = „c:\batman\*.xml”
sFile = Dir(kat) '<=== change to suit
Do While sFile <> „”
ActiveWorkbook.XMLImport URL:= _
sFile, ImportMap:=Nothing, Overwrite:=True, Destination:=Cells(i, „A”)
ActiveWorkbook.XmlMaps(1).Delete
'Zawsze usuwamy pierwszą mapę. Po usunięciu mapy, ich numeracja się zmienia.
On Error Resume Next
sFile = Dir
On Error GoTo 0
i = i + 1
Loop
End Sub