Cannot Quit at this time Error

[djfatboyfats]

Good afternoon,

I hoping someone can help me because i'm completely baffled. Every morning at 8am have an excel file that opens up via a task scheduler command, after 56 minutes @ 8:56 excel trys to close of its own accord and I get this message from excel saying "Cannot Quit at this time" from a "Microsoft Visual Basic for Applications" pop up box, This stops everything from running and i have to clear the message before it will continue, once i clear the message it will run fine for the rest of the day until tomorrow at 8:56am. I can guarantee there is nothing in my vba code that attempts to close down my excel at this time. I will add all of my vba below.

If anyone could help i would be really grateful.

Module 1

Please Login or Register  to view this content.

Module 2

Please Login or Register  to view this content.

This Workbook

Please Login or Register  to view this content.

No other VBA is present in the sheet




Thanks in advance DJ

[xlnitwit]

Hi,

Why does your Refresh routine reschedule itself 3 times? It would seem to me that that will create an enormous schedule of refreshes quite quickly, and that probably conflicts with your scheduled Close routine, which may be trying to close while a connection is refreshing.

[AlphaFrog]

Please Login or Register  to view this content.

This is confusing. Why schedule OnTime events; cancel them; then reschedule them?

Also, this....
Application.OnTime TimeValue("20:05:00"), "Refresh", , False
Does not cancel this...
Application.OnTime Now + TimeValue("00:00:30"), "Refresh"
...because the Now command makes the time values different between the two, and the On Error Resume Next hides the error.

You could store the Now + TimeValue("00:00:30") value as a public variable then use that variable to cancel the event when necessary.

[djfatboyfats]

The reason I cancelled events then rescheduled them is because i found if the workbook closed down in the day then reopened it would perform the same task twice or as many times the sheet opened and closed, which meant people was receiving multiple emails for the same data. I have made some code adjustments based on both your answers and im hoping the changes will resolve the problem. i will let you know tomorrow morning when it runs.

Thanks

DJ

[djfatboyfats]

First signs look promising. Thanks for your help guys.