Excel'in içindeki Farklı Çalışma Sayfalarından Access'e veri Çekme

[ikosarer]

Merhaba
ekteki dosyamda verilerini girdiğim data.xls excel dosyam mevcut. Bu dosya içinde 2 tane farklı çalışma sayfam var.
1.si Kimlik
2.si Adresler

bu bilgileri accesste makro ile veri tabanı dosyam olan calısanlar.mdb de
kimlik ve adresler olarak 2 tabloya aktarmak istiyorum.

makrolardan elektronik tablo aktarı seçtiğimde excel dosyam da 1.sıra da olan kimlik çalışma sayfasını alıyor.(sheets)

2.sıra da olan Adresler çalışma sayfasını Accesste tanımlı makrodan alamıyorum.Çünkü elektronik tablo aktarma içinde çalışma sayfalarını seçtiren herhngi bir alan bulamadım.Bu yüzden hep excelden 1.sırada hani çalışma sayfası varda onu çekiyor.Yani Her veri çekiminde kimlik bilgileri alıyor.

Ben 2 veya daha başka çalışma sayfalarını otomatik makroların içinde nasıl yazabilirim.
Elden sağ tuş ile bağla veya al dediğimde yapıyor ben bunu otomatik yaptırmak için ne gibi işlem yapmalıyım.
Saygılarımla
İsmail KOŞARER

 

[Taruz]

Merhaba İsmail bey..

Access dosyanızdaki tabloları siliniz ve bu prosedürü yine aynı dosya içerisinde bir düğme üzerinde çalıştırınız..:

trz = CurrentProject.Path & "\data.xls"
With DoCmd
.TransferSpreadsheet acImport, 8, "adresler", trz, -1, "Adresler$B3:E13"
.TransferSpreadsheet acImport, 8, "kimlik", trz, -1, "kimlik$B3:E20"
End With

 

[ikosarer]

Excel sayfasına buton koyma

Merhaba

Verdiğiniz değerli bilgiler için teşekkür ederim.İstediğim gibi oldu.

Bu işlemi ben accesste verdiğiniz kodu yazıp form da buton yaparak işlemi gerçekleştirdim.

Aklıma hemen şu soru geldi ....!

Acaba Excel Sayfasında ben butonu yerleştirip excel çalışma sayfalarını Access'deki tablolara gönderebilir miyim diye ?

Bu işlemi yapmak mümkün müdür ?

Saygılarımla
İsmail KOŞARER

 

[engineerkoray]

Bu sorunun cevbını ben de çok merak ediyorum..

 

[Taruz]

...
..........
.........................
Aklıma hemen şu soru geldi ....!

Acaba Excel Sayfasında ben butonu yerleştirip excel çalışma sayfalarını Access'deki tablolara gönderebilir miyim diye ?

Bu işlemi yapmak mümkün müdür ?

Saygılarımla
İsmail KOŞARER

Bu sorunun cevbını ben de çok merak ediyorum..

Merhaba..

Bu konuda Excel bölümünde epeyce örnek var.. Forumdan edindiğim örnek bir prosedür vereyim..:

Private adoCN As Object

Private Sub CommandButton1_Click()
'On Error Resume Next
Application.ScreenUpdating = False
'Accesse atar.......................................................................
Set RS = CreateObject("ADODB.recordset")
  strSQL = "SELECT * FROM Tablo1 Where No='" & TextBox1 & "'"
  RS.Open strSQL, adoCN, 3, 3

  If RS.RecordCount = 0 Then
    RS.AddNew
    RS("Adı") = TextBox1
    RS("soyadı") = TextBox2
    RS("telefon") = TextBox3
    RS.Update

  Else
    MsgBox TextBox1 & " adlı kişiyi daha önce girmiştiniz.", , "deneme"
  End If
  RS.Close
  'RefreshDB
  Set kayit = Nothing
End Sub

Private Sub Label3_Click()

End Sub

Private Sub UserForm_Initialize()
On Error Resume Next

  Set adoCN = CreateObject("ADODB.Connection")
  
    DatabasePath = _
        "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & _
            ThisWorkbook.Path & "\vt1.mdb"
            
    If Dir(ThisWorkbook.Path & "\vt1.mdb") = "" Then
        MsgBox DatabasePath & " bulunamadı, programdan çıkılacak !", vbCritical, "sevk"
        Unload Me
        Exit Sub
    End If
    
    adoCN.ConnectionString = DatabasePath
    adoCN.Open
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
On Error Resume Next
adoCN.Close
Set adoCN = Nothing
End Sub