Bende gifteki gibi hata verdi
Çalışan dosyayı ekleyebilirmisiniz sayın @Myalim

buton kodu

txtDosyaAdres = CurrentProject.Path & "\AKTAR.xlsx" ' Buraya dosya adresi ve ad? yaz?lacak

    Dim con As ADODB.Connection

    Dim rs As ADODB.Recordset

    Dim sConn As String, sConn2 As String

    Dim degerler, sSql As String

    

    degerler = ""



sSql = "select * from [Sayfa1$]" '

    sConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & txtDosyaAdres

    sConn2 = ";Extended Properties=""Excel 12.0 Xml;HDR=No"";"

    

Set con = New ADODB.Connection

    con.Open sConn & sConn2



Set rs = New ADODB.Recordset

    rs.CursorLocation = adUseClient

    rs.Open sSql, con, adOpenKeyset 'rather use this so RecordCount works

    

    If rs.RecordCount = 0 Then Exit Sub

    rs.MoveLast

    rs.MoveFirst

    Do Until rs.EOF = True

        degerler = degerler & ", '" & rs.Fields(1) & rs.Fields(2) & rs.Fields(3) & "'"

    rs.MoveNext

    Loop

    

    degerler = Mid(degerler, 2)

    

sSql = " insert into [Veriler1] (kimlikNo, ad, soyAd, babaAd) " & _

                      " values (" & degerler & ")"

    CurrentDb.Execute sSql

    Set rs = Nothing

Yine aynı hata veriyor.
Birde sanırım Access ile karıştırdınız.



'txtDosyaAdres = CurrentProject.Path & "\AKTAR.xlsx" ' Buraya dosya adresi ve ad? yaz?lacak
yerine.

txtDosyaAdres = ThisWorkbook.Path & "\AKTAR.xlsx" ' Buraya dosya adresi ve ad? yaz?lacak 
Böyle olmalı.

Yada alttaki gibi.

txtDosyaAdres = ThisWorkbook.FullName

(17/01/2020, 01:22)feraz yazdı: ThisWorkbook

accesste hata verir excelde kullanılıyor ama accesste CurrentProject kullanılıyor ama fullname olmaz ozaman çalıştığınız Access dosyasının adı ve adresi gelir

Şimdi  bu kodlar accesse mi excelemi eklenecek ben excele ekliyordum.

Şimdi denedim kodu accesste çalıştırıp hata vermedi.Bende excelde deniyordum

Elinize sağlık.

(17/01/2020, 01:26)berduş yazdı:

(17/01/2020, 01:22)feraz yazdı: ThisWorkbook

accesste hata verir excelde kullanılıyor ama accesste CurrentProject kullanılıyor ama fullname olmaz ozaman çalıştığınız Access dosyasının adı ve adresi gelir

(17/01/2020, 01:29)feraz yazdı: Şimdi  bu kodlar accesse mi excelemi eklenecek ben excele ekliyordum.

Şimdi denedim kodu accesste çalıştırıp hata vermedi.Bende excelde deniyordum

Elinize sağlık.

@"berduş" hocam yeni bi sorun senaryosu yaşadım çözüm gene sizdedir ekde örnek ve açıklama ekledim. 

Sorunum veri alacağım Excel de boşluk satırım bulunuyor bunu saymadan sadece dolu satırlardaki verileri nasıl alabilirim, bu konu ile ilgili yazmış olduğunuz kod üzerinden yapabilirmiyiz, çünkü o işimi diğer senaryolarda çok güzel gördü. Teşekkürler şimdiden.

örnek ekleyemedim ama son verdiğiniz kod üzerinde  olabilir ve  ya dm atabilirim.