VBAを使用してDOM内のIDを見つける

Question

Webページを開き、その中で特定の値を見つけてA1セルに入れるには、Excel vbaが必要です。私はページを開くことができますが、私が望む番号を得ることができません。手伝ってください。

現在のコード私が持っている：

以下

Dim ie As Object 
Dim Doc As HTMLDocument 
Dim Elements As IHTMLElementCollection 
Dim Element As IHTMLElement 
Dim appIE As InternetExplorerMedium 

Set Doc = appIE.Document 
Set appIE = New InternetExplorerMedium 
sURL = "example.com" 

With appIE 
    .Navigate sURL 
    .Visible = True 

    Do While appIE.Busy Or appIE.ReadyState <> 4 
     DoEvents 
    Loop 

    Set Elements = Doc.GetElementsByTagName("input") 

    For Each Element In Elements 
     If Element.ID = "form-id" Then 
      Sheets(1).Cells(1, 1).Valu = Element.InnerText 

     End If 
    Next Element 

Set Elements = Nothing 
.Quit 

End With 

は、それが強調表示された番号を見つける必要がある、そこからDOMエクスプローラのデータです： [

Answer 1

代わりの

Sheets(1).Cells(1, 1).Valu = Element.InnerText 

を試してみてください

Sheets(1).Cells(1, 1).Valu = Element.getAttribute("value") 

希望すること