Save Excel file

[shoa]

Hello all

I open a template Excel file as following
-----------------------------
im xlApp As Object

Dim xlBook As Excel.Workbook

Dim xlSheet As Excel.Worksheet

xlApp = CreateObject("Excel.Application")

xlApp.Visible = True

xlBook = xlApp.Workbooks.Open("C:\Database\TempExcel\invoic e.xls")

xlSheet = xlBook.Worksheets(1)

---------------

Then I save this file as with a new name

Dim fileName As String = "C:\aNewFile.xls"

xlBook.SaveAs(fileName)

-------------

However, if there is existed file "aNewFile.xls", there is a message
informing that there is a file with the same name and ask me if I want to
replace it. I do not want to have this message and want my application
automatically replaces the old file. Coul you please tell me how to do that.

Thank you very much for your help

S.Hoa

[Doug Bell]

Shoa,
Why don't you test for the existing file and delete it before you do the
save.

Doug

"shoa" <so*@slingshot.co.nz> wrote in message
news:1118894312.202141@ftpsrv1...

Hello all

I open a template Excel file as following
-----------------------------
im xlApp As Object

Dim xlBook As Excel.Workbook

Dim xlSheet As Excel.Worksheet

xlApp = CreateObject("Excel.Application")

xlApp.Visible = True

xlBook = xlApp.Workbooks.Open("C:\Database\TempExcel\invoic e.xls")

xlSheet = xlBook.Worksheets(1)

---------------

Then I save this file as with a new name

Dim fileName As String = "C:\aNewFile.xls"

xlBook.SaveAs(fileName)

-------------

However, if there is existed file "aNewFile.xls", there is a message
informing that there is a file with the same name and ask me if I want to
replace it. I do not want to have this message and want my application
automatically replaces the old file. Coul you please tell me how to do that.
Thank you very much for your help

S.Hoa

[Peter Proost]

With xlApp
.DisplayAlerts = False
xlBook.SaveAs("C:\aNewFile.xls")
.DisplayAlerts = True
End With

I think this should do it

Greetz Peter

--
Programming today is a race between software engineers striving to build
bigger and better idiot-proof programs, and the Universe trying to produce
bigger and better idiots. So far, the Universe is winning.
"shoa" <so*@slingshot.co.nz> schreef in bericht
news:1118894312.202141@ftpsrv1...

Hello all

I open a template Excel file as following
-----------------------------
im xlApp As Object

Dim xlBook As Excel.Workbook

Dim xlSheet As Excel.Worksheet

xlApp = CreateObject("Excel.Application")

xlApp.Visible = True

xlBook = xlApp.Workbooks.Open("C:\Database\TempExcel\invoic e.xls")

xlSheet = xlBook.Worksheets(1)

---------------

Then I save this file as with a new name

Dim fileName As String = "C:\aNewFile.xls"

xlBook.SaveAs(fileName)

-------------

However, if there is existed file "aNewFile.xls", there is a message
informing that there is a file with the same name and ask me if I want to
replace it. I do not want to have this message and want my application
automatically replaces the old file. Coul you please tell me how to do that.
Thank you very much for your help

S.Hoa