kapalı dosyadan veri almada sorun

[Hakan ERDOST]

Sub verial()
Set s1 = Sheets("cevaplar")
For Each Dosya In CreateObject("Scripting.FileSystemObject").GetFolder("C:\ABKÖ").Files
For b = 2 To 502
c = c + 1
For a = 5 To 175
s1.Cells(c + 4, a) = ExecuteExcel4Macro("'C:\ABKÖ\[" & Dosya.Name & "]cevaplar'!R" & b & "C" & a)
Next
10 Next
Next
End Sub

Yukarıdaki kod ile kapalı dosyadan veri alıyorum ancak boş satırlardan da veri aldığı için çok kasıyor sadece dolu satırlardan veri alması için nasıl bir ilave yapmalıyız.

 

[Orion1]

Ado kullanın.
Forumda ado diye arama yapın.
Excelin dış veri al özelleüiini kullanrakta alabilirsiniz.
Veri==>Dışveri al==Veri

 

[Gorarr]

Örnek dosya koymanız mümkünmü aceba. Bende faydalanmak isterim..teşekkürler.

 

[Hakan ERDOST]

İşin özü şu Akademik Benlik Ölçeği Değerlenrime programı için bir çalışma yapmaya çalışıyorum.c:ABKÖ klasörünün altında Birden fazla Öğretmen çalışma kitabı olacak (atıyorum ABKÖ_ÖĞRETMEN1,2,3 vb) birde ana çalışma kitabı ABKÖ .öğretmen kitabındaki veriler Sayfa1 deki A2:FR50 aralığında olacak.Bu veriler ABKÖ çalışma kitabındaki cevaplar isimli sayfanın B4:FS500 aralığına dolu satırın bir altınan başlayarak aktarılacak.

 

[Hakan ERDOST]

Sub vver()

'
' verial Makro
' Makro ARKADAS tarafından 10.11.2010 tarihinde kaydedildi.
'
Set s1 = Sheets("cevaplar")
For Each Dosya In CreateObject("Scripting.FileSystemObject").GetFolder("C:\ABKÖ").Files
For E = 2 To 40
deg = ExecuteExcel4Macro("'C:\ABKÖ\[" & Dosya.Name & "]Sayfa1'!R" & E & "C2")
If deg = 0 Then GoTo 10
c = c + 1
For a = 2 To 175
s1.Cells(c + 3, a + 1) = ExecuteExcel4Macro("'C:\ABKÖ\[" & Dosya.Name & "]Sayfa1'!R" & E & "C" & a)
Next
10 Next
Next

' vver Makro
' Makro ar tarafından 11.11.2010 tarihinde kaydedildi.
' vver Makro
' Makro ar tarafından 11.11.2010 tarihinde kaydedildi.
'

'
End Sub

Sorunu bu kod ile çözdüm.Ancak verileri çok yavaş alıyor.Klasörümde 13 çalışma kitabı var .Verileri çekmesi 10-15 dakikayı buluyor.Normal midir? Farklı bir kodlama yapabilirmiyiz?