Save all .xlsx files in a directory to .xls

I'm attempting to open each .xlsx file in a specified directory, then save each file as .xls in a sub directory without dialog boxes appearing and overwriting any existing files in the subdirectory with the same name. The number of files in the directory will vary. Is there a simple VBA script for Excel 2007 that will do this?

There are some commercial applications out there that you can use however here is my version. This code will allow you to browse to the directory containing the files you want to convert from xlsx to xls files (Word 97-2003). It will create the xls files in a subdirectory of the directory you selected called ConvertedFiles. If the sub directory does not exist then it creates it. If when creating the xls files in the ConvertedFiles subdirectory the situation arises that the file exists already I rename the file by appending the current time to the file name. It will iterate through all files in the directory you selected and only convert the xlsx files. There is a button on Sheet 1 of the workbook that will run the code. You could modify the code so the subdirectory could be called something else and you could change the string that is appended to a file if it already exists - really you need something random that is why I selected hours minutes seconds (hhmmss). I have suppressed all alerts so you should not need to interact with the code when it is running. How long the code takes to run depends on the number of files to convert however it should not be a long process.
See attached workbook.

Please Login or Register  to view this content.