Daha hızlı döngü

[peleryn]

Merhabalar;

Aşağıdaki kodlarla kapalı bir dosyadan 200 satır veri almaya çalışıyorum.Ancak bu kadarcık veri için döngü uzun sürüyor.Bir öneriniz olur mu?

Private Sub CommandButton1_Click()
Dim hcr As Range
For Each hcr In Range("B2:b200")
If hcr.Value = ExecuteExcel4Macro("'" & _
ThisWorkbook.Path & "\[MODÜL RAPOR DATA.xls]DATA'!R" & hcr.Row & "C2") = "" _
Or ExecuteExcel4Macro("'" & ThisWorkbook.Path & "\[MODÜL RAPOR DATA.xls]DATA'!R" & hcr.Row & "C2") = 0 Then
hcr.Value = ""
Else
hcr.Value = ExecuteExcel4Macro("'" & _
ThisWorkbook.Path & "\[MODÜL RAPOR DATA.xls]DATA'!R" & hcr.Row & "C2")
End If
Next
MsgBox "Tamam"
End Sub

 

[Levent Menteşoğlu]

ExecuteExcel4Macro metodu normalde ağır çalışır ancak 200 veri için çok aşırı bir yavaşlama olmaması gerekir. Bence öncelikle mevcut uygulamanızdaki ExecuteExcel4Macro metodu kullanımını bire indirmek fayda sağlayacaktır. Ancak bunun için aldığınız verilerin veri tipini belirtirmisiniz. Yani sayımı yoksa metinmidir? Bu çözüm sonuç getirmezse ADO veya DAO gibi uygulamaları önereceğim.