veri alma problemi

[zamenya]

Arkadaşlar merhaba daha önce sayın hamitcanın vermişolduğu kodla kapalı dosyadan veri almaya çalışıyorum ama kodda şu hatayla karşılaşıyorum bukonuda yardımcı olabilirmisiniz (hata kırmızı renkli) hatayı düzeltemedim

Private Sub CommandButton18_Click()
Set baglanti = CreateObject("ADODB.Connection")
yol = "DRIVER={Microsoft Excel Driver (*.xls)};" & "DBQ=" & ThisWorkbook.Path & "\veri.xls"
baglanti.Open yol
Set rs = baglanti.Execute("[veri$a:a]") Cells([a65536].End(3).Row + 1, 3) = rs.Fields(0).Name

End Sub

 

[zamenya]

daha önce bu konuyu açtığım link aşağıdadır
http://www.excel.web.tr/f48/diger-cal-sma-kitab-ndan-veri-aktarma-hk-t63145/sayfa2.html

 

[zamenya]

sayın arkadaşlar lütfen yardım

 

[zamenya]

saın hocalarım lütfen yardım

 

[zamenya]

arkadaşlar merhaba yukardaki problemimi çözdüm ancak aşağıdaki kod kapalı çalışma kitabında tüm verileri a2 den ekliyor alınan verilerin a alt alta eklemesini nasıl yapabilirim

Set baglanti = CreateObject("ADODB.Connection")
yol = "DRIVER={Microsoft Excel Driver (*.xls)};" & "DBQ=" & ThisWorkbook.Path & "\verı.xls"
baglanti.Open yol
Set rs = baglanti.Execute("[verı$a1:m65536]")
[a2].CopyFromRecordset rs
rs.Close
baglanti.Close

 

[zamenya]

arkadaşlar merhaba yukardaki problemimi çözdüm ancak aşağıdaki kod kapalı çalışma kitabında tüm verileri a2 den ekliyor alınan verilerin a alt alta eklemesini nasıl yapabilirim

Set baglanti = CreateObject("ADODB.Connection")
yol = "DRIVER={Microsoft Excel Driver (*.xls)};" & "DBQ=" & ThisWorkbook.Path & "\verı.xls"
baglanti.Open yol
Set rs = baglanti.Execute("[verı$a1:m65536]")
[a2].CopyFromRecordset rs
rs.Close
baglanti.Close

 

[omerceri]

Aşağıdaki eklemeler işinizi görür herhalde
Set baglanti = CreateObject("ADODB.Connection")
yol = "DRIVER={Microsoft Excel Driver (*.xls)};" & "DBQ=" & ThisWorkbook.Path & "\verı.xls"
baglanti.Open yol
Set rs = baglanti.Execute("[veri$a1:m65536]")
say = [A65536].End(3).Row + 1


Range("A" & say).CopyFromRecordset rs
rs.Close
baglanti.Close

 

[zamenya]

sayın ömerceri yardımlarınız için çok teşekkür ederim