Konvertieren von Html-String in HTMLDocument VBA

Ich Schreibe ein makro zu packen, mit dem aktuellen Wechselkurs aus yahoo aber ich habe Probleme beim konvertieren einer html-string in einem HTMLDocument, mir zu erlauben, um die Suche für die gewünschten element-id. Hier ist mein code bisher, aber es scheitert an der debug.print-line. 

Public Sub Forex(currency1 As String, currency2 As String)

Dim oXHTTP As Object
Dim doc As HTMLDocument
Dim url As String
Dim html As String
Dim id As String

Set oXHTTP = CreateObject("MSXML2.XMLHTTP")

url = "http://finance.yahoo.com/q?s=" & currency1 & currency2 & "=X"

oXHTTP.Open "GET", url, False
oXHTTP.send

html = oXHTTP.responseText
Set oXHTTP = Nothing

Set doc = New HTMLDocument
doc.body.innerHTML = html

id = "yfs_l10_" & currency1 & currency2

Debug.Print doc.getElementById("id").innerText

End Sub

Was vermisse ich hier?

InformationsquelleAutor doovers | 2013-09-02
  1. 4

    Ich bin die Nutzung der Methode aus excel-vba-http-request-download-Daten-aus-yahoo-Finanzen:

    Sub Forex(currency1 As String, currency2 As String)

    Dim url As String, html As String, id As String
    Dim oResult As Variant, oLine As Variant, sRate As String


    url = "http://finance.yahoo.com/q?s=" & currency1 & currency2 & "=X"
    id = "<span id=""yfs_l10_" & currency1 & currency2 & "=x"">"
    html = GetHTTPResult(url)

    oResult = Split(html, vbLf)
    For Each oLine In oResult
        If InStr(1, oLine, id, vbTextCompare) Then
            sRate = Split(Split(oLine, "<span id=""yfs_l10_audusd=x"">")(1), "</span>")(0)
            Exit For
        End If
    Next
End Sub

Function GetHTTPResult(sURL As String) As String
    Dim XMLHTTP As Variant, sResult As String

    Set XMLHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
    XMLHTTP.Open "GET", sURL, False
    XMLHTTP.send
    sResult = XMLHTTP.responseText
    Set XMLHTTP = Nothing
    GetHTTPResult = sResult
End Function
    • Ich bin ein wenig enttäuscht, dass es nicht möglich ist, um aus einem html-string in einem htmldocument aber deine Lösung funktioniert perfekt. Danke!!!
    • Die ursprüngliche Frage ist beantwortet, in diesem anderen thread. stackoverflow.com/q/9995257/1337544
    InformationsquelleAutor PatricK
  2. 1

    Du bist fast da, Sie müssen nur die id falsch:

    id = "yfs_l10_" & currency1 & currency2 & "=X"

Debug.Print doc.getElementById(id).innerText
    InformationsquelleAutor SWa
Schreibe einen Kommentar