One possibility is to loop through all the files and convert the extension
from .xls to .txt. Try:

Sub ChangeXLStoTXT()
'Based on some old code from me
'with modifications from Dave Peterson
Dim MyFolder As String
Dim NewName As String
Dim i As Long
MyFolder = "C:\Program Files\ztest" '<----Change
Application.ScreenUpdating = False
With Application.FileSearch
.NewSearch
.LookIn = MyFolder
.SearchSubFolders = False
.Filename = "*.xls"
.FileType = msoFileTypeAllFiles
If .Execute() 0 Then
For i = 1 To .FoundFiles.Count
NewName = Left(.FoundFiles(i), _
Len(.FoundFiles(i)) - 4) & ".txt"
Set Wkbk = Workbooks.Open(Filename:=.FoundFiles(i))
With Wkbk
Application.DisplayAlerts = False
.SaveAs Filename:=NewName
Application.DisplayAlerts = True
.Close savechanges:=False
End With
Next
Else
MsgBox "There were no files found."
Exit Sub
End If
End With
Application.ScreenUpdating = True
End Sub

---
HTH
Jason
Atlanta, GA

"finao" wrote:

I need to convert hundreds of XLS files to TXT. I am aware of File/Save-as
and I also tried written a macro. Neither solution is workable even the
number of files I have to convert. Does Excel have a mass convert utility?