AccessTr.neT

"HDR=" başlık olup olmadığını gösteriyor diye biliyorum
Resimde sadece veri görünüyordu, başlık yoktu o nedenle YES yerine NO yazdim
Bilgilendirme için tesekkurler
Özellikle bu kısım çok işime yarayacak

(16/01/2020, 19:35)feraz yazdı: [ -> ]Dim con as object
Dim rs as object

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

Hatayla karşılaşmadığım zaman kaptma/sifirlama kısmını eklemeyi hep unutuyorum) ama haklisiniz önlem olarak eklenmeliydi

(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

Bu kod çok güzel işimi gördü peki Hocam exceldeki örneğin A1, A2, B3, C5 gibi karışık hücrelerdeki değerleri nasıl ekleyebiliriz.Rahatsız ediyorum kusura bakmayın.Örnek ekleyebilirim.

O mümkün müdür , bu kadar yalın olarak, bilmiyorum. Ama yaptığımız şey exceli tablomsu bir yapıyla almaktı
Eğer belli bir şablon varsa olabilir ama uğraştırır. Kısaca önemli olan şablonun uygulanabilirliği ve bunu da ancak tüm yapıyı görürsem anlayabilirim.

(16/01/2020, 19:43)berduş yazdı: [ -> ]"HDR=" başlık olup olmadığını gösteriyor diye biliyorum
Resimde sadece veri görünüyordu, başlık yoktu o nedenle YES yerine NO yazdim
Bilgilendirme için tesekkurler
Özellikle bu kısım çok işime yarayacak

(16/01/2020, 19:35)feraz yazdı: [ -> ]Dim con as object
Dim rs as object

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

Hatayla karşılaşmadığım zaman kaptma/sifirlama kısmını eklemeyi hep unutuyorum) ama haklisiniz önlem olarak eklenmeliydi

Rica ederim.
Evet hdr=no için 
Sorgu alanları f1,f2 gibi olmalı normalde ve [Sayfa1$A1:A65536] gibi olmalı.
Çünkü no olursa 65536 dan sonrakilerde problem olur tecrübelerden sabit
Yani normalı sSql= " f1 from.....  olarak yazılacak no için.
Ben hata için insert into daki Access başlıkları içn f1 gibi olmadığı için hata vereceğini düşünmüştüm.


Kolay gelsin.

[attachment=31202 yazdı:[attachment=31202]berduş pid='162629' dateline='1579193647']O mümkün müdür ,  bu kadar yalın olarak, bilmiyorum. Ama yaptığımız şey exceli tablomsu bir yapıyla almaktı
Eğer belli bir şablon varsa olabilir ama uğraştırır. Kısaca önemli olan şablonun uygulanabilirliği ve bunu da ancak tüm yapıyı görürsem anlayabilirim.

Örnek ve içerisinde açıklama ekledim inceleme imkanınız olursa çok sevinirim.

[attachment=31203 yazdı:feraz pid='162630' dateline='1579195272']

(16/01/2020, 19:43)berduş yazdı: [ -> ]"HDR=" başlık olup olmadığını gösteriyor diye biliyorum
Resimde sadece veri görünüyordu, başlık yoktu o nedenle YES yerine NO yazdim
Bilgilendirme için tesekkurler
Özellikle bu kısım çok işime yarayacak

(16/01/2020, 19:35)feraz yazdı: [ -> ]Dim con as object
Dim rs as object

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

Hatayla karşılaşmadığım zaman kaptma/sifirlama kısmını eklemeyi hep unutuyorum) ama haklisiniz önlem olarak eklenmeliydi

Rica ederim.
Evet hdr=no için 
Sorgu alanları f1,f2 gibi olmalı normalde ve [Sayfa1$A1:A65536] gibi olmalı.
Çünkü no olursa 65536 dan sonrakilerde problem olur tecrübelerden sabit
Yani normalı sSql= " f1 from.....  olarak yazılacak no için.
Ben hata için insert into daki Access başlıkları içn f1 gibi olmadığı için hata vereceğini düşünmüştüm.


Kolay gelsin.

Örnek dosya ekledim inceleme imkanınız olursa çok sevinirim.