(16/01/2020, 18:54)berduş yazdı: resimdeki isimlendirmeleri kullandım, tüm alanları metin olarak ayarladım
dilerim işinize yarar
iyi çalışmalar
Not : Çalışmanıza referans eklemeniz gerekebilir

txtDosyaAdres = "D:\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(0) & "'"

    rs.MoveNext

    Loop

    

    degerler = Mid(degerler, 2)

    

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

                      " values (" & degerler & ")"

    CurrentDb.Execute sSql

    Set rs = Nothing

Merhaba.Telefondan kodları incelediğim kadarıyla alttaki no yerine yes olması gerekmiyor mu?

HDR=No

Birde reference eklememek için new yerine alttaki gibi olmalı.
Kodları kafadan yazdığım için hata olabilir.
Ve en sonda con.close ile kapatılmalı
   
Dim con as object
Dim rs as object

Set con= createobject("Adodb.Connection")
Set rs = createobject("adodb.recordset")