Yardım excel tablosunu txt formatına çevirmek.

Sub TextFile()
    Dim fso As Scripting.FileSystemObject
    Dim ts As Scripting.TextStream
    Dim txtPath As String
    Dim rng As Range
    Dim r As Range
    Dim i As Long
    Dim colCount As Integer
    Dim thisValue As Variant
    
    
    
    Set fso = New Scripting.FileSystemObject
    
    txtPath = Environ("UserProfile") & "\Desktop\test.txt"
    
    Set ts = fso.OpenTextFile(Filename:=txtPath, _
        IOMode:=ForWriting, Create:=True)
    
    
    Set rng = Sayfa1.Range("A10:A" & Sayfa1.Cells(Sayfa1.Rows.Count, "A").End(xlUp))
  
    colCount = 5
    For Each r In rng.Cells
        For i = 1 To colCount
            If r.Offset(0, i - 1) = "" And i <> 2 Then
                ts.Write "000000000000"
            ElseIf i = 1 Then
                ts.Write Format(r.Offset(0, i - 1), "000")
            ElseIf i = 2 Then
                ts.Write ""
            Else
                ts.Write Format(r.Offset(0, i - 1), "000000000000;-00000000000")
            End If
        Next i
        ts.WriteLine
    Next r
    
    ts.Close
    MsgBox "İşlem tamam"
    Set fso = Nothing
    Set ts = Nothing
    Set rng = Nothing
    Set r = Nothing

End Sub