Excel'den Access e kayıt aktarımı

[nurcanuludag]

Merhaba,
Excel'den Access e kayıt aktarımı yapmak istiyorum.
Kayıt sayım 960.
Aktarıldığında ki tablomun özelliği;
Sicil Number
Adı Soyadı Text
Departman Combo Box

Teşekkür ederim Saygılarımla,

 

[attila52]

sn nurcan şunu bir deneyiniz
Sub accesse()
Dim Baglan As Object
Dim Komut As String
Dim Kaynak_Dosya As String
Dim Hedef_Dosya As String
Set Baglan = CreateObject("ADODB.connection")
Kaynak_Dosya = ThisWorkbook.Path & "\Adres.xls"
Hedef_Dosya = ThisWorkbook.Path & "\Adres.mdb"
Baglan.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Kaynak_Dosya & ";" _
& "Extended Properties=""Excel 8.0;HDR=Yes"""
Komut = "INSERT INTO [Kayitlar] IN '" & Hedef_Dosya & "' Select * FROM [Kayitlar$]"
Baglan.Execute Komut
End Sub

 

[nurcanuludag]

Teşekkür ederim Sayın Attila.
Kolay gelsin...

 

[Qene]

Access dosyanızı açıp, Ekle | Tablo | Tablo Al özelliğini kullanarak Excel verilerinizi kolayca Access'e alabilirsiniz. İyi çalışmalar..

 

[nurcanuludag]

Sayın Gene Çok teşekkür ederim.
Hızlı ve kolay...

 

[Qene]

Rica ederim. Kolay gelsin..
Qene