X
ďťż

Mefisto...diabeł czy anioł?

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

    • Drogi uzytkowniku!

    W trosce o komfort korzystania z naszego serwisu chcemy dostarczac Ci coraz lepsze uslugi. By moc to robic prosimy, abys wyrazil zgode na dopasowanie tresci marketingowych do Twoich zachowan w serwisie. Zgoda ta pozwoli nam czesciowo finansowac rozwoj swiadczonych uslug.

    Pamietaj, ze dbamy o Twoja prywatnosc. Nie zwiekszamy zakresu naszych uprawnien bez Twojej zgody. Zadbamy rowniez o bezpieczenstwo Twoich danych. Wyrazona zgode mozesz cofnac w kazdej chwili.

     Tak, zgadzam sie na nadanie mi "cookie" i korzystanie z danych przez Administratora Serwisu i jego partnerow w celu dopasowania tresci do moich potrzeb. Przeczytalem(am) Polityke prywatnosci. Rozumiem ja i akceptuje.

     Tak, zgadzam sie na przetwarzanie moich danych osobowych przez Administratora Serwisu i jego partnerow w celu personalizowania wyswietlanych mi reklam i dostosowania do mnie prezentowanych tresci marketingowych. Przeczytalem(am) Polityke prywatnosci. Rozumiem ja i akceptuje.

    Wyrazenie powyzszych zgod jest dobrowolne i mozesz je w dowolnym momencie wycofac poprzez opcje: "Twoje zgody", dostepnej w prawym, dolnym rogu strony lub poprzez usuniecie "cookies" w swojej przegladarce dla powyzej strony, z tym, ze wycofanie zgody nie bedzie mialo wplywu na zgodnosc z prawem przetwarzania na podstawie zgody, przed jej wycofaniem.