Forum Discussion

Greg_Mouning's avatar
Greg_Mouning
Copper Contributor
Sep 30, 2019
Solved

Searching fo Excel macro to convert multiple TXT files to multiple Excel Workbooks ...

Hi, 

I wish to locate an Excel macro that will batch convert multiple TXT files to multiple Excel workbooks not single workbook like this:

http://rondebruin.nl/win/s3/win007.htm

Thanks for any assistance, 
Greg

  • Greg_Mouning's avatar
    Greg_Mouning
    Oct 18, 2019

    @Sergei Baklan 

     

    Alas I found what I needed from the following weblink:

     

    https://www.extendoffice.com/documents/excel/4615-excel-batch-convert-csv-to-xls-xlsx.html

    Just needed to make a few minor changes to VBA: Convert CSV files to XLSX code for TXT files:

    xCSVFile = Dir(xSPath & "*.csv")

    changed to

    xCSVFile = Dir(xSPath & "*.txt")

     

    ActiveWorkbook.SaveAs Replace(xSPath & xCSVFile, ".csv", ".xls", vbTextCompare), xlWorkbookDefault

    changed to

    ActiveWorkbook.SaveAs Replace(xSPath & xCSVFile, ".txt", ".xlsx", vbTextCompare), xlOpenXMLWorkbook


    -Greg

5 Replies