Einen Wert von einer Webseite extrahieren

Question

Guten Tag - Ich bin mir sicher, dass das viele Male angesprochen wurde, aber ich bin frustriert Ich habe alle möglichen Wege ausprobiert und kann es immer noch nicht zur Arbeit bringen.

Ich versuche, einen Wert von einer Website zu kratzen, die den folgenden Code hat:

ich meinen Code nur 169,23

Dies ist extrahieren müssen, die nicht funktioniert:

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 

Dies gibt einen Fehler zurück.

Irgendwelche Vorschläge, wie Code oben geändert werden muss?

Danke,

Answer 1

dieses Geben Sie einen Schuss und den Wert in Ihrem Blatt finden.

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