excelden access e veri gönderme

[Tankut SAZLI]

Arkadaşlar ben arama yaptım ancak bu konuyla ilgili net bir başlığa ulaşamadım.
Elimdeki bir excel dosyasındaki bilgilerin access de bir veritabanı yaratmasını ve oraya kaydedilmesini macrolarla yapabilirmiyiz.Yada excelde kullandığımız macroları ve usarformları access veya VBA da kullanablilirmiyiz(uyarlayabilirmiyiz)?

 

[Qene]

http://www.excel.web.tr/viewtopic.php?t=17983

linki inceleyiniz..

 

[mozzeybek]

Link çalışmıyor ..... Tekrar ekleyebilirmisiniz lütfen....?

 

[Qene]

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

Kodu kendinize uyarlayınız..

 

[mozzeybek]

Teşekkür ederim...Benim mevcutta bir sql veritabanım var.. Excel e girilen bazı hücrelerin içeriklerinin Sql veri tabanıdaki herhangi bir alana yazdırılması ile ilgili kaynak varmı sizde?