(18/01/2020, 13:21)berduş yazdı:Hocam her iki sinide denedim ama eksik işleç hatası alıyorum.kodunusSql = "select * from [Sayfa1$]"
ile değiştirip deneyebilirsinizsSql = "select * from [Sayfa1$] where f1 Is Not Null"
yada üsttek koda dokunmazsınız
ama değerlerin belirtildiği satırı değiştirirsiniz
yerinedegerler = degerler & ", '" & rs.Fields(1) & "'"
If Len(Nz(rs.Fields(0), "")) > 0 Then degerler = degerler & ", '" & rs.Fields(1) & "'"
Excel Den Hücre Verisi Alma ?
Konuyu Okuyanlar: 3 Ziyaretçi