AccessTr.neT
Excel Den Hücre Verisi Alma ? - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Excel Den Hücre Verisi Alma ? (/konu-excel-den-hucre-verisi-alma.html)

Sayfalar: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Cvp: Excel Den Hücre Verisi Alma ? - feraz - 17/01/2020

Bende gifteki gibi hata verdi Img-grin
Çalışan dosyayı ekleyebilirmisiniz sayın @Myalim


[Resim: 2OG8TDI9.gif]

Cvp: Excel Den Hücre Verisi Alma ? - berduş - 17/01/2020

buton kodu
txtDosyaAdres = CurrentProject.Path & "\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(1) & rs.Fields(2) & rs.Fields(3) & "'"

    rs.MoveNext

    Loop

    

    degerler = Mid(degerler, 2)

    

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

                      " values (" & degerler & ")"

    CurrentDb.Execute sSql

    Set rs = Nothing


Cvp: Excel Den Hücre Verisi Alma ? - feraz - 17/01/2020

Yine aynı hata veriyor.
Birde sanırım Access ile karıştırdınız.



'txtDosyaAdres = CurrentProject.Path & "\AKTAR.xlsx" ' Buraya dosya adresi ve ad? yaz?lacak
yerine.

txtDosyaAdres = ThisWorkbook.Path & "\AKTAR.xlsx" ' Buraya dosya adresi ve ad? yaz?lacak 
Böyle olmalı.

Yada alttaki gibi.

txtDosyaAdres = ThisWorkbook.FullName

Cvp: Excel Den Hücre Verisi Alma ? - berduş - 17/01/2020

(17/01/2020, 01:22)feraz yazdı: ThisWorkbook
accesste hata verir excelde kullanılıyor ama accesste CurrentProject kullanılıyor ama fullname olmaz ozaman çalıştığınız Access dosyasının adı ve adresi gelir

Cvp: Excel Den Hücre Verisi Alma ? - feraz - 17/01/2020

Şimdi  bu kodlar accesse mi excelemi eklenecek ben excele ekliyordum.

Şimdi denedim kodu accesste çalıştırıp hata vermedi.Bende excelde deniyordum Img-grin

Elinize sağlık.

Cvp: Excel Den Hücre Verisi Alma ? - Myalim - 18/01/2020

(17/01/2020, 01:26)berduş yazdı:
(17/01/2020, 01:22)feraz yazdı: ThisWorkbook
accesste hata verir excelde kullanılıyor ama accesste CurrentProject kullanılıyor ama fullname olmaz ozaman çalıştığınız Access dosyasının adı ve adresi gelir

(17/01/2020, 01:29)feraz yazdı: Şimdi  bu kodlar accesse mi excelemi eklenecek ben excele ekliyordum.

Şimdi denedim kodu accesste çalıştırıp hata vermedi.Bende excelde deniyordum Img-grin

Elinize sağlık.
@"berduş" hocam yeni bi sorun senaryosu yaşadım çözüm gene sizdedir ekde örnek ve açıklama ekledim. 

Sorunum veri alacağım Excel de boşluk satırım bulunuyor bunu saymadan sadece dolu satırlardaki verileri nasıl alabilirim, bu konu ile ilgili yazmış olduğunuz kod üzerinden yapabilirmiyiz, çünkü o işimi diğer senaryolarda çok güzel gördü. Teşekkürler şimdiden.

örnek ekleyemedim ama son verdiğiniz kod üzerinde  olabilir ve  ya dm atabilirim.