Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
'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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
'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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
'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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
'Save as' dialog opens despite Application.DisplayAlerts = False | Excel Programming | |||
Application.DisplayAlerts = False does not disable alerts | Excel Programming | |||
Application.DisplayAlerts = False | Excel Programming | |||
Application.DisplayAlerts = False - Not Working | Excel Programming | |||
Where to put DisplayAlerts = False | Excel Programming |