Wie man span-id-Wert in excel-VBA?

Ok also hier ist mein gesamter code:

Private Sub CommandButton1_Click()

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

With appIE
    .Navigate "http://finance.yahoo.com/q/ks?s=" & "AAPL"
    .Visible = True
End With

Do While appIE.Busy
    DoEvents
Loop

Set getPrice = appIE.Document.getElementById("yfs_l84_aapl")
Dim myValue As String: myValue = getPrice.Cells(1).innerHTML

appIE.Quit
Set appIE = Nothing

Range("B1").Value = myValue

End Sub

Und hier ist der HTML-Code, den ich versuche zu Lesen in Excel (genauer gesagt, ich brauche die 113.92):

<span id="yfs_l84_aapl">113.92</span>

Was muss ich ändern in diesen zwei Zeilen code zu Lesen, dass ein "span id"?

Set getPrice = appIE.Document.getElementById("yfs_l84_aapl")
Dim myValue As String: myValue = getPrice.Cells(1).innerHTML

Oder, alternativ, gibt es eine Möglichkeit, nur um zu Lesen, was direkt nach "yfs_184"??

Ich bin ganz neu auf Codierung und arbeite sehr hart, um besser zu werden, so dass jede Hilfe wird wirklich geschätzt!! Danke! 🙂

InformationsquelleAutor John Szramiak | 2015-09-18

  1. 1

    Verwenden:

    myValue = getPrice.innerText
    Das funktioniert... aber nur das erste mal, dass ich den code schreiben und ausführen. Ich erhalte eine Fehlermeldung msg jedes mal, wenn ich versuche, führen Sie es nach, dass :/ Hier ist der aktualisierte code-Zeilen: Set getPrice = appIE.document.getElementById("yfs_l84_aapl") // Dim myValue As String: myValue = getPrice.innerText
    Sie sind wahrscheinlich der Fehler, weil appIE.Busy ist nicht ausreichend, um sicherzustellen, dass die Seite tatsächlich geladen. Ändern Sie diese Zeile:
    Do While appIE.Busy Or appIE.readyState <> 4

    InformationsquelleAutor Excel Hero

Schreibe einen Kommentar