(09/12/2017, 17:26)ozanakkaya yazdı: Hazırladığım örnek uygulama ektedir. Uygulamadaki kodları kendinize göre uyarlayabilirsiniz.

Ozan hocam ve arkadaşlar herkese merhabalar.En güncel hali ile hazırladığım kod ekte yer almakta.Dosyayı masaüstüne 'metin dosyaları ' ismi ile kaydetmek istiyorum ve ; 

Sub Yazdir()
       
       Dim Dosya As String, DSZ As Long, SrYp As QueryDef, Str
    
    Dosya = "C:\Users\" & Environ("Onurcan") & "\Desktop\MetinDosyalari"
    If Len(Dir(Dosya, vbDirectory)) = 0 Then MkDir Dosya

komutunu ekledim.Sorun burada mı emin değilim ama kod çalışmıyor.Sorun between komutunda diye düşünüyorum,yanlış kullanıyorum.121 tane sütun olduğu için el ile yazıldığında kod sayfası kabul etmiyor sığmıyor çünkü.Ben de between denedim ancak başaramadım...Kodu inceleyip hatayı nerede yaptığımı söyleyebilir misiniz?