Excel Save as Method

[chanda Hemke]

How to replace existing excel file while using Save as Method ?
For ex:- In the following code if Newfile.xls already exist ,it gives me alert "Do u want to replace it?" .

Code:

TestSuitFileLocation="H:"
TestSuitFileName="H:\Book.xls"
TestSuitFileNewName="NewFile.xls"
    Set excelApp = CreateObject("Excel.Application")
    excelApp.Visible = true
    Set TestSuiteExcelFile = excelApp.Workbooks.Open (TestSuitFileName)    
    TestSuiteExcelFile.SaveAs TestSuitFileLocation& "\"&TestSuitFileNewName
    TestSuiteExcelFile.close
    excelApp.quit
    Set excelApp = Nothing

[sreekanth chilam]

Hi Chanda,

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

[chanda Hemke]

well thnks for reply..but its not wrking..is there any option like:-

TestSuiteExcelFile.SaveAs testSuitFileLocation& "\"&TestSuitFileNewName, true

[vijayendra.shukla]

Hi Chanda,

Use this code

Code:

TestSuitFileLocation = "H:"
TestSuitFileName = "H:\Book.xls"
TestSuitFileNewName = "NewFile.xls"
Set excelApp = CreateObject("Excel.Application")
excelApp.Visible = True
Set TestSuiteExcelFile = excelApp.Workbooks.Open(TestSuitFileName)
excelApp.DisplayAlerts = False
TestSuiteExcelFile.SaveAs TestSuitFileLocation & "\" & TestSuitFileNewName
TestSuiteExcelFile.Close
excelApp.DisplayAlerts = True
excelApp.Quit
Set excelApp = Nothing

Suppressing the alert messages (excelApp.DisplayAlerts = False and excelApp.DisplayAlerts = True) will save you the trouble.

HTH.

Cheers,
Vijayendra