웹 페이지에서 값 추출하기

Question

좋은 하루 - 여러 번 언급했음을 확신하지만, 나는 가능한 모든 방법을 시도했지만 여전히 작동하지 않습니다.

나는 다음과 같은 코드가 웹 사이트에서 값을 긁어하려고 :

Sub ImportCurrentPrice2() 

    Dim appIE As Object 
    Set appIE = CreateObject("internetexplorer.application") 

    Visible = True 

    With appIE 
    .navigate "https://finance.google.com/finance?q=AAPL" 
    .Visible = False 
    End With 

    Do While appIE.Busy 
    DoEvents 
    Loop 

    Set allRowOfData = appIE.document.getElementsByClassName("hilite") 

    Dim myValue As String: myValue = allRowOfData.Cells(4).innerHTML 

    appIE.Quit 
    Set appIE = Nothing 
    Range("A1").Value = myValue 

End Sub 

:

난 단지 169.23

를 추출 할 필요를이 작동하지 않습니다 내 코드입니다

오류를 반환합니다.

위의 코드를 어떻게 수정해야할까요?

고마워요,

Answer 1

이 사진을 한 장주고 시트에 값을 찾으십시오.

Sub ImportCurrentPrice2() 
    Dim appIE As New InternetExplorer, html As HTMLDocument 
    Dim item_data As Object 

    With appIE 
     .Visible = True 
     .navigate "https://finance.google.com/finance?q=AAPL" 
     Do Until .readyState = 4: DoEvents: Loop 
     Set html = .document 
    End With 

    Set item_data = html.queryselector(".pr span") 
    [A1] = item_data.innerText 

    appIE.Quit 
End Sub 

OR :

Set item_data = html.getElementsByClassName("pr")(0).getElementsByTagName("span")(0) 
[A1] = item_data.innerText