exceli txt ye çevirme

[silenzi]

Arkadaşlar ekteki dosyaya makro yazamıyorum exeli txt ye çevirmem gerekiyor. Bakar mısınız?

 

[Orion1]

Dosyanız ektedir.
Eskisini silip yenisini yazıyor.

Sub excel_to_txt()
Dim sat As Long, i As Long
sat = Cells(65536, "A").End(xlUp).Row
Open (ThisWorkbook.Path & "\test.txt") For Output As #1
For i = 1 To sat
    Print #1, Cells(i, "A").Value & ";" & Cells(i, "B").Value & ";" & _
    Cells(i, "C").Value & ";" & Cells(i, "D").Value & ";" & Cells(i, "E").Value & _
    ";" & Cells(i, "F").Value
Next
Close #1
MsgBox "test.txt dosyası oluştu" & vbLf & "evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub

 

[hamitcan]

Sub DosyayaYazdirX()
yol = "C:\TEST1.TXT"
  Open yol For Output As #1
    satir = [A65536].End(3).Row
    sutun = 6
        For i = 2 To satir
            For j = 1 To sutun
              a = a & Cells(i, j) & ";"
            Next j
        Print #1, Left(a, Len(a) - 1)
        a = ""
        Next i
  Close #1
End Sub