Makro veri aktarma

[hakin]

Dosya ektedir teşekkürler

 

[Orion1]

Dosyanız ekte.
Yalnız b sütununa veriler sayı biçiminde kaydedemedim.
Onuda bulunca düzeltirim.

Sub Kapaliya_aktar()
'Tools==> Referanslardan Microsoft activex DataObject 2.x library şıkkını seçmelisiniz.
Dim conn As ADODB.Connection, rs As ADODB.Recordset, yol As String, i As Long
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
yol = ThisWorkbook.Path
conn.Open "Provider=Microsoft.Jet.OleDb.4.0;Data Source=" & yol & "\BİLGİ.xls;extended properties=""Excel 8.0;hdr=yes;"""
rs.Open "Select * from [Sayfa1$];", conn, 1, 3
For i = 2 To Cells(65536, "A").End(xlUp).Row
    rs.AddNew
    rs(0) = Cells(i, "A").Value
    rs(1) = CDbl(Cells(i, "B").Value)
    'Set rs = conn.Execute("insert into [Sayfa1$] (ADI,(NUMARA) values ('" & Cells(i, "A").Value & "'," & CDbl(Cells(i, "B").Value) & ")")
Next
rs.Update
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
MsgBox "Kayıt girildi."


End Sub

 

[Orion1]

Madem böyle kayıt olayı var.
Veritabanı dosyanızı mdb dosyası yapsanız ya.Exceli vt olarak kullanmanın sakıncaları var bu iş için.Mesela kayıt silemezsiniz.Sanal olarak bir şeyler yapılabilir ama bildiğimiz manada bir kayıt silinemez.