Run a folder with xls fles and save as txt files

**soli004** · 06-28-2012, 04:39 AM

Hello!

I have a folder with +100 files in xls format that I need to change to .txt format and save with the same name in new folder!

I did a macro for one file, but this needs to run for all the files in this folder! I need a script that can run thru all files and save them with extension ".txt"

Thanks

This is how my macro looks like:

    ChDir "C:\test\xls_files"
    Workbooks.Open Filename:="C:\test\xls_files\1.xls"
    ActiveWorkbook.SaveAs Filename:= _
        "C:\test\txt_files\1.txt", FileFormat:=xlText, _
        CreateBackup:=False
    ActiveWindow.Close

**Steffen Thomsen** · 06-28-2012, 04:50 AM

Hi,

Try this

Sub Steffen()
Dim strPath As String
Dim i As Integer

strPath = "C:\test\xls_files"

With Application.FileSearch
    .LookIn = strPath

    For i = 1 To .FoundFiles.Count
           Workbooks.Open .FoundFiles(i)
           With ActiveWorkbook
                   .SaveAs Filename:= "C:\test\txt_files\1.txt", FileFormat:=xlText, CreateBackup:=False
                   .Close
           End with
    Next i
End With
end sub