CODE: [Copy to clipboard]
set ws=createobject("wscript.shell")
path=ws.currentdirectory
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open(WScript.Arguments(0))
objExcel.Cells.Select
objExcel.Selection.Columns.AutoFit
''ActiveWorkbook.SaveAs Filename:="B:\data2007-11-18.xls", FileFormat:= _
'' xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
'' , CreateBackup:=False
objExcel.ActiveWorkbook.SaveCopyAs "B:\data2007-11-18.xls"
objExcel.Quit