(16/01/2020, 19:35)feraz yazdı:Teşekkürler ilginiz için "Berduş" hocamın kodları işimi çözdü.(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")
Excel Den Hücre Verisi Alma ?
Konuyu Okuyanlar: 1 Ziyaretçi