Sayfayı Xml olarak kaydetme Yardım

[komanchero]

Merhaba arkadaşlar,

Sub TxtAktar()
Dim i, sat As Integer
sat = ActiveSheet.UsedRange.Rows.Count
Open ThisWorkbook.Path & "\Deneme.txt" For Output As #1
    For i = 1 To sat
        Print #1, Cells(i, "a"), Cells(i, "d") 'a ve d sütun adıdır.
    Next i
Close
MsgBox "Txt Dosyası Oluşturuldu", vbInformation, "www.excel.web.tr"
End Sub

bu kod ile sayfanın belirtilen hücrelerini txt yapabiliyorum ama ben hücre belirtmeden, aktif olan tüm sayfayı txt yapmak istiyorum.

ne farkı var diyebilirsiniz ama hücre seçip txt yaptığında değerlerin formatı değişiyor.

Tüm sayfayı direkt olarak txt yaptığında değer formatında değişme olmuyor.

elle yaptığımda oluyor ama bunu makroya dökemiyorum.

 

[Muzaffer Ali]

Merhaba. Aşağıdaki kodu dener misiniz?

ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\Deneme.txt", FileFormat:=xlUnicodeText, CreateBackup:=False