Kapali ÇalŞma Kİtaplarindan Verİ Lİstelemek

[Hakan ERDOST]

Herekes iyi akşamlar. Kapalı çalışma kitabından veri listelemek ile igli sorum dosya ekimde alakdar olacak arkadaşlara teşekkürler.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Sub verial()
Set s1 = Sheets("2005-2006")
For Each Dosya In CreateObject("Scripting.FileSystemObject").GetFolder("C:\HKO").Files
For b = 5 To 52
deg = ExecuteExcel4Macro("'C:\HKO\[" & Dosya.Name & "]2005-2006'!R" & b & "C2")
If deg = 0 Then GoTo 10
c = c + 1
For a = 2 To 10
s1.Cells(c + 4, a) = ExecuteExcel4Macro("'C:\HKO\[" & Dosya.Name & "]2005-2006'!R" & b & "C" & a)
Next
10 Next
Next
End Sub

 

[Hakan ERDOST]

Sayın leventm öncelikle tekrar teşekkür ederim .Gerek bu kodlar gerekse diğer başlık altında (Kapalı Çalışma Kitabından veri alma)gerekse açtığım dieğer başlıkta yazmış olduğunuz kodlar bana göre çok kıyetli umarım diğer arkadaşlarda bu kodları alıp arşivlerine eklerler.tekrar teşekkürler.