Another problem reading HTML-page

[Oldfox]

Strange. I have two sites. One of them works ok and data is copied into Excel. The other site does not work . Run time error 462. The remote server does not exist or is unavailable.

There must something different in those two servers. Certificate? (just guessing)

Sub ReadHtmlPage()

Dim IE As Object
Dim URL As String

Set IE = CreateObject("InternetExplorer.Application")

IE.Silent = True
IE.Visible = True
IE.FullScreen = False

URL = "https://heppa.hippos.fi/heppa/app?page=racing%2FRaceResults&service=external&sp=CF1703714400000&sp=CES" ' this does not work
'URL = "https://www.is.fi/supersaa/" ' this URL works

IE.Navigate URL
Application.Wait (Now + TimeValue("0:00:02"))

Do Until (IE.ReadyState = 4 And Not IE.busy)
   DoEvents
Loop

IE.ExecWB 17, 2
IE.ExecWB 12, 0

Application.Wait (Now + TimeValue("0:00:02"))

Worksheets("Data").Activate
ActiveSheet.Cells.Clear
ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:=False, NoHTMLFormatting:=True

IE.Quit
Set IE = Nothing

End Sub

 

[Domenic]

It seems to work for me. Maybe it's a timing issue? Try increasing the wait times.

 

[Oldfox]

Thx. This is strange. I run the vba code in my laptop and it worked!
Laptop has win11 and the date of iexplorer.exe is 6.5.2022.
My pc has win10 and the date of iexplorer.exe is 15.11.2023.
I reset Internet Explorer security settings in my pc, still did not work.

I tried to rollback Internet Explorer to v10 but I failed in it. Any ideas how to rollback IE?