Sep 30 2019 10:59 AM
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
Oct 01 2019 02:28 PM
Hello! You've posted your question in the Community Discussion space, which is intended for discussion around the Tech Community website itself, not product questions. I'm moving your question to the Excel space - please post Excel questions here in the future.
Oct 01 2019 04:18 PM
Oct 02 2019 02:45 AM
Greg, please check this thread https://stackoverflow.com/questions/31606394/convert-csv-to-xlsx-using-command-line if helps
Oct 02 2019 06:41 AM
Thanks for your reply Sergei! I will review this link and let you know if it resolves my inquiry.
Best,
Greg
Oct 18 2019 07:16 AM
Solution
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
Oct 18 2019 07:16 AM
Solution
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