yalnız dikkatimi çekti ben degerler = Mid(degerler, 2) şeklinde yazmıştım ama sizin yüklediğiniz örnekte
degerler = Mid(degerler, 5) orada 2 olmalı 5 olursa hata verir çalışmaz

(18/01/2020, 13:21)berduş yazdı:

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

Hocam her iki sinide denedim ama eksik işleç hatası alıyorum.

(18/01/2020, 13:36)berduş yazdı: yalnız dikkatimi çekti ben degerler = Mid(degerler, 2) şeklinde yazmıştım ama sizin yüklediğiniz örnekte
degerler = Mid(degerler, 5) orada 2 olmalı 5 olursa hata verir çalışmaz

bir üstteki mesaj )

(18/01/2020, 13:41)berduş yazdı:

(18/01/2020, 13:36)berduş yazdı: yalnız dikkatimi çekti ben degerler = Mid(degerler, 2) şeklinde yazmıştım ama sizin yüklediğiniz örnekte
degerler = Mid(degerler, 5) orada 2 olmalı 5 olursa hata verir çalışmaz

bir üstteki mesaj )

Tam ben de onu fark ettim deniyordum Siz gene herzamanki hızınızla yetişip bi sorunu daha çözdünüz, artık övecek kelime bulamıyorum Muhteşemsiniz. Sorun çözüldü çok çok Teşekkürler.

(17/01/2020, 01:29)feraz yazdı: Ş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:50)Myalim yazdı:

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

Hocam bu konu ile ilgili son kez soru sormak istiyorum dosya eklemek için düzenleme yapabilir misiniz. Sizin kodlarınızı sıfırdan örneklere çok güzel uyarladım ama esa projede yapamadım yardımınıza ihtiyaç duyuyorum, resmi kurum olduğundan ana örneği ekleyemiyordum ama düzenledim şimdi esas projeden uydurma bilgiler ile örnek ekleyeceğim.

Çalışmanızı ekleyebilirsiniz.