D
DJ
I’m working with a series of macros (Excel 2003) that schedule hourly updates
of a bunch of web queries, and then process each hour's query results. The
scheduling macro calls up the refresh and processing macros.
I have been using Application.DisplayAlerts = False in the beginning of both
the scheduling macro, and the refresh macro. None of the referenced macros
include Application.DisplayAlerts = True. However, when one of the queried
websites cannot be opened, a pop-up box states:
“Unable to open http://[web address]. Cannot download information you
requested.â€
This box stops the macros from continuing until it is clicked by a person.
How can I stop alerts that occur during web query refreshes? Some of the
code I’m using follows:
Sub SetSchedule ()
Application.DisplayAlerts = False
Sheets(“Dataâ€).Select
Range(“g5:z5â€).Select
For Each Item in Selection
Application.OnTime Item.Value, “Refreshâ€
Application.OnTime Item.Value + TimeValue(“00:10:00â€), “Macro3â€
Application.OnTime Item.Value + TimeValue(“00:11:00â€), “Macro4â€
Next Item
End Sub
Sub Refresh ()
Windows(“filename.xlsâ€).Activate
Application.StatusBar = “Processing Refreshâ€
Application.DisplayAlerts = False
Sheets(“Dataâ€).Select
Range(“c3â€).Select
ActiveCell = Now()
Application.ScreenUpdating = False
ActiveWorkbook.RefreshAll
Application.OnTime Now + TimeValue(“00:02:30â€), “Macro5â€
End Sub
Sub Macro5 ()
Application.ScreenUpdating = True
Application.StatusBar = “Scheduled Updates are Runningâ€
End Sub
of a bunch of web queries, and then process each hour's query results. The
scheduling macro calls up the refresh and processing macros.
I have been using Application.DisplayAlerts = False in the beginning of both
the scheduling macro, and the refresh macro. None of the referenced macros
include Application.DisplayAlerts = True. However, when one of the queried
websites cannot be opened, a pop-up box states:
“Unable to open http://[web address]. Cannot download information you
requested.â€
This box stops the macros from continuing until it is clicked by a person.
How can I stop alerts that occur during web query refreshes? Some of the
code I’m using follows:
Sub SetSchedule ()
Application.DisplayAlerts = False
Sheets(“Dataâ€).Select
Range(“g5:z5â€).Select
For Each Item in Selection
Application.OnTime Item.Value, “Refreshâ€
Application.OnTime Item.Value + TimeValue(“00:10:00â€), “Macro3â€
Application.OnTime Item.Value + TimeValue(“00:11:00â€), “Macro4â€
Next Item
End Sub
Sub Refresh ()
Windows(“filename.xlsâ€).Activate
Application.StatusBar = “Processing Refreshâ€
Application.DisplayAlerts = False
Sheets(“Dataâ€).Select
Range(“c3â€).Select
ActiveCell = Now()
Application.ScreenUpdating = False
ActiveWorkbook.RefreshAll
Application.OnTime Now + TimeValue(“00:02:30â€), “Macro5â€
End Sub
Sub Macro5 ()
Application.ScreenUpdating = True
Application.StatusBar = “Scheduled Updates are Runningâ€
End Sub