excel tabloyu access'e gönderme

[akd]

Merhaba arkadaşlar,
access'de olan excelde çözümle olayı,
excelde varmı acaba, yoksa nasıl yapabiliriz.
excelde aluşturduğum, 75 sutun ve 50 satırlık bir tablom var bunu
olduğu gibi access'e nasıl gönderebilirim.
Yardımcı olacak arkadaşlara şimdiden çok teşekkürlerimi sunarım...

 

[ahmetyurtkan]

accessdan dosya/veri al/dış veri al dan yapabilirsin

 

[akd]

SELAM ahmetyurtkan,
alan isimlerini tanımladıktan sonramı ?

 

[sandalet]

arkadaşlar bu konu çok sorulmasına ragmen kimsenin tam bir bilgisi yok resimli açıklama yapacak bir babyigit yokmu :yardim:

 

[atkbursa]

dosyayı alacağın access i aç dosya menüsünden dış veri al/al/dosya türünü excel seç dosyanı işaretle ve ekrandaki seçenekleri seçerek işlemini tamamla access excel dosyasını veri tabanına ekleyecektir.
(kusura bakmayın verdiğim cevap daha önce verilmiş dikkatsizlikten görememişim)

 

[sandalet]

sayın atkbursa dediginizi harfiyen yapmama ragmen exceldeki tüm sütünları tek bir sütün olarak alt alta atıyor bunu düzeltmenin çaresi varmı acaba

şimdiden teşekkürler :dua:

 

[Qene]

[vb:1:6175245c63]Sub ExcelSayfaAccesseKopyala()
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 = "E:\Baho.xls" 'Buraya Dosyanızın Olduğunu Yolu Yazınız.
Hedef_Dosya = "E:\Baho.mdb" ' Buraya da Access Dosyanızın Yolunu.
Baglan.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Kaynak_Dosya & ";" _
& "Extended Properties=""Excel 8.0;HDR=Yes"""
Komut = "SELECT * INTO [;DATABASE=" & Hedef_Dosya & "].[YeniTablo1] FROM [Veriler$]" 'Bu Sayfa verilerinizin kayıtlı Olduğu Sayfa Adı
Baglan.Execute Komut
End Sub[/vb:1:6175245c63]

 

[Qene]

Son mesajınızı okuyunca açıklama yapayım dedim:
Bu kodu Access e kopyalamak istediğiniz çalışmanızın içine ekleyeceğiniz bir module yapıştırın.
Tools / References i seçip.
Microsoft ActiveX Data Objects en yüksek numara olan Library seçin.
Makroyu çalıştırdığınızda işlem gerçekleşecek.
Access kapalı olsun.
Umarım işinizi görür..

 

[akd]

Çok çok teşekkürler gene kardeş,
cevabınızı yeni gördüm , yarın denerim ,
ilginizden dolayı çok teşekkür ederim.
Ben bir sicil çalışması yapmak istiyorum, istenen kriterler excelde kayıtlı bunları tek tek access işlemek bayaa zoruma gittigi için böyle bir çözüm arıyorum .
teşekkürler...

 

[selami güzel]

selam sn.akd
ekte'ki kod lar excel'den access 'e kayıt gönderir.
Önemli:
kodlarda 'ki alan adları ile access tablonda ki alan adları kesinlikle
aynı olmalı.

saygılar.

Private Sub CommandButton4_Click()
' exports data from the active worksheet to a table in an Access database
' this procedure must be edited before use
Dim cn As ADODB.Connection, rs As ADODB.Recordset, r As Long
' connect to the Access database

Dim strAnswer As VbMsgBoxResult
strAnswer = MsgBox("onaylayınız ?", vbQuestion + vbYesNo, " Lütfen Kontrol Ediniz!")
If strAnswer = vbNo Then
Exit Sub
End If


Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & _
"Data Source=D:\klasör adı\dosya adı.mdb;"
' open a recordset
Set rs = New ADODB.Recordset
rs.Open "Genel", cn, adOpenKeyset, adLockOptimistic, adCmdTable
' all records in a table
r = 60 ' the start row in the worksheet
Do While Len(Range("A" & r).Formula) > 0
' repeat until first empty cell in column A
With rs
.AddNew ' create a new record
' add values to each field in the record
.Fields("Adı Soyadı") = Range("A" & r).Value
.Fields("Baba adı") = Range("B" & r).Value
.Fields("Doğum yeri") = Range("C" & r).Value

' istediğiniz kadar kayıt ekleyebilirsiniz...
.Update ' stores the new record
End With
r = r + 1 ' next row
Loop
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
'bu bölümde kayıt tan sonra hücrelerdeki verileri silebilirsiniz...
Range("E17:E47,F17").Select
Range("E17:E47,F17").Select
Selection.ClearContents
'kayıt ve hücreler silinditen sonra imlecin gitmesini istediğiniz hücre no...
Range("E17").Select ' kayıtlar access 'e gönderildikten sonra imlecin actif olmasını istidiğiniz hücreye gider.
Application.ScreenUpdating = True


End Sub

 

[Qene]

Selami Bey iyi açıklamış.
Bu arada nick'im QENE dir, gene değil..
Saygılar

 

[akd]

Merhaba arkadalar,
Özür dilerim sayın Qene,
Cevaplarınız için çok çok teşekkür ederim

alan adları ile beraber göndere bilirmiyiz,
ilginiz için çok çok teşekkürler Sayın Qene, Selami Güzel

 

[Qene]

Alan adları olarak göndermek isterseniz; excel in ilk satırına başlık tanımlarsanız Access te Alan olarak düzenleyecektir. Kolay gelsin..

 

[akd]

Slm Qene ,
Kod üzerinde nasıl yapacağımı gösterebilirmisiniz, bir zahmet
Teşekkürler...

 

[Qene]

Kod üzerinde yapmanız gereken;

Önce,

[vb:1:e6b89e6a33]Kaynak_Dosya = "E:\Baho.xls" 'Buraya Dosyanızın Olduğunu Yolu Yazınız.
Hedef_Dosya = "E:\Baho.mdb" ' Buraya da Access Dosyanızın Yolunu.[/vb:1:e6b89e6a33]

Bu alanları kendinize uyarlamak.

Sonra,
[vb:1:e6b89e6a33]FROM [Veriler$]" 'Bu Sayfa verilerinizin kayıtlı Olduğu Sayfa Adı[/vb:1:e6b89e6a33]

Veriler yazan kısma, sizin sayfa isminizi tanımlamanız olacak.

Excel de ise A1, B1, C1, ..... Hücrelerinde başlıklarınız var ise otomatik olarak alan ismi olarak Access e aktarılacaktır.
Kolay gelsin.

 

[akd]

Merhaba sayın Qene kardeş,
Özür dilerim, sizide yoruyorum
ama kodu çalıştıramadım dosyayı ekte gönderiyorum,
bir zahmet bakarsanız çok sevinirim.
kodlar bende kırmızı oldu ve kesinlikle çalışmadı.
Çok teşekkürler, hayırlı çalışmalar
Kandiliniz Mubarek Olsun.
Sitedeki bütün arkadaların kandilini kutlarım...

 

[Qene]

Olmamasının nedeni olarak gözüme çarpan ":" işareti olabilir. Verideki bilgilerin uzunluğu olabilir. Yakinlar için ayrı bir database kullanmanızı öneririm.
Bir de kullandığınız başlıklarda Türkçe karakterden kaynaklanabilir. Veritabanınızı düzenleyip denerseniz olacaktır. Kolay gelsin..

 

[TheBest]

kodlar bende kırmızı oldu ve kesinlikle çalışmadı.

Bu kodları forumdan alıp VBE sayfanıza yapıştırırken meydana gelen bir olay.
Kod satırlarını sola hizalarsan kırmızılık gidecek, kodlar çalışacaktır.

Sayın Qene, sizi hazırlamış olduğunuz güzel kodlardan dolayı tebrik ederim...

 

[Yüksel Varlı]

Sevgili Qene,
Excel dosyasında değişiklik yaptıktan sonra makroyu çalıştırınca eski mdb. tablosunun üzerine kayıt yapmıyor. "Zaten yeni sayfa 1 var." diye bir uyarı veriyor. Acaba var olan tablonun üzerine yazmak mümkün mü?
Selamlar

 

[Qene]

O uyarıdan sonra Evet i tıklarsanız değişiklik yapmış olacaktır..