Error message in Web Query written in VBA

S

sea urchin

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:=ConnectString,
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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top