Macro to delete blank rows in Notepad

[Hansulet]

I need a code to delete blank rows in txt file (Opened with Notepad)
Or something to delete blank rows in specified txt file.

I need these becaue a have a code in Excel to create a txt file but these file is created with blank rows (I don't know why)

'Salveaza ordine.txt
Sheets("ordine plata").Select

Dim fileHandle As Integer
Dim thisRow As Long


fileHandle = FreeFile
Open "D:\OPFV 2016 - OP\ordine.txt" For Output As #fileHandle
For thisRow = 1 To LastRow
Print #fileHandle , Cells(thisRow, 1).Text
Next thisRow
Close Filename

 

[Joe4]

I need these becaue a have a code in Excel to create a txt file but these file is created with blank rows (I don't know why)

I would recommend trying to fix your VBA code that is creating the file first.
Is the code you posted a snippet of that code?
I would look at your LastRow calculation. The code you posted doesn't show how that is being calculated.
Note that if you are deleting any rows after that calculation, you may need to recalculate it before running the snippet of code you posted.

 

[Hansulet]

LastRow = Cells(Rows.Count, "A").End(xlUp).Row

Anyway, I need a code to save the sheet as txt file. Can you help me?

 

[Joe4]

Please post the entire code procedure.
The timing of when you calculate the last row may play an important role here, so we need to see where it is and how it interacts with the rest of the code.