salvare in formato txt | Excel e gli applicativi Office

salvare in formato txt
di mga297 (utente non iscritto) data: 24/11/2016 12:03:05
sto salvando un foglio in formato testo ma una volta salvato trovo due righe bianche tra ogni riga di testo

questo è il contenuto del foglio che sto copiando in un nuovo foglio di una nuova cartella e sto salvando

sotto le righe del codice

F401T8803500241116F24241116XXX XXX 2$099999 E
10000000112883420155 XXX ENERGIA SPA 0000001
200000001MILAZZO MICORSO DI PORTA ROMANAIA 4 201612300
4000000011301d pv2879 000000000000000001000000000000000000
40000000114000000000038200000000000000000P000000000038200
500000001010350011299000000001735W0000000000010000 11957540153 320161230000000000000000 3
5000000010211957540153 0200899999 1
EF01T8803500241116F24241116AEN AEN 00000010000000000010000000000000000000000008 E

grazie 1000


    Sheets("file txt").Select
    Sheets("file txt").Copy
    
    
    ActiveWorkbook.SaveAs Filename:=disco & path_zero & path_uno & path_due & nome_file_txt, FileFormat:=xlUnicodeText

di patel data: 24/11/2016 12:35:00
allega il file, comunque io ho attivato il registratore di macro, ho salvato e la macro è questa e non ci sono righe bianche

Sub Macro1()
'
' Macro1 Macro
'

'
    ActiveWorkbook.SaveAs Filename:="F:DownloadCartel2.txt", FileFormat:= _
        xlTextMSDOS, CreateBackup:=False
End Sub

di mga297 (utente non iscritto) data: 24/11/2016 14:54:54
ho provato ma il risultato non è cambiato
ho allegato il file

di patel data: 24/11/2016 15:29:25
volevo il file excel non il risultato.