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

Katılım
15 Mart 2005
Mesajlar
20
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

Özel Üye
Katılım
7 Temmuz 2004
Mesajlar
12,406
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Altın Üyelik Bitiş Tarihi
Kod:
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
 
Katılım
15 Mart 2005
Mesajlar
20
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.
 
Üst