Excel Den Hücre Verisi Alma ?

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 ? - berduş - 18/01/2020

Artik Çalışmanızı bu konuya ekleyebilirsiniz. Inceleyp çözmeye calisiriz

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

(18/01/2020, 12:28)Myalim yazdı: Sorunum veri alacağım Excel de boşluk satırım bulunuyor bunu saymadan sadece dolu satırlardaki verileri nasıl alabiliri

biraz daha açıklar mısınız?

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

[attachment=31229 yazdı:feraz pid='162676' dateline='1579213749']Ş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.

(18/01/2020, 12:33)berduş yazdı: Artik Çalışmanızı bu konuya ekleyebilirsiniz. Inceleyp çözmeye calisiriz

ekledim efendim

deneme_son.zip (Dosya Boyutu: 103,3 KB | İndirme Sayısı: 4)

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

1 - mumkunse açıklamaları dosya içinde yapmayın , konuya yazın
2 - Extended Properties=""Excel 12.0 Excel 12.0 yerine sizinki ile uyumlu sürümü ekleyebilisiniz

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

(18/01/2020, 12:46)berduş yazdı: 1 - mumkunse açıklamaları dosya içinde yapmayın , konuya yazın
2 - Extended Properties=""Excel 12.0 Excel 12.0 yerine sizinki ile uyumlu sürümü ekleyebilisiniz

Peki hocam kusura bakmayın ama esas istediğim exceldeki boş satırı görmeyim sadece alan üzerindeki veri olan satırları nasıl ekleyebiliriz.

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

sSql = "select * from [Sayfa1$]"

kodunu

sSql = "select * from [Sayfa1$] where f1 Is Not Null"

ile değiştirip deneyebilirsiniz
yada üsttek koda dokunmazsınız
ama değerlerin belirtildiği satırı değiştirirsiniz

degerler = degerler & ", '" & rs.Fields(1) & "'"

yerine

If Len(Nz(rs.Fields(0), "")) > 0 Then degerler = degerler & ", '" & rs.Fields(1) & "'"