VBA를 사용하여 DOM에서 ID 찾기

Question

웹 페이지를 열고 특정 값을 찾아 A1 셀에 넣으려면 Excel vba가 필요합니다. 페이지를 열 수는 있지만 원하는 번호를 얻을 수 없습니다. 도와주세요.

현재 코드는 내가 가진 : [

Answer 1

대신

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

이

을 시도 : 아래

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 탐색기 데이터입니다

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

도움이 되길 바랍니다