Bende gifteki gibi hata verdi
Çalışan dosyayı ekleyebilirmisiniz sayın @Myalim
Excel Den Hücre Verisi Alma ?
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
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
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
Şimdi bu kodlar accesse mi excelemi eklenecek ben excele ekliyordum.
Şimdi denedim kodu accesste çalıştırıp hata vermedi.Bende excelde deniyordum
Elinize sağlık.
Şimdi denedim kodu accesste çalıştırıp hata vermedi.Bende excelde deniyordum
Elinize sağlık.
(17/01/2020, 01:26)berduş yazdı:(17/01/2020, 01:22)feraz yazdı: ThisWorkbookaccesste 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.@"berduş" hocam yeni bi sorun senaryosu yaşadım çözüm gene sizdedir ekde örnek ve açıklama ekledim.
Şimdi denedim kodu accesste çalıştırıp hata vermedi.Bende excelde deniyordum
Elinize sağlık.
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.
Konuyu Okuyanlar: 1 Ziyaretçi