Converting or Saving Multiple Excel 2000 Files & Folders to Excel 2010 Files & Folder

Hi, I have a couple hundred Excel (and Word - I assumed these can be handled the same way if there is a solution) files that I've created using MS Office 2000. I now have MS Office 2010 and would like to save these files in the 2010 format. I know how to do them individually, and have already saved a few files. However I'd like to clean things up a bit and save all of my Excel and Word files in the 2010 format, and get rid of Office 2000.

Rather than doing them individually, is there anyway of selecting all of my 2000 folders and files and have them converted or saved to the 2010 format at once. It would sure save a lot of time.

Thanks for your help.


Mike.

Perhaps a macro like this?

Macro author: Roy Cox (royUK) and I've modified it a bit:

Option Explicit

Sub Open_All_Files()
Dim oWbk As Workbook
Dim sFil As String
Dim sPath As String
Dim tPath As String

sPath = "C:\Test" 'location of files to be converted
tPath = "C:\Target" 'location of converted file

ChDir sPath
sFil = Dir("*.xls") 'change or add formats

Do While sFil <> "" 'will start LOOP until all files in folder sPath have been looped through

Set oWbk = Workbooks.Open(sPath & "\" & sFil) 'opens the file

sFil = Replace(ActiveWorkbook.Name, ".xls", ".xlsm")

ActiveWorkbook.SaveAs tPath & "\" & sFil, FileFormat:=xlOpenXMLWorkbookMacroEnabled

oWbk.Close

sFil = Dir

Loop ' End of LOOP

End Sub

This macro will save all files in folder C:\Test to folder C:\Target as macro enabled files. If your .xls files don't contain any macros change ".xlsm" to ".xlsl" and change "FileFormat:=xlOpenXMLWorkbookMacroEnabled" to "FileFormate:=xlOpenXMLWorkbook"

You said you had 2000 folders. Is there perhaps a comon structure to the folder names? Or are all folders subfolders under a master folder? If so macro could be written to start with the master folder and then loop through all subfolders.

Alf

Ps Any credit for solving this problem goes to royUK

You