Excell den Access Tablosuna Veri Aktarımı

[drummers]

Excell Başlık Alanlarım

A1: id
B1: Adi
C1: Soyadi


Access "Firma" Tablosu alanlarım

id: "otomatik sayı"
Adi : "metin"
Soyadi : "metin"

Sayfa ve Tablo yapısı bu şekildedir.

Excell dosyamdaki tüm verileri "C:\Deneme.mdb" yolundaki veritabanın içindeki
"Firma" tablosuna makro ile nasıl aktarırım

Teşekkürler

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

Set baglanti = CreateObject("ADODB.Connection")
yol = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Deneme.mdb;"
baglanti.Open yol

For a = 3 To [a65536].End(3).Row
Set kaydet = baglanti.Execute("insert into Firma (Adi,Soyadi) values ('" & Cells(a, "B") & "','" & Cells(a, "C") & "')")
Next

baglanti.Close
Set kaydet = Nothing

 

[drummers]

Aşağıdaki gibi deneyin.

Set baglanti = CreateObject("ADODB.Connection")
yol = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Deneme.mdb;"
baglanti.Open yol

For a = 3 To [a65536].End(3).Row
Set kaydet = baglanti.Execute("insert into Firma (Adi,Soyadi) values ('" & Cells(a, "B") & "','" & Cells(a, "C") & "')")
Next

baglanti.Close
Set kaydet = Nothing

A sütunundaki son veri olan satıra kadar aktarmasını nasıl sağlıyabiliriz acaba ?

Yakalamasam 10,000 satır veri aktardı bu kodla )

Teşekkürler

 

[Levent Menteşoğlu]

A sütunundaki son veri olan satıra kadar aktarmasını nasıl sağlıyabiliriz acaba ?

Yakalamasam 10,000 satır veri aktardı bu kodla )

Teşekkürler

[a65536].End(3).Row satırının amacı zaten A sütunundaki son satır içindir. Ancak A sütunu formüllerden oluşuyorsa B sütunundaki son satırı kullanabilirsiniz.

 

[burhancavus61]

Bu yöntem ile aktarma yaptım ama ondalık haneleri aktaramadım çözümü nedir acaba. Ondalık haneleri tam olarak aktarıyor sayı olarak düzenledim ama olmadı sanırım.

 

[burhancavus61]

çözdüm teşekkürler