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