Private Sub ListXML()
\nDim sFile As String
\nDim i As Long, kat As String
\ni = 1
\nkat = „c:\\batman\\*.xml”
\n
\nsFile = Dir(kat) '<=== change to suit<\/p>\n
Do While sFile <> „”<\/p>\n
ActiveWorkbook.XMLImport URL:= _
\nsFile, ImportMap:=Nothing, Overwrite:=True, Destination:=Cells(i, „A”)<\/p>\n
ActiveWorkbook.XmlMaps(1).Delete
\n'Zawsze usuwamy pierwsz\u0105 map\u0119. Po usuni\u0119ciu mapy, ich numeracja si\u0119 zmienia.<\/p>\n
On Error Resume Next<\/p>\n
sFile = Dir<\/p>\n
On Error GoTo 0
\ni = i + 1<\/p>\n
Loop<\/p>\n
End Sub<\/p>\n","protected":false},"excerpt":{"rendered":"
Private Sub ListXML() Dim sFile As String Dim i As Long, kat As String i = 1 kat = „c:\\batman\\*.xml”<\/p>\n