title: Open an Excel file and save as .XLS
body: <p>I have the following code, I want it to open my files which are saved as .xlsx and simply save them again with the same filename but this time as a .xls file so that they are compatible with Excel 2003</p>
  
  <pre><code>Set app = CreateObject("Excel.Application")
  Set fso = CreateObject("Scripting.FileSystemObject")
  
  For Each f In fso.GetFolder("Y:\Billing_Common\autoemail").Files
    If LCase(fso.GetExtensionName(f)) = "xlsx" Then
      Set wb = app.Workbooks.Open(f.Path)
  
  app.DisplayAlerts = False
  
  wb.SaveAs "*.xls*"
  wb.Close SaveChanges=True
  app.Close
  app.Quit
  
    End if
  
  Set f = Nothing
  Set fso = Nothing
  Next
  </code></pre>