Sekme ile ayrılmış txt dosya oluşturulabilir mi ?

[yenilik025]

Herkese merhabalar ;

Sekme ile ayrılmış şekilde DOSYA - Farklı Kaydet metodundan farklı olarak
masaüstüne kod ile
Sekme ile ayrılmış txt dosya oluşturulabilir mi ?
2 satırdan başlamak üzere yalnzca dolu satırlar oalcak şekilde ?

 

[ÖmerBey]

Merhaba,
Aşağıdaki kodu deneyiniz... (Masaüstünde TextDosyası.txt isimli dosya oluşturur.

Sub kod()
dosya = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\TextDosyası.txt"
Open dosya For Output As #1
For a = 2 To Cells(Rows.Count, "A").End(3).Row
    Print #1, Cells(a, "A"), Cells(a, "B"), Cells(a, "C"), Cells(a, "D"), Cells(a, "E")
Next
Close #1
End Sub

 

[yenilik025]

Hocam çok teşekkür ederim evet istediğimiz bu idi.

 

[ÖmerBey]

Rica ederim,
İyi çalışmalar diliyorum...