"On Error" problem with a VBA web query
I'm on hold waiting for Microsoft's $45 support for this problem.
Does anybody have any opinion as to whether this will turn out to be:
1. an undocumented bug
2. a documented bug
3. my fault syntatically
4. lack of memory on this computer
5. Yahoo Finance's fault
6. other
Regards,
Brian
"Brian in London" wrote:
Why does "On Error" seem to make no difference? Once every few hundred web
queries will fail because of some timeout or webpage not being available but
the "On Error" doesn't seem to help. The error is always on the last line:
".Refresh BackgroundQuery:= False".
Any insight would be appreciated.
Regards,
Brian
code
excerpt........................................... ...............................
On Error GoTo query3error
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://finance.yahoo.com/q?s=" & ticker,
Destination:=Range("A1"))
.Name = "q?s=" & ticker
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = False ' was True
.RefreshStyle = xlOverwriteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.webtables = webtables(trials - 1) ' was "16"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = True ' was False
.Refresh BackgroundQuery:=False
End With
--
Brian
--
Brian
|