Xls export to txt

[marreco]

Hi.
Dear I have the following routine that exports to txt

Sub Exportar() 
    Application.DisplayAlerts = False 

    template_file = ActiveWorkbook.FullName 

    fileSaveName = Application.GetSaveAsFilename( _ 
                   InitialFileName:="C:\username" + _ 
                                    VBA.Strings.Format(Now, "mmddyyyy") + ".txt", _ 
                   fileFilter:="Text Files (*.txt), *.txt") 

    If fileSaveName = False Then 
        Exit Sub 
    End If 

    'cria uma cópia da pasta de trabalho atual da planilha atual 
    Dim newBook As Workbook 
    Dim plan As Worksheet 
    Set newBook = Workbooks.Add 

    ThisWorkbook.ActiveSheet.Copy Before:=newBook.Sheets(1) 

    'exclui as demais planilhas 
    For Each plan In newBook.Sheets 
        If plan.Name <> ActiveSheet.Name Then 
            newBook.Worksheets(plan.Index).Delete 
        End If 
    Next 

    newBook.SaveAs Filename:= _ 
                          fileSaveName, FileFormat:=xlTextWindows, _ 
                          CreateBackup:=False 

    'fecha a pasta de trabalho gerada 
    newBook.Close SaveChanges:=True 
    Set newBook = Nothing 

    MsgBox "O arquivo foi exportado com sucesso! ", vbInformation, "Exportar arquivos" 

End Sub

The doubt is as follows, in order that the code is the same txt all exports to spreadsheet rows or 65536 rows! How can I adjust to the routine that exports only rows filled?

Cross-Post
Xls export to txt

I appreciate the help

[Admin]

Hi,

Have a look at : http://www.excelfox.com/forum/f12/wr...t-file-vba-89/

[marreco]

I did not understand ....
I need a code to get a file in xls, and transfome in a txt file

[Admin]

Hi

That's what the code does.

Paste the code in a standard module and pass the parameters.

Sub ConvertRangeIntoTextFile(ByRef RangeToConvert, ByVal FileName As String, _
                            Optional FilePath As String, Optional Delim As String = vbTab)

where pass the range,filename and optional filepath as well as the delimiter. That's all.

[marreco]

hI.
in my testing is being created a file in XLS format