GetAttribute

Marc · 2019-05-05T23:10:55+00:00

Guten Abend liebe Forumsgemeinde, ich versuche mal wieder einer Webseite einen Wert innerhalb der Dom-Struktur zu entlocken. Was eigentlich ganz simpel sein dürfte klappt bislang aber nicht so wie ich es mache. Das ist das Element in der Dom-Struktur, welchem ich den innerText (75,67) entnehmen möchte: *span class="Trsdu(0.3s) Fw(b) Fz(36px) Mb(-4px) D(ib)" data-reactid="34">75,67 Da der Wert des data-reactid Attributs die eindeutigste Referenz in diesem Element darstellt möchte ich dieses referenzieren um an den innerText zu kommen. Das ist mein Code: (Eine Fehlermeldung bekomme ich nicht, aber meine Varibale currPrice bleibt leer.) IE.navigate "https://de.finance.yahoo.com/quote/BMW.DE" Do DoEvents Loop Until IE.readyState = 4 Dim currPrice As String Dim HTMLDoc3 As MSHTML.HTMLDocument Dim dColl As MSHTML.IHTMLElementCollection Dim dTag As MSHTML.IHTMLElement Set HTMLDoc3 = IE.Document Set dColl = HTMLDoc3.getElementsByTagName("span") For Each dTag In dColl If dTag.getAttribute(" data-reactid").Value = "34" Then currPrice = dTag.innerText Next dTag

Hallo Marc,
ich hatte schon gesehen, dass es noch einen anderen Fehler gibt, aber ich war nicht sicher, ob Du nochmal antwortest. Die Angabe des Attributes stimmt nicht ;-) Es heißt nicht " data-reactid" sondern " data-reactid=". Der Wert ist im HTML-Quelltext in Anführungszeichen eingeschlossen, deshalb muss die Zeile so lauten:

If dTag.getAttribute(" data-reactid=") = "34" Then currPrice = dTag.innerText

Soooo, nun hast Du geschrieben, der eindeutige Identifikator ist das Attribut. Darüber kann man es zwar eindeutig machen, aber Du brauchst die Schleife dafür, weil man auf Attribute nicht direkt zugreifen kann, wenn man eine Menge von Möglichkeiten hat. Es gibt aber auch die Methode getElementsByClass() und die CSS-Klasse Deines gesuchten Span-Tags "Trsdu(0.3s) Fw(b) Fz(36px) Mb(-4px) D(ib)" ist sogar einmalig im ganzen HTML-Quelltext. Du kannst also direkt auf die richtige Stelle zugreifen mit:

dColl = HTMLDoc3.getElementsByClassName("Trsdu(0.3s) Fw(b) Fz(36px) Mb(-4px) D(ib)")(0)

Ich machs mal kurz als kleines Makro, damit klar wird, wie Du den Wert direkt über den IE abgreifen kannst. Ich verwende late binding, weshalb ich mit Objekt-Variablen arbeite, statt mit dem MSHTML-Gerümpel, für das ein Verweis gesetzt werden muss. Damit kann so ein Makro auf jedem Rechner unter Excel direkt verwendet werden, ohne einen Verweis setzen zu müssen (Ich habe auch mal die Variablen-Deklarationen nach vorne gesetzt, wo sie hingehören):


Sub AktienPreisVonYahooHolen()
'Für den Internetzugriff
Dim browser As Object
Dim url As String
Dim knotenWurzel As Object
Dim aktienPreisErmittelt As String
'URL als Variable, um direkt eine Schleife über
'mehrere Aktienkurse zu ermöglichen
url = "https://de.finance.yahoo.com/quote/BMW.DE"
'Internet Explorer initialisieren, Sichtbarkeit festlegen,
'URL aufrufen und warten bis Seite vollständig geladen wurde
Set browser = CreateObject("internetexplorer.application")
browser.Visible = False
browser.Navigate url
Do Until browser.ReadyState = 4: DoEvents: Loop
'Die Seite läd den "inneren Teil" nach. Also braucht es mehr Zeit (ggf. anpassen)
'Application.Wait (Now + TimeValue("Pause Stunden:Pause Minuten:Pause Sekunden"))
Application.Wait (Now + TimeValue("00:00:01"))
'Richtiges HTML-Element direkt abgreifen
Set knotenWurzel = browser.document.getElementsByClassName _
("Trsdu(0.3s) Fw(b) Fz(36px) Mb(-4px) D(ib)")(0)
If Not knotenWurzel Is Nothing Then
'Wenn es das Element gibt
aktienPreisErmittelt = Trim(knotenWurzel.innerText)
Else
'Wenn es das Element nicht gibt
aktienPreisErmittelt = "Es konnte kein Preis ermittelt werden."
End If
'Ausgabe des Ergebnisses
MsgBox aktienPreisErmittelt
End Sub

Viele Grüße,
Zwenn

Hallo Marc,
Trim() sorgt lediglich dafür, dass führende und schließende Leerzeichen entfernt werden. Der Wert, der übrig bleibt ist ein String, weil die Variable aktienPreisErmittelt in der er steht vom Datentyp String ist.
Für die Umwandlung zu einem Datentyp, der eine Zahl repräsentiert, gibt es zwei Möglichkeiten. Eine hast Du schon selbst genannt, nämlich eine mathematische Operation, die den Wert selbst nicht verändert. Es gibt jedoch auch Funktionen für diesen "Vorgang". Der "Vorgang" nennt sich type casting (sinngemäß Typ Umwandlung) und die gezielten Funktionen dafür findest Du hier:
http://docs.microsoft.com/de-de/office/vba/language/concepts/getting-started/type-conversion-functions
Für Deinen Fall willst Du eine Zeichenkette (String) in eine Zahl umwandeln. Du hast den intuitiven Weg genommen, womit sich der neue Datentyp automatisch ergibt. Wenn Du die Funktionen zur Umwandlung des Datentyps nimmst, musst Du wissen was Du machst. In Deinem Fall handelt es sich nämlich um eine Gleitkommazahl, also eine Zahl, in der es einen Nachkommaanteil gibt. Dafür eignet sich die Funktion CDbl(). Um einen String in einen Double-Wert umzuwandeln, würde man also schreiben:

variableVomDatentypDouble = CDbl(zahlImStringFormat)

So wie Du es gemacht hast kommt aber genau das Gleiche raus. Über die Funktionen kann man aber gezielt Datentypen umwandeln und sei es nur zur Übung um zu wissen, was man da eigentlich grade macht ;-) Wenn Du in Deinem Makro jedoch mit dem so gewonnenen Wert weiter arbeiten willst, brauchst Du auf jeden Fall eine Variable vom richtigen Datentyp und musst dann natürlich auch genau wissen, was Du da grade machst. Egal welchen der beiden Wege zum type casting du wählst.
Viele Grüße,
Zwenn

Forumthread: GetAttribute

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Infobox / Tutorial

Werte aus der DOM-Struktur mit Excel VBA extrahieren

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)