Txt yi bir boşluk vererek oluşturmak

[akmes]

Selamlar;

Üstadlarım bu siteden bulduğum txt oluştran bir makrom var.Fakat bu makronun txt oluştururken sütunlar arasında bir boşluk vermesni istiyorum.Bu konuda yardımınızı rica ediyorum.

 

[hamitcan]

Sub DosyayaYazdir2()
yol = "C:\test.txt"
  Open yol For Output As #1
    satir = [c65536].End(3).Row
    For i = 1 To satir
      Print #1, Cells(i, 3), Cells(i, 4), Cells(i, 5)
    Next i
  Close #1
End Sub

 

[akmes]

Üstadım ben tam anlatamadım herhalde yazması ile ilgili değil içeriği ile ilgili, ben makroyu çalıştırdıktan sonra kelime aralıklarının bir boşluk olması için ne yapılabilir demiştim.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kod işinize yarayabilir.

Print #1, Cells(i, 3), vbTab, Cells(i, 4),  vbTab, Cells(i, 5)

 

[akmes]

Hocam çok teşekkür ederim.