'Save as' dialog opens despite Application.DisplayAlerts = False
 

After serious thinking Poniente wrote :
Hi,
I'm using the following code to save a workbook under a unique name in
a single directory. This code runs on several instances of excel.
Often these save commands happen at the same time.

<begin of code
RetrySaveHandler:
On Error GoTo RetrySaveHandler
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=SaveName, Password:="",
WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
Application.DisplayAlerts = True
<eoc

About 5 times a day, a 'Save as' dialog box opens asking for a file
name, with random looking default filename filled out, like:
7D2E8000
and like
9AB6B000
(i.e. not anything like the SaveName I specified and even without
the .xls extention)

If I then manually set the pointer to 'SaveName', it will save without
a problem.

Unfortunately, the errorhandler doesn't catch the above error.
Is there anyone who understands what is the problem (and/or has an
idea how to solve it ;-) )?

Regards,
Poniente

Sorry I didn't read your post earlier! I'm familiar with this issue and
have found my own solution as follows:

With Application
.EnableEvents = False: .DisplayAlerts = False
End With

'save and/or close files

With Application
.EnableEvents = True: .DisplayAlerts = True
End With

Does this help?

--
Garry

Free usenet access at http://www.eternal-september.org
ClassicVB Users Regroup! comp.lang.basic.visual.misc

'Save as' dialog opens despite Application.DisplayAlerts = False
 

It happens that GS formulated :
After serious thinking Poniente wrote :
Hi,
I'm using the following code to save a workbook under a unique name in
a single directory. This code runs on several instances of excel.
Often these save commands happen at the same time.

<begin of code
RetrySaveHandler:
On Error GoTo RetrySaveHandler
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=SaveName, Password:="",
WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
Application.DisplayAlerts = True
<eoc

About 5 times a day, a 'Save as' dialog box opens asking for a file
name, with random looking default filename filled out, like:
7D2E8000
and like
9AB6B000
(i.e. not anything like the SaveName I specified and even without
the .xls extention)

If I then manually set the pointer to 'SaveName', it will save without
a problem.

Unfortunately, the errorhandler doesn't catch the above error.
Is there anyone who understands what is the problem (and/or has an
idea how to solve it ;-) )?

Regards,
Poniente

Sorry I didn't read your post earlier! I'm familiar with this issue and have
found my own solution as follows:

With Application
.EnableEvents = False: .DisplayAlerts = False
End With

'save and/or close files

With Application
.EnableEvents = True: .DisplayAlerts = True
End With

Does this help?

I failed to mention that the SaveAs Filename MUST include the full path
or Excel will display the SaveAs dialog to prompt you for it. IOW, your
SaveName variable should be "save_to_folder_path\" and "filename".

--
Garry

Free usenet access at http://www.eternal-september.org
ClassicVB Users Regroup! comp.lang.basic.visual.misc

'Save as' dialog opens despite Application.DisplayAlerts = False
 

On 24 jun, 16:10, GS wrote:
It happens that GS formulated :









After serious thinkingPonientewrote :
Hi,
I'm using the following code to save a workbook under a unique name in
a single directory. This code runs on several instances of excel.
Often these save commands happen at the same time.

<begin of code
* RetrySaveHandler:
* On Error GoTo RetrySaveHandler
* Application.DisplayAlerts = False
* ActiveWorkbook.SaveAs Filename:=SaveName, Password:="",
WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
* Application.DisplayAlerts = True
<eoc

About 5 times a day, a 'Save as' dialog box opens asking for a file
name, with random looking default filename filled out, like:
* 7D2E8000
and like
* 9AB6B000
(i.e. not anything like the SaveName I specified and even without
the .xls extention)

If I then manually set the pointer to 'SaveName', it will save without
a problem.

Unfortunately, the errorhandler doesn't catch the above error.
Is there anyone who understands what is the problem (and/or has an
idea how to solve it ;-) )?

Regards,
Poniente

Sorry I didn't read your post earlier! I'm familiar with this issue and have
found my own solution as follows:

* With Application
* * .EnableEvents = False: .DisplayAlerts = False
* End With

* 'save and/or close files

* With Application
* * .EnableEvents = True: .DisplayAlerts = True
* End With

Does this help?

I failed to mention that the SaveAs Filename MUST include the full path
or Excel will display the SaveAs dialog to prompt you for it. IOW, your
SaveName variable should be "save_to_folder_path\" and "filename".

--
Garry

Free usenet access athttp://www.eternal-september.org
ClassicVB Users Regroup! comp.lang.basic.visual.misc

Hi Garry,
Thanks for your suggestion! I looked into EnableEvents and it apears
to me that all kinds of events will 'disabled' by this line... so I
stick to the the solution with the separate temporary directories..
(which works fine, ... so far ;-) )
Poniente