Artik Çalışmanızı bu konuya ekleyebilirsiniz. Inceleyp çözmeye calisiriz
Excel Den Hücre Verisi Alma ?
[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 calisirizekledim efendim
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
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ınPeki hocam kusura bakmayın ama esas istediğim exceldeki boş satırı görmeyim sadece alan üzerindeki veri olan satırları nasıl ekleyebiliriz.
2 - Extended Properties=""Excel 12.0 Excel 12.0 yerine sizinki ile uyumlu sürümü ekleyebilisiniz
sSql = "select * from [Sayfa1$]"
kodunu sSql = "select * from [Sayfa1$] where f1 Is Not Null"
ile değiştirip deneyebilirsinizyada ü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) & "'"
Konuyu Okuyanlar: 3 Ziyaretçi