Excel hücresinden acceseye aktarımda?

[ikikan]

Arkadaşlar Kırmızı ile işaretli olan kodun daha kısa bir yolu yokmudur,
bu şekilde 300 veri girmem gerekince sorun olacak !

Sub AccesseKaydet2()
Call baglanti1
Dim i As Integer
Set rs = CreateObject("adodb.recordset")
With Sheets("VVV")
rs.Open "select * from sil", con, 1, 3
rs.addnew
rs.fields(1).Value = Range("A1").Value
rs.fields(2).Value = Range("A2").Value
rs.fields(3).Value = Range("A3").Value
rs.fields(4).Value = Range("A4").Value
rs.fields(5).Value = Range("A5").Value
rs.Update

End With
MsgBox "Kayıtlar veritabanına aktarıldı", vbInformation
con.Close

End Sub

 

[dEdE]

Merhaba,
Bu konuyu bilmiyorum ama VBA mantığından yola çıkarak kırmızı işaretlediğiniz satırların yerine aşağıdaki kodu yazarak dener misiniz?

For i = 1 To 300
    rs.fields(i).Value = Range("A" & i).Value
Next

 

[Orion1]

Alternatif:
sorunuzu access bölümünde sormayı deneyiniz.