Çoklu xls den veri almak, listelemek.

[command]

Makro ile ilgili fazla bilgim yok, yeni öğrenmeye çalışıyorum, öncelikle formüllerden başladım.

Şunu yapmak istiyorum örneğin:

X isimli klasör içinde farklı isimlerdeki(x,y,z....) dosyalar içinde bulunan excel belgelerinin B.T adlı sayfasının E8 hücresindeki değerleri bir listede toplama istiyorum. 100 lerce klasör var her klasörde 1 er 2 şer xls var.isimleri değişken. Ama hepsinde de B.T sayfası E8 hücresi var.

yani; Bir klasör içindeki bütün xls uzantılı dosyalarda B.T sayfasındaki E8 hücresindeki sayıyı bir listede yazdırmak istiyorum.

Bunun için nasıl bi kod gerek?

Yardımcı olan arkadaşlara şimdiden teşekkürler.

 

[command]

yok mu yardım eden?

 

[Orion1]

yok mu yardım eden?

Var.!
C:\X klasöründeki dosyaların B.T sayfasındaki E8 hücresindeki verileri A2 den başlayarak alt alta listeler.

Sub veri_al()
Dim fso As Object, dosya As Object, sat As Long
Range("A:A").ClearContents
sat = 2
Set fso = CreateObject("Scripting.FileSystemObject")
For Each dosya In fso.getfolder("[B][COLOR="Red"]C:\X[/COLOR][/B]").Files
Cells(sat, "A").Value = Application.ExecuteExcel4Macro("'[B][COLOR="Red"]C:\X[/COLOR][/B]\[" & dosya.Name & "]B.T'!R8C5")
    sat = sat + 1
Next
MsgBox "işlem tamamdır.", vbOKOnly, "EVREN"
End Sub