veri alma

[erdenek]

arkadaşlar ekteki dosyada TÜM OKULLAR excel dosyasının data sayfasına diğer klasörlerde yer alan data sayfalarındaki veri nasıl alabiliriz?Forumda ara yaptım ama kendime uygun bir şey bulamadım.Data sayfalarındaki
Adı Soyadı Cinsiyeti Ortaöğretim Kurumu Okulu
bilgileri alınacak.Arkadaşlar elimdeki klasör sayısı fazla.Ben sadece 3-4 tanesini ekledim.

 

[aliveli06]

tüm excel dosyalarınızın ham halini formül ve makro uygulanmamış halini bir klasöre kopyalayın daha sonra bu klasörde yeni bi excel çalışma sayfası oluşturup
bu sayfanın kod kısmında aşağıdaki kodları çalıştırın

Sub buklasordekiexceldosyalarınıBirleştir()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
yol = ThisWorkbook.Path
ad = ThisWorkbook.Name
ayrac = Application.PathSeparator
dosya = Dir(yol & ayrac & "*.xls")
      Do While dosya <> ""
      If dosya <> ad Then
        Workbooks.Open yol & ayrac & dosya
        Dim sayfa As Worksheet
        For Each sayfa In Workbooks(dosya).Worksheets
        sadi = sayfa.Name
        Workbooks(ad).Activate
        Workbooks(ad).Sheets.Add After:=Sheets(Sheets.Count)
        Workbooks(dosya).Worksheets(sadi).Range("A:Z").Copy
        Workbooks(ad).Sheets(Sheets.Count).Paste
        Next
      Workbooks(dosya).Close
      End If
        dosya = Dir()
      Loop
Dim YeniSayfa As Worksheet
Dim SayfaSay
SayfaSay = Worksheets.Count
Set YeniSayfa = Worksheets.Add(after:=Worksheets(SayfaSay))
With YeniSayfa
For i = 1 To SayfaSay
Worksheets(i).UsedRange.Copy .Range("A" & IIf(i = 1, 1, .UsedRange.Rows.Count + 1))
Next
End With
Application.ScreenUpdating = False
Application.DisplayAlerts = True
End Sub

bu sayfanın son sekmesinde bütün excel kitaplarının birleştiğini görürsünüz.
Daha sonra bu sayfada diğer formül ve makrolarınızı uygulayabilirsiniz.

 

[erdenek]

üstad ilgine teşekkür ederim.ama dosyalaın hamı yok.hepsi bu şekilde.Nasıl yapacağız o zaman?