CopyFromRecordset (2 defa )

[tamer42]

Merhaba


Kapalı dosyadan verileri "CopyFromRecordset RS1" komutu ile kopyalamak istediğimizde;

Aşağıdaki kodda "CopyFromRecordset RS1" işlemini bir defa yaptıktan sonra, başka bir hücreye 2. defa artık o işlemi yapmıyor,
Nasıl bir çözüm yolu önerirsiniz,

teşekkürler,

Set Sht = ActiveSheet

Sql1 = "SELECT * From [Table2$]"

RS1.Open Sql1, Con, 1, 1

ab = RS1.RecordCount
k=2
Sht.Range("A" & k + 10).CopyFromRecordset RS1
Sht.Range("D" & k + 10).CopyFromRecordset RS1

 

[Haluk]

Kırmızı satırı araya ilave edin....

Sht.Range("A" & k + 10).CopyFromRecordset RS1
RS1.movefirst
Sht.Range("D" & k + 10).CopyFromRecordset RS1

.

 

[tamer42]

Kırmızı satırı araya ilave edin....

Sht.Range("A" & k + 10).CopyFromRecordset RS1
RS1.movefirst
Sht.Range("D" & k + 10).CopyFromRecordset RS1

.

Çok teşekkürler Haluk Hocam, iyi ki varsınız!