Private Sub sXMLHTTP60() Const strURL As String = "https://www.oslobors.no/ob_eng/" _ & "markedsaktivitet/#/details/EQNR.OSE/overview" Dim objXMLHTTP60 As Object Set objXMLHTTP60 = CreateObject("MSXML2.XMLHTTP.6.0") With objXMLHTTP60 .Open "GET", strURL, False .send Do Until .readyState = 4 And .Status = 200 And .statusText = "OK" DoEvents Debug.Print .readyState Debug.Print .Status Debug.Print .statusText Loop End With End Sub
Bookmarks