プルしようとすると、担当者の値 - 実行時エラー「を-2147417848

Question

絶えず私はHTMLをいじりやウェブサイトから値をプルする方法を学習しようとしている

Run-time error '-2147417848 (80010108)': 

Automation error 

The object invoked has disconnected from its clients 

を得ます。このテストでは、Stack Overflowプロファイルを開いてrep値をセルに配置しています。私はすべての参照ライブラリを有効にしていますが、私はこのエラーを継続的に受け取ります。

Option Explicit 
Sub GetTheValue() 
    Dim IE As InternetExplorer, retrievedvalue As Variant, oHTML_Element As IHTMLElement 

    Set IE = New InternetExplorerMedium 
    IE.Visible = True 

    IE.navigate "https://stackoverflow.com/users/7668613/dwirony" 

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

    For Each oHTML_Element In IE.Document.getelementsbyID("top-cards") 
     If oHTML_Element.classname = "g-col fl-none -rep" Then 
      retrievedvalue = oHTML_Element.InnerText 
      Exit For 
     End If 
    Next oHTML_Element 

    Workbooks("Book1").Worksheets("Sheet1").Range("A1").Value = retrievedvalue 
End Sub 

エラーがライン上

For Each oHTML_Element In IE.Document.getelementsbyID("top-cards") 

を発生ここで私からの読み取りしようとしているスニペットです：

<div id="top-cards" class="g-row _gutters p-highlights"> 

<aside class="g-col g-column -card -reputation js-highlight-box-reputation"> 
    <h1 class="g-col -title">Reputation</h1> 
    <div class="g-row -row-first"> 
     <div class="g-col g-column"> 
      <div class="g-row _gutters fl-none"> 
       <span class="g-col fl-none -rep">897</span> 

Answer 1

は、ここでは、2つの方法です：

Set doc = IE.document 

'1. Drill down level by level 
Set el = doc.getElementById("top-cards") 
Debug.Print el.getElementsByTagName("div")(0). _ 
       getElementsByTagName("div")(0). _ 
       getElementsByTagName("span")(0).innerText 

'2. Use a query selector 
Debug.Print doc.querySelector("#top-cards div div span").innerText 

Answer 2

こすりしてくださいXHR：

Sub Test() 

    With CreateObject("MSXML2.XMLHTTP") 
     .Open "GET", "https://stackoverflow.com/users/7668613/dwirony", False 
     .Send 
     Debug.Print CLng(Split(Split(.ResponseText, """reputation"">", 2)(1), "<", 2)(0)) 
    End With 

End Sub