Sub EuroNext_Macro()
Dim DataCH(20) As String
Dim trace As Integer
trace = 1 'trace
ioerr = 0
On Error GoTo Errortrap
ipos = 1
DataCH(1) = "https://www.nicvroom.be"
DataCH(2) = "https://live.euronext.com/en/product/stock-options/ABN-DAMS"
l = Len(DataCH(ipos))
If trace = 1 Then Debug.Print "EuroNext_Macro " + " ipos " + Str(ipos) + " l " + Str(l)
If l < 2 Then Exit Sub
Debug.Print "1"
With ActiveWorkbook.Connections("Verbinding139")
.Name = "Verbinding139"
.Description = ""
End With
Debug.Print "2"
Text$ = " Hallo "
If trace = 1 Then Debug.Print "Euronext_Macro Text$ " + Text$
Range("A1:A300").Select
With Selection.QueryTable
.Connection = "URL;" + DataCH(ipos)
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
Range("A1").Select
On Error GoTo 0
Exit Sub
Errortrap:
ioerr = Err.Number
Debug.Print "EuroNext_Macro ioerr"; ioerr
DISDIRERR blad$
ierr = ioerr
On Error GoTo 0
End Sub
Normally this program worked as expected.
Excel 2019 Query: Table highlighting is disabled because this page uses internet explorer's compatibility mode
I have found this document: https://answers.microsoft.com/en-us/msoffice/forum/all/table-highlighting-is-disabled-because-this-page/43ebb196-b7bd-4cba-8b80-e5bbbb525238 |
Excel 2019 Query Error.
Excel 2019 Query Error. |
Back to my home page Contents of This Document