Break line on txt file is not desired - excel

Question

This part of my code will save an excel file as txt file.
I select the range to be copied (in excel) to a new Workbook. This workbook will be saved as txt file. The range will always be a string with 15 columns and 1, 2 or 3 lines.
After being saved as txt file, this creates an extra break line after the pasted string. But i don't want that...
Can you help, please?
Sub Gravar_TXT()
Dim wb As Workbook
Dim saveFile As String
Dim RangeTXT As Range
On Error Resume Next
Dim wbEmail As Workbook, strGetFilename As String 'abrir ficheiro "encomenda"
strGetFilename = Application.GetOpenFilename(, , "Open Import Workbook")
Dim wsEmail As Worksheet, wsTXT As Worksheet
Set wbEmail = Workbooks.Open(strGetFilename)
Set wsTXT = wbEmail.Sheets("TXT")
'With wbEmail 'useless in your code context
wsTXT.Activate
xTitleId = "Selecionar Range para incluir no ficheiro TXT"
Set RangeTXT = Application.Selection
Set RangeTXT = Application.InputBox("Selecionar Range", xTitleId, RangeTXT.Address, Type:=8)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set wb = Application.Workbooks.Add
RangeTXT.Copy
With wb.Worksheets(1).Range("A1")
.PasteSpecial xlPasteColumnWidths
.PasteSpecial Paste:=xlPasteValuesAndNumberFormats
End With
saveFile = Application.GetSaveAsFilename(fileFilter:="Text Files (*.txt), *.txt")
wb.SaveAs FileName:=saveFile, FileFormat:=xlText, CreateBackup:=False
wb.Close
Application.CutCopyMode = False
Application.DisplayAlerts = True
Application.ScreenUpdating = True
'End With 'useless in your code context
End Sub
The "Final TXT file
Thank you

Answer 1

Use the next Sub, please:
Sub cleanTxtFile(fullFilename As String)
Dim objFSO As Object, objTF As Object, strTXT As String
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTF = objFSO.OpenTextFile(fullFilename, 1)
strTXT = objTF.ReadAll
objTF.Close
'Clear the last two strTXT characters (CrLf):
strTXT = left(strTXT, Len(strTXT) - 2) 'clear the last character
'put back the arranged text:
Dim Fileout As Object
Set Fileout = objFSO.CreateTextFile(fullFilename, True, True)
Fileout.Write strTXT
Fileout.Close
End Sub
It will be called from inside your existing procedure:
'existing code...
'wb.SaveAs FileName:=saveFile, FileFormat:=xlText, CreateBackup:=False
wb.Close
'Here will be placed above Sub call:
cleanTxtFile saveFile
'your existing code...
Application.CutCopyMode = False
'...
I edited your question code and arranged a little from indentation point of view. I observed that the With wbEmail ... End With is useless in your code context and I commented these two lines.
Please try it and let me know if it works as you need, or further clarifications are necessary.

Answer 2

#FaneDuru...There's some issue with the code.
I've pasted like this:
'Here will be placed above Sub
Call cleanTxtFile 'saveFile
Application.CutCopyMode = False
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End With
End Sub
Sub cleanTxtFile(saveFile As String)
Dim objFSO As Object, objTF As Object, strTXT As String
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTF = objFSO.OpenTextFile(saveFile, 1) 'After this step, it will return to the "main sub"
strTXT = objTF.ReadAll
objTF.Close
'Clear the last two strTXT characters (CrLf):
strTXT = Left(strTXT, Len(strTXT) - 2) 'clear the last character
'put back the arranged text:
Dim Fileout As Object
Set Fileout = objFSO.CreateTextFile(fullFilename, True, True)
Fileout.Write strTXT
Fileout.Close
End Sub