vba ile belirtilen bilgiler doğrultusunda dat uzantılı kayıt

[muygun]

Merhaba VBA üstatları;
4 sayfalı bir excel dosyasında aynı yada ayrı bir sayfada belirtilen Paht(yol),dosya adı ve uzantısı , yazdırılacak verilerin alınacağı dosya adı,sayfa adı, veri aralığı referans alınarak txt yada dat uzantılı (C,A yada D sürücülerinden belirlenen sürücü ve alt klasörün içine) kayıt yapılabilir mi?
Yardımcı olacak arkadaşlara şimdiden tşk. eder, iyi çalışmalar dilerim.
Not:gerekli olabilecek açıklama ve istediğim sonuçla ilgili görüntüyü dosya içinde belirttim.

 

[Mahmut Kök]

Aşağıdaki kod fikir verecektir:

sub dene
dosya = [b2]
Open dosya For Output As #1
For a = 5 To [b65536].End(3).Row
veri = Cells(a, "b")
Print #1, veri
Next
Close #1
MsgBox "tamam"
end sub

 

[muygun]

Merhaba.
Syn.mesleki yazdığınız kodlar kısmende olsa işimi gördü.
İstediğim; Dosyada belirtilen Paht ile istenilen kaydın oluşturulması idi
Burada ilgili klasör yok ise, aynı dosya adında kayıt var ise gerekli uyarının çıkması uyarıya istinaden alt klasörün oluşturulması gerekmekteydi.
Ama kodlar bu şekilde de kullanılabilir.
Emeğinize sağlık. Tşk.ederim.