Saveas
 

I'm using the following code to save a file.

ActiveWorkbook.SaveAs FileName:=fs_Path & "Data\" & ls_SmallSaveName &
".xls", FileFormat:= _
xlNormal, Password:="", writerespassword:="",
ReadOnlyRecommended:=False _
, CreateBackup:=False

A dialog box comes up if the file already exists asking whether to replace
it.

How can I handle it if the user says 'No'?

Thanks,

Dale

Saveas
 

Hi
to save in all cases try
application.displayalerts=false
ActiveWorkbook.SaveAs FileName:=fs_Path & "Data\" &
ls_SmallSaveName &
".xls", FileFormat:= _
xlNormal, Password:="", writerespassword:="",
ReadOnlyRecommended:=False _
, CreateBackup:=False
application.displayalerts=True



--
Regards
Frank Kabel
Frankfurt, Germany


Dale Levesque wrote:
I'm using the following code to save a file.

ActiveWorkbook.SaveAs FileName:=fs_Path & "Data\" &
ls_SmallSaveName & ".xls", FileFormat:= _
xlNormal, Password:="", writerespassword:="",
ReadOnlyRecommended:=False _
, CreateBackup:=False

A dialog box comes up if the file already exists asking whether to
replace it.

How can I handle it if the user says 'No'?

Thanks,

Dale

Saveas
 

Dale,

What do you mean by handle it? If you are happy that the user can say no,
then there is nothing more to do.If you are not happy with this and insist
that it is saved, you could precede the SaveAs with

Application.DisplayAlerts = False

and then the question doesn't get asked. Reset to True afterwards.

--
HTH

-------

Bob Phillips
"Dale Levesque" <dale at dynamicwindows.com wrote in message
...
I'm using the following code to save a file.

ActiveWorkbook.SaveAs FileName:=fs_Path & "Data\" & ls_SmallSaveName &
".xls", FileFormat:= _
xlNormal, Password:="", writerespassword:="",
ReadOnlyRecommended:=False _
, CreateBackup:=False

A dialog box comes up if the file already exists asking whether to replace
it.

How can I handle it if the user says 'No'?

Thanks,

Dale

Saveas
 

No Frank, I'd like to close the current workbook without saving as the
specified name when the user selects 'No'.

Dale

"Frank Kabel" wrote in message
...
Hi
to save in all cases try
application.displayalerts=false
ActiveWorkbook.SaveAs FileName:=fs_Path & "Data\" &
ls_SmallSaveName &
".xls", FileFormat:= _
xlNormal, Password:="", writerespassword:="",
ReadOnlyRecommended:=False _
, CreateBackup:=False
application.displayalerts=True



--
Regards
Frank Kabel
Frankfurt, Germany


Dale Levesque wrote:
I'm using the following code to save a file.

ActiveWorkbook.SaveAs FileName:=fs_Path & "Data\" &
ls_SmallSaveName & ".xls", FileFormat:= _
xlNormal, Password:="", writerespassword:="",
ReadOnlyRecommended:=False _
, CreateBackup:=False

A dialog box comes up if the file already exists asking whether to
replace it.

How can I handle it if the user says 'No'?

Thanks,

Dale

Saveas
 

By handle it I mean that if the user selects 'No'. The sub exits gracefully
without an error message.

Dale

"Bob Phillips" wrote in message
...
Dale,

What do you mean by handle it? If you are happy that the user can say no,
then there is nothing more to do.If you are not happy with this and insist
that it is saved, you could precede the SaveAs with

Application.DisplayAlerts = False

and then the question doesn't get asked. Reset to True afterwards.

--
HTH

-------

Bob Phillips
"Dale Levesque" <dale at dynamicwindows.com wrote in message
...
I'm using the following code to save a file.

ActiveWorkbook.SaveAs FileName:=fs_Path & "Data\" & ls_SmallSaveName
&
".xls", FileFormat:= _
xlNormal, Password:="", writerespassword:="",
ReadOnlyRecommended:=False _
, CreateBackup:=False

A dialog box comes up if the file already exists asking whether to
replace
it.

How can I handle it if the user says 'No'?

Thanks,

Dale

Saveas
 

Test for the existence of a file before you attempt to save it.
Put up a msgbox to query the user and react to the result.


If dir("c:\mypath\myfile.xls") < "" then
ans = Msgbox( "Overwrite", vbYesNo)
if ans = vbNo then
exit sub
else
kill "c:\mypath\myfile.xls"
End if
End if

' do the save



--
Regards,
Tom Ogilvy

"Dale Levesque" <dale at dynamicwindows.com wrote in message
...
By handle it I mean that if the user selects 'No'. The sub exits
gracefully
without an error message.

Dale

"Bob Phillips" wrote in message
...
Dale,

What do you mean by handle it? If you are happy that the user can say
no,
then there is nothing more to do.If you are not happy with this and
insist
that it is saved, you could precede the SaveAs with

Application.DisplayAlerts = False

and then the question doesn't get asked. Reset to True afterwards.

--
HTH

-------

Bob Phillips
"Dale Levesque" <dale at dynamicwindows.com wrote in message
...
I'm using the following code to save a file.

ActiveWorkbook.SaveAs FileName:=fs_Path & "Data\" &
ls_SmallSaveName
&
".xls", FileFormat:= _
xlNormal, Password:="", writerespassword:="",
ReadOnlyRecommended:=False _
, CreateBackup:=False

A dialog box comes up if the file already exists asking whether to
replace
it.

How can I handle it if the user says 'No'?

Thanks,

Dale

Saveas
 

Thanks very much. I was hoping that there would be some kind of return value
or way to trap the saveas method error but your suggestion will work nicely.

Dale

"Tom Ogilvy" wrote in message
...
Test for the existence of a file before you attempt to save it.
Put up a msgbox to query the user and react to the result.


If dir("c:\mypath\myfile.xls") < "" then
ans = Msgbox( "Overwrite", vbYesNo)
if ans = vbNo then
exit sub
else
kill "c:\mypath\myfile.xls"
End if
End if

' do the save



--
Regards,
Tom Ogilvy

"Dale Levesque" <dale at dynamicwindows.com wrote in message
...
By handle it I mean that if the user selects 'No'. The sub exits
gracefully
without an error message.

Dale

"Bob Phillips" wrote in message
...
Dale,

What do you mean by handle it? If you are happy that the user can say
no,
then there is nothing more to do.If you are not happy with this and
insist
that it is saved, you could precede the SaveAs with

Application.DisplayAlerts = False

and then the question doesn't get asked. Reset to True afterwards.

--
HTH

-------

Bob Phillips
"Dale Levesque" <dale at dynamicwindows.com wrote in message
...
I'm using the following code to save a file.

ActiveWorkbook.SaveAs FileName:=fs_Path & "Data\" &
ls_SmallSaveName
&
".xls", FileFormat:= _
xlNormal, Password:="", writerespassword:="",
ReadOnlyRecommended:=False _
, CreateBackup:=False

A dialog box comes up if the file already exists asking whether to
replace
it.

How can I handle it if the user says 'No'?

Thanks,

Dale