Ayrıca Sql kodu olduğu için filtreleme için where, sıralama için order by, tekrarı engellemek için group by yada distinct kullanılabiliyor. Ama excelde denemedim
(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