06-21-2010, 01:40 PM
Hi Chanda,
Check with the belw code:
Check with the belw code:
Code:
TestSuitFileLocation="H:"
TestSuitFileName="H:\Book.xls"
TestSuitFileNewName="NewFile.xls"
Set excelApp = CreateObject("Excel.Application")
excelApp.Visible = True
excelApp.Workbooks.Open (TestSuitFileName)
excelApp.ActiveWorkBook.SaveAs TestSuitFileLocation&"\"&TestSuitFileNewName
excelApp.quit
Set excelApp = Nothing