How to automate converting Excel xls files to Excel xml format?

Question

I have about 200 Excel files that are in standard Excel 2003 format.

I need them all to be saved as Excel xml - basically the same as opening each file and choosing

Answer 1

Sounds like a job for my favorite-most-underrated language of all time: VBScript!!

Put this in a text file, and make the extension ".vbs":

set xlapp = CreateObject("Excel.Application")
set fso = CreateObject("scripting.filesystemobject")
set myfolder = fso.GetFolder("YOURFOLDERPATHHERE")
set myfiles = myfolder.Files
for each f in myfiles
   set mybook = xlapp.Workbooks.Open(f.Path)
   mybook.SaveAs f.Name & ".xml", 47
   mybook.Close
next

I haven't tested this, but it should work