Kapalı excelden veri alırken döngü hatası?

[zeliha]

Arkadaşlar,
c:\zeliha klasöründe 1300 tane excel dosyası var.
Ben herbir dosyanın R3C4 hücresindeki veriyi boş bir excel sayfasında ilk sütuna yukardan aşağıya sıralamak istiyorum.
Ama devamı var;

R3C4'LER A SÜTUNUNA ALT ALTA,
R4C4'LER B SÜTUNUNA ALT ALTA,
R5C4'LAR C SÜTUNUNA ALT ALTA,
.
.
.
.
R33C4'LER AG5 SÜTUNUNA ALT ALTA,



döngülerle çok uğraştım ama yapamadım.lütfen yardım edin.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:01082b9823]Sub verial()
For Each dosya In CreateObject("Scripting.FileSystemObject").GetFolder("C:\zeliha").Files
sat = WorksheetFunction.CountA(Columns(1))
For sut = 3 To 33
Cells(sat + 1, sut-2) = ExecuteExcel4Macro("'C:\zeliha\[" & dosya.Name & "]sayfa1'!R" & sut & "C4")
Next: Next
End Sub
[/vb:1:01082b9823]

 

[zeliha]

olmadı

Sn leventm verdiğiniz kod çalışmadı.ilk satırda hata veriyor.Lütfen yardım edin.

 

[Levent Menteşoğlu]

İlk satırda hata verecek nokta sadece dosya yolunun hatalı olmasıdır. Bunu kontrol edin.