Kapalı dosyadan hücre aralığındaki verileri aktarmak

[kutlu]

Merhaba Arkadaşlar!..
Yaptığım çalışmada kapalı excel kitabından "ExecuteExcel4Macro" makrosunu kullanarak bir hücredeki veriyi istediğim nesne içeriğine veya hücreye taşıyabiliyorum. Ancak hücre aralığını taşıma konusunda sizlerin bilgisine ihtiyacım oldu.

Bu konuda bir döngü oluşturmaya çalıştım, ancak başarısız oldum.
Kunu şudur: Kapalı bir dosyadaki (A1:A10) hücrelerindeki verileri
açık dosyadaki (B1:B10) aralığına "ExecuteExcel4Macro" makrosunu kullanarak nasıl aktaracağım.

Benim çalışmam;
Private Sub CommandButton1_Click()
Dim h As Range
Dim i As Integer
For Each h In Range("B1:B10")
For i = 1 To 10
h.Value = ExecuteExcel4Macro("'d:\dene\[test.xls]veri'!R" & i & "C1")
Exit For
Exit For
Next j
Next i
End Sub

Kolay Gelsin. Teşekkür Ederim.

 

[Haluk]

Private Sub CommandButton1_Click()
    Dim i As Integer
    For i = 1 To 10
    Cells(i, 2) = ExecuteExcel4Macro("'d:\dene\[test.xls]veri'!R" & i & "C1")
    Next i
End Sub

 

[kutlu]

Veri Aktarma

Haluk arkadaşım çok teşekkür ederim.

Meğer ne kadar basitmiş. Bazen çok derinlere dalıp basit şeyleri aklımıza gelmiyor.

İyi günler dilerim.