Birçok kapalı farklı dosyadan verileri rapolamak

[harakikiri]

Merhaba arkadaşlar,

Forumda bir çok örneği bulunmasına rağmen kendime uyarlamaya başaramadığım bir uygulamam var. Yardımcı olabilecek arkadaşlarıma şimdiden teşekkür ediyorum.

Örnekteki HASTALAR klasöründe 3 adet dosya var, oysaki bu gerçekte 1700 adet. Bu dosyalardan "önsayfa" daki isim, soyisim, ve telefon numaralarının özet dosyasında listelenmesini istiyorum.

Örnek incelendiğinde daha açıklayıcı olabilecektir sanırım.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin. Yolu kendinize göre değiştirirsiniz.

Sub verilerial()
yol = "E:\2\HASTALAR"
Set nesne = CreateObject("Scripting.FileSystemObject")
For Each dosya In nesne.GetFolder(yol).Files
c = c + 1
Cells(c + 2, "b") = ExecuteExcel4Macro("'" & yol & "\[" & dosya.Name & "]önsayfa'!R4C2")
Cells(c + 2, "c") = ExecuteExcel4Macro("'" & yol & "\[" & dosya.Name & "]önsayfa'!R5C2")
Cells(c + 2, "d") = ExecuteExcel4Macro("'" & yol & "\[" & dosya.Name & "]önsayfa'!R10C2")
Next
End Sub

 

[harakikiri]

Levent Menteşoğlu, çok teşekkür ederim, ellerinize sağlık.