Code for saving excel file

redback · May 24th, 2002, 02:00 PM

The following code works fine in my VB program however when the code is executed it always asks if you want to save over the previous version. Is their a way to default the save so the message will not come up asking if you want to overwrite.

'Save the Workbook and Quit Excel
oBook.SaveAs "C:atemplot.xls"
oExcel.Quit

Tom Schreiner · May 24th, 2002, 02:23 PM

Hi
Add this line at the beginning of your sub...

On Error Resume Next

Add this line before you save the new file...

Kill "C:\atemplot.xls"

This will delete the old file.

The On Error will keep the macro from stopping as a run-time error will occur if you try to delete a file which does not exist.

Tom

redback · May 24th, 2002, 02:27 PM

Awesome that will work, Thanks Tom

Corni · Jun 17th, 2002, 08:55 PM

Whenever you want to avoid the display of warning messages, and to execute the default alternatives use:

Application.DisplayAlerts = False

In your case place this statement before the line with SaveAs, and after that place following line of code:

Application.DisplayAlerts = True

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

May 24th, 2002, 02:00 PM	#1
redback New Member Join Date: May 2002 Posts: 31	The following code works fine in my VB program however when the code is executed it always asks if you want to save over the previous version. Is their a way to default the save so the message will not come up asking if you want to overwrite. 'Save the Workbook and Quit Excel oBook.SaveAs "C:atemplot.xls" oExcel.Quit

May 24th, 2002, 02:23 PM	#2
Tom Schreiner Board Regular Join Date: Mar 2002 Location: Cincinnati, Ohio, USA Posts: 6,824	Hi Add this line at the beginning of your sub... On Error Resume Next Add this line before you save the new file... Kill "C:\atemplot.xls" This will delete the old file. The On Error will keep the macro from stopping as a run-time error will occur if you try to delete a file which does not exist. Tom

May 24th, 2002, 02:27 PM	#3
redback New Member Join Date: May 2002 Posts: 31	Awesome that will work, Thanks Tom

Jun 17th, 2002, 08:55 PM	#4
Corni Board Regular Join Date: Mar 2002 Location: Brampton Posts: 324	Whenever you want to avoid the display of warning messages, and to execute the default alternatives use: Application.DisplayAlerts = False In your case place this statement before the line with SaveAs, and after that place following line of code: Application.DisplayAlerts = True