08-28-2014, 06:35 PM
Try this:
Code:
Set objExcel = Eval("GetObject(,""Excel.application"")")
objExcel.DisplayAlerts = False
Set xlBook=objExcel.Workbooks.ActiveWorkbook
Set xlSheet = xlBook.ActiveSheet
xlSheet.Activate
xlBook.SaveAs("c:\test.xls")