AccessTr.neT

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

(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?

[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[attachment=31229]

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

(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.

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) & "'"