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