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
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