pobieranie do 1 arkusza z wielu plików XML

Witam Wszystkich..

jak w temacie motam się trochę z takim problemem.

w folderze C:\Dane mam kilkanaście plików xml z danymi i chciałem pobrać dane z każdego z nich do jednego arkusza.

na szybko mieszając to co sam wymyśliłem, to co podejrzałem na forum i to co wygenerował rejestrator makr zrobiłem coś takiego:


Sub PobierzZXMLi()

    c = 1
    k = 1
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFSO.GetFolder("C:\Dane\")
    Set colFiles = objFolder.Files
   
   
For Each objFile In colFiles
        sPlik = objFile.Name
       
            With ActiveSheet.QueryTables.Add(Connection:="FINDER;C:\Dane\" & sPlik, Destination:=Cells(c, 1))
 
 
                   .Name = "table" & k
                  .FieldNames = True
                  .RowNumbers = False
                  .FillAdjacentFormulas = False
                  .PreserveFormatting = True
                  .RefreshOnFileOpen = False
                  .BackgroundQuery = True
                  .RefreshStyle = xlInsertDeleteCells
                  .SavePassword = False
                  .SaveData = True
                  .AdjustColumnWidth = True
                  .RefreshPeriod = 0
                  .WebSelectionType = xlAllTables
                  .WebFormatting = xlWebFormattingNone
                  .WebPreFormattedTextToColumns = True
                  .WebConsecutiveDelimitersAsOne = True
                  .WebSingleBlockTextImport = False
                  .WebDisableDateRecognition = False
                  .WebDisableRedirections = False
                  .Refresh BackgroundQuery:=False
            End With
           
    k = k + 1
    c = ActiveSheet.Cells(Rows.Count, 1).End(xlUp) + 1
   
Next objFile
End Sub

ale makro pobiera dane z pierwszego pliku i wywala się po Next objfile
zaznaczając błąd na tej linii

With ActiveSheet.QueryTables.Add(Connection:="FINDER;C:\Dane\" & sPlik, Destination:=Cells(c, 1))

Application-defined or object-defined error . Run-time Error 1004

Może ktos widzi jakiś oczywisty błąd i potrafi to przerobić ?

Z góry wielkie dzięki za wszelką pomoc

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

katkaras.opx.pl