Skip to main content

AccessTr.neT


Excel Den Hücre Verisi Alma ?

Excel Den Hücre Verisi Alma ?

#13
"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
Cevapla
#14
(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
[Resim: do.php?img=9452]
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.
Cevapla
#15
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.
Cevapla
#16
(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 Img-grin

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.
Cevapla
#17
[attachment=31202 yazdı:
.zip deneme1.zip (Dosya Boyutu: 40,81 KB | İndirme Sayısı: 9)
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.
Cevapla
#18
[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 Img-grin

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.
.zip deneme1.zip (Dosya Boyutu: 40,81 KB | İndirme Sayısı: 0)
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task