Retrieving a whole web page from a Query in VBA

[Jtable]

Hello,

I'm trying to get data from a web page that, apparently, is constructed such a way that I don't get all data that appears.
Coinmarketcap historical data

Here's the code I'm using :

    Const WebQueriesSheet = "Web_Queries"
    Sub TestWeb()
        Send_Query ("URL;https://coinmarketcap.com/currencies/" & "Bitcoin") ' Calls for the web query
    
    End Sub
    
    Sub Send_Query(URL)
    
        Sheets(WebQueriesSheet).Range("A:Z").Delete
        Sheets(WebQueriesSheet).Cells.ClearContents
        With Sheets(WebQueriesSheet).QueryTables.Add(Connection:=URL, Destination:=Sheets(WebQueriesSheet).Range("A1"))
            .WebSelectionType = xlEntirePage
            .WebFormatting = xlWebFormattingNone
            .WebDisableDateRecognition = True
            .WebPreFormattedTextToColumns = True
            .WebConsecutiveDelimitersAsOne = True
            .WebDisableRedirections = False
            .Refresh BackgroundQuery:=False
        End With
        For Each cn In ThisWorkbook.Connections
            cn.Delete
        Next cn
    End Sub

I do not get the historical data. I tried to save the page to an HTML format locally, and, in the file, the data is present, so there must be a way, but I can't seem to find it.

Any idea ?

Thanks !

 

[Saurabhj]

Hi,

Would you like to extract data as shown in attached file.

Thanks,
Saurabh

 

[Jtable]

Hello Saurabh,

Yes! As a matter of fact, I only need the 1st 2 lines. But that would do the trick.

 

[Saurabhj]

Hi, the historical data is not opening in Internet Explorer and thus unable to extract the required information.

 

[Jtable]

Well... I just tested, and indeed, not much is showing in IE. But even Microsoft is not recommanding using IE anymore. In Edge, it shows fine.
Is Excel using and IE module to query the Web ?

 

[Saurabhj]

Hi, I tried in Power Query and Web query also but not showing or retrieving the required information.

Sorry didn't find any solution.

Thanks,
Saurabh

 

[Jtable]

Well, thanks anyway...

Maybe someone will have any idea...

Have a nice day