TXT Sekmeyle Ayrılmış Metin Kaydetme

[caglar103]

Arkadaşlar aşağıda vermiş olduğum örnek txt dosyasını excel ile açıyorum. Rakamları değiştirip tekrar metin sekme(txt) ile kaydetmek istiyorum. Ancak rakamları değiştirip metin sekme(txt) kaydedince rakamların aralarındaki boşluklar bozuluyor. Boşlukların aynı şekilde kalması gerekiyor. Yardımcı olursanız sevinirim. Teşekkürler.

http://1drv.ms/1CxdZjQ

 

[hamitcan]

Bu şekilde deneyin.

Sub Kaydet()
    Open ThisWorkbook.Path & "\IRSTRK.TXT" For Output As #1
    With Sayfa1
        For i = 1 To .[a65536].End(3).Row
                      .Cells(i, 1) = "'" & .Cells(i, 1) & WorksheetFunction.Rept(" ", 20 - Len(.Cells(i, 1)))
            Print #1, .Cells(i, 1) & vbTab _
                    & .Cells(i, 2) & vbTab _
                    & .Cells(i, 3) & vbTab _
                    & .Cells(i, 4) & vbTab _
                    & .Cells(i, 5) & vbTab
        Next i
    Close #1
    End With
    MsgBox "Bitti"
End Sub