Re: Invalid Web Query Error

Tech Tip: Click here to run a free scan for Windows Errors and optimize PC performance

Thanks Don, the code is ok to make it smaller.
But the "invalid web query Error" keeps bugging me.
The way I'm trying to skip the error is this but it doesn't work:

Sub setrefreshon13sheets()
Application.DisplayAlerts = False
On Error Resume Next
For i = 1 To 13
Sheets(CStr(i)).QueryTables(1).RefreshPeriod = 1 '1 minute
Next i
End Sub


"Don Guillett" wrote:

try this. UN tested. But maybe all could be on ONE query with variables
instead of 4 queries.

sub setrefreshonfoursheets
On Error Resume Next
for i=1 to 4
Sheets(cstr(i)).QueryTables(1).RefreshPeriod = 1 '1 minute
next i
end sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software
dguillett1@xxxxxxxxxxxxx
"Alfredo_CPA" <ramos_alf@xxxxxxxxxx(donotspam)> wrote in message
news:2F95B948-4FA6-4730-AECC-002C6984ABD8@xxxxxxxxxxxxxxxx
How can Ignore a "Invalid Web Query Error". I need excel to ignore the
error
and keep procesing the next tables and them process again based in the
refresh period
This is my code:
Application.DisplayAlerts = False
On Error Resume Next
With Sheets("1").QueryTables(1)
.RefreshPeriod = 1 '1 minute
End With
On Error Resume Next
With Sheets("2").QueryTables(1)
.RefreshPeriod = 1 '1 minute
End With
On Error Resume Next
With Sheets("3").QueryTables(1)
.RefreshPeriod = 1 '1 minute
End With
On Error Resume Next
With Sheets("4").QueryTables(1)
.RefreshPeriod = 1 '1 minute
End With

etc...
--
I''''''''m not a looser, I keep trying…


.

Quantcast