Bir Klasördeki Tüm Excel Sayfalarını Kopyalayıp Almak

[alemdar1905]

İyi Çalışmalar...
Elimde 5000'e yakın excell dosyası bulunmakta her excell dosyasında 10 sayfa bulunmakta. Benim yapmak istediğim bu excell dosyalarının her sayfasından ilk 10 satırı kopyalayıp tek bir excell sayfasında birleştirmek.. Excell içindeki sayfaların ismi Sayfa1... Sayfa10 a kadar gitmektedir.

Bunu yapabilen bir makro mümkünmüdür acaba.. Yardımlarınız için şimdiden çok teşekkür ederim.

 

[hımmmmmmmm]

S1 = 1
S2 = 10
'---------------------------------------------------------------------
DOSYA = Dir(ThisWorkbook.Path + "\*.XLSx")

While DOSYA <> ""
    Workbooks.Open ThisWorkbook.Path + "\" + DOSYA
       For K = 1 To Workbooks(DOSYA).Sheets.Count
          VERIAL = Workbooks(DOSYA).Sheets("Sayfa" + Trim(K)).Range("A1:AZ10").Value
          X = "A" + Trim(S1) + ":AZ" + Trim(S2)
          Workbooks("Birleştir.xlsM").Sheets("Sayfa1").Range(X).Value = VERIAL
          S1 = S1 + 10
          S2 = S2 + 10
       Next K
Workbooks(DOSYA).Close False
'---------------------------------------------------------------------
DOSYA = Dir
Wend

açıklamanda eksikler var belirleyici değil...
belirleyici olmayan her 10 sayfanın bilgisi yine her 10 sayfaya aktarılacağımıdır, değilmidir.
aşağıdaki biligye göre değerlendir..

- önce kendi dosyalarının yedeğini al
-ekdeki dosyayı bu 5000 dosyanın bulunduğu klasöre kopyala-sonra çalıştır
butonu tıkla
-ekdeki dosya çalışınca bu 5000 dosya sırayla okunur.
-okuduğu her dosyayı açar ve her dosyanın 10 sayfanından 10 satır alır..
((a:az) sütün aralığndaki).sayfalardan birinde hiç bilgi yoksa boşluk olarak alır

-alınan veriler çalışan ekdeki dosyanın sayfa1 ine kopyalanır

 

[alemdar1905]

Yardımlarınız için çok teşekkür ederim. Makro çok işime yaradı fakat bazı exceller tek sayfa ve sayfa isimleri farklıymış bu durumda bazen hata veriyor.

 

[hımmmmmmmm]

ekdeki programda excel dosyasındaki sayfa isimlerini okuyan ek satır yapıldı.. böyle bir deneyin..