text dosyasına kayıt sorunu

[kaptanangel]

Arkadaşlar excel.web.tr nin müdavimlerindeyim.Harika bir paylaşım sitesi.
Soruma gelince aşağıda yazdığım kodla text dosyasına kolon formatında kayıt ediyor fakat text dosyasında 240 karakterden sonra kolon olarak alt satıra atıyor ve öyle kayıt ediyor. Ne kadar uğraştıysam toplamda 243 olan karakter sayılı veri tek satır olarak alt alt kayıt ettiremedim.
Yardımcı Olabilirseniz Çok Memnun Olurum. Şimdiden Teşekkür Ederim.


Range("Z1").Activate
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Cells.Select
Cells.EntireColumn.AutoFit
Columns("A:A").Select
Selection.ColumnWidth = 8
Columns("B:B").Select
Selection.ColumnWidth = 8
Columns("C:C").Select
Selection.ColumnWidth = 26
Columns("D").Select
Selection.ColumnWidth = 8
Range("E:E,H:H").Select
Range("H1").Activate
Selection.ColumnWidth = 1
Columns("F:G").Select
Selection.ColumnWidth = 12
Columns("I:I").Select
Selection.ColumnWidth = 3
Columns("J:M").Select
Selection.ColumnWidth = 1
Columns("N").Select
Selection.ColumnWidth = 30

Columns("Q:Q").Select
Selection.ColumnWidth = 35

Columns("R:S").Select
Selection.ColumnWidth = 5
Columns("T:T").Select
Selection.ColumnWidth = 1
Columns("U:U").Select
Selection.ColumnWidth = 10
Columns("V:V").Select
Selection.ColumnWidth = 1
Columns("W:W").Select
Selection.ColumnWidth = 10
Columns("X:X").Select
Selection.ColumnWidth = 1
Columns("Y:Y").Select
Selection.ColumnWidth = 2' Bu kolon genişliği 2 olan kolon
Columns("Z:Z").Select
Selection.ColumnWidth = 1 ' ve bu kolondaki veriler diğer kolonlar yan yana kayıt edilirken bu 2 si kolon olarak alta geçiyor.
Range("AA:AA,AB:AB").Select
Range(Selection, Selection.End(xlToRight)).Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Rows("1:1").Select
Selection.Delete Shift:=xlUp

Cells.Select
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
' .WrapText = False
' .Orientation = 0
' .AddIndent = False
' .IndentLevel = 0
' .ShrinkToFit = False
' .ReadingOrder = xlContext
' .MergeCells = False
End With
Columns("V:V").Select
Selection.Delete Shift:=xlToLeft
Range("A1").Select

ChDir "C:\"
ActiveWorkbook.SaveAs Filename:="C:\" + dater + Raporu.txt", FileFormat _
:=xlTextPrinter, CreateBackup:=False
Windows(Dir(dosya)).Activate
ActiveWindow.Close False
ActiveWindow.Close False
MsgBox (" Successful ! ")

iligili text dosyası ektedir.

 

[kaptanangel]

Galİba Bu İŞten Anlayan Çikmadi.