Hello. What follows is not a complete solution (e.g. you have to cater for
what happens if Excel is already open and you need to provide a full path to
the workbook location), but the salient bits are:
Dim excl As Excel.Application
Set excl = CreateObject("Excel.Application")
excl.Workbooks.Open "workbook.xls"
excl.ActiveWorkbook.SaveAs "tmp.xls"
Kill "workbook.xls"
excl.ActiveWorkbook.SaveAs FileName:="workbook.xls",
FileFormat:=xlExcel9795, Password:="", WriteResPassword:="",
ReadOnlyRecommended:=False, CreateBackup:=False
excl.ActiveWorkbook.Close
Kill "tmp.xls"
> Hi chippy2, could you give an example of your VBA code?
>
[quoted text clipped - 3 lines]
> > VBA within Access to load each spreadsheet and SaveAs an earlier version of
> > Excel.