I want to Save the excel file without a save as window

[cadari]

Hi All,

Please let me know if there is something wrong with this code, I keep getting a pop up message to save the file and I am given an option to save as a different file and can't append an existing file. Any help is much appreciated:

Code:

sourcefile = [code]"\\..\..\Type_QTP.xls"
        Set xlApp = CreateObject("Excel.Application")
        Set xlWorkBook = xlApp.Workbooks.Open(sourcefile)
                Set xlWorkSheet = xlWorkBook.Worksheets("Sheet1")

           xlWorkSheet.Range("G2:G20") = "Some data"

    xlWorkBook.Save
    xlWorkBook.Close
    xlApp.Quit
    
    ' Destroy all the Objecte references
    Set xlApp = Nothing
    Set xlWorkBook = Nothing
    Set xlWorkSheet = Nothing

Thanks,
Mouli

[sreekanth chilam]

Hi,

Try as given below.

Code:

sourcefile = "\\..\..\Type_QTP.xls"
Set xlApp = CreateObject("Excel.Application")
xlApp.Workbooks.Open(sourcefile)
xlApp.sheets("Sheet1").Select
xlApp.sheets("Sheet1").Range("G2:G20") = "Some data"
xlApp.ActiveWorkBook.Save
xlApp.Application.Quit
Set xlApp = Nothing

[cadari]

Excellent... Thanks Sreekanth...your solution worked....