Kapalı veya açık dosyadan veri almak

[abuitun]

Herkese iyi günler,
Dosyadan veri alma ile ilgili bir sorum olacak;
Birinci dosyada farklı isimlerde 20 kadar (15-16 da olabilir) sayfam var.
İkinci dosyamda da yine farklı isimlerde 20 kadar (15-16 da olabilir) sayfa var.
İsteğim bu iki dosyanın sayfalarındaki a1:h1 değerlerini veri dosyasının f6:m6 ya birinci dosya birinci sayfadaki f7:m7 ye ikinci sayfadaki değerleri…. alsın
F29:m29 a da ikinci dosya birinci sayfada a1:h1 değerlerini alsın ve alt alta tüm sayfa değerlerini aktarmasını yapmak istiyorum.
Bu konuda yapılmış çalışmalar var ancak hepsi veri alınacak sayfanın isimleri ile yapılıyor.
Sayfa isimlerini dikkate almasın ve sayfa sayısı da önemli olmasın istiyorum. Yani dosyada 5 sayfada 20 sayfada olabilir.
Alınacak dosyanın kapalı veya açık olmasının önemi yok.

 

[conari]

sayfalarda ki hücre değerlerini toplatmak istiyorsunuz galiba ama
daha açıklayıcı örnek dosyalar ile bilgi verebilirmisiniz?

 

[abuitun]

sayın Conari,
İlginize teşekkür ederim.
Sayın Leventim tarafından hazırlanmış kodlarda
Sub verial()
For Each dosya In CreateObject("Scripting.FileSystemObject").GetFolder("C:\veri").Files
c = c + 1
Cells(c, 1) = ExecuteExcel4Macro("'C:\veri\[" & dosya.Name & "]sayfa1'!R21C2")
Cells(c, 2) = ExecuteExcel4Macro("'C:\veri\[" & dosya.Name & "]sayfa1'!R23C3")
Cells(c, 3) = ExecuteExcel4Macro("'C:\veri\[" & dosya.Name & "]sayfa1'!R23C6")
Cells(c, 4) = ExecuteExcel4Macro("'C:\veri\[" & dosya.Name & "]sayfa1'!R25C3")
Next
End Sub
benim sorduğum C:\ veri dosyasında ki 2 dosya içerisinde ki sayfaların (sayfa sayısı ve ismi önemli değil) verilerin alınması a1:h1 satırındaki tüm sayfalardan
yukarıdaki kodlarda dosyaların yanlız ca 1 sayfadan veri alınıyor.