Import plikow z excela

chodzi o import do excela danych z plików generowanych automatycznie (ta sama nazwa kolejne numery pliku) do pliku dane wynikowe.xls.
Dane kopiowane do skoroszytów w zależności od miesiąca (komórka D5). Pliki znajdują się w jednym folderze.
Dane do skopiowania zaznaczone na niebiesko (zakres danych: dane). Początek wklejania od komórki A2.
Plików w jednym miesiącu może być ok. 150.

Znalazlem podobne makro w innym wątku:

Sub KopiujDane()

Dim sciezka As String
Dim wzorzec As String
Dim plik As String
Dim wiersz As Long
Dim kopiuj As String
Dim dane As Variant

sciezka = "C:\dane\"
wzorzec = sciezka & "*.xls"
kopiuj = "A1:F100"

plik = Dir(wzorzec)

With Workbooks.Add
   wiersz = 1
   Do While Not plik = ""
      With Workbooks.Open(sciezka & plik)
         dane = .Worksheets("Arkusz1").Range(kopiuj).Value
         .Close
      End With
      With .Worksheets(1)
          .Cells(wiersz, 1). _
          Resize(UBound(dane, 1), UBound(dane, 2)).Value = dane
          wiersz = .Cells(.Rows.Count, "A").End(xlUp).Row + 1
      End With
      plik = Dir
   Loop
End With
End Sub

Takie było by ok, ale dobrze byłoby dać warunek do wklejenia do danego skoroszytu (w zależności od miesiąca) i kopiować kilka zakresów (zaznaczonych w pliku przykładowym)

Za pomoc będę wdzięczny
Andso

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

katkaras.opx.pl