Error message in Web Query written in VBA
 

Hello to everybody!
I'm a new programmer in VBA and I'm trying to develop a macro in order
to get data through a web query.
For some query I have a problem I cannot solve by myself: when I try
to transfer a big web page table in excel this error message appear
"There are currently too many topics in this group that display first.
To make this topic appear first, remove this option from another
topic.".
Can someone help me?
Below you can find my VBA code.
Thanks a lot

Set QT =
ActiveSheet.QueryTables.Add(Connection:=ConnectStr ing,
Destination:=Range("A1"))
With QT
.Name = myname
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingAll
.WebTables = "1"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
End With

' Refresh the Query
QT.Refresh BackgroundQuery:=True

Error message in Web Query written in VBA
 

If the url, etc is not proprietary, post it and we can take a look.

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"sea urchin" wrote in message
oups.com...
Hello to everybody!
I'm a new programmer in VBA and I'm trying to develop a macro in order
to get data through a web query.
For some query I have a problem I cannot solve by myself: when I try
to transfer a big web page table in excel this error message appear
"There are currently too many topics in this group that display first.
To make this topic appear first, remove this option from another
topic.".
Can someone help me?
Below you can find my VBA code.
Thanks a lot

Set QT =
ActiveSheet.QueryTables.Add(Connection:=ConnectStr ing,
Destination:=Range("A1"))
With QT
.Name = myname
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingAll
.WebTables = "1"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
End With

' Refresh the Query
QT.Refresh BackgroundQuery:=True