Ich hoffe mir kann jemand mit dem folgenden Thema weiterhelfen. Leider kenne ich mich damit noch nicht so gut aus.
Ich möchte Werte von einer Internetseite ins Excel übertragen. Das mache ich wie folgt:
Ich schaue mir den xpath des Wertes z.B. im Google Chrome an (rechte Maustaste auf entsprechenden Wert, Option: Untersuchen, rechte Maustaste auf Eintrag, Option: xpath)
Dieser sieht z.B. wie folgt aus:
//*[@id="NAME1"]/div[1]/div[1]/div[1]/article/article/div/table[1]/tbody/tr[3]/td[2]
Nun möchte ich den Wert wie folgt ins Excel übertragen:
Dim XPfad As Object
Set XPfad = IE.Document. _
getelementbyid("NAME1"). _
getElementsByTagName("div")(0). _
getElementsByTagName("div")(0). _
getElementsByTagName("div")(0). _
getElementsByTagName("article")(0). _
getElementsByTagName("article")(0). _
getElementsByTagName("div")(0). _
getElementsByTagName("table")(0). _
getElementsByTagName("tbody")(0). _
getElementsByTagName("tr")(2). _
getElementsByTagName("td")(1)
cells(y,x).value= XPfad.outertext
Das funktioniert leider nicht!
Fehler: Laufzeitfehler 91 - Objektvariable oder With-Blockvariable nicht festgelegt.
Gehe ich in der xpath-Struktur weiter nach unten funktioniert es (siehe unten). Woran liegt das?
Dim XPfad As Object
Set Pfad = IE.Document. _
getElementsByClassName("NAME2")(0). _
getElementsByTagName("article")(0). _
getElementsByTagName("article")(0). _
getElementsByTagName("div")(0). _
getElementsByTagName("table")(0). _
getElementsByTagName("tbody")(0). _
getElementsByTagName("tr")(2). _
getElementsByTagName("td")(1)
cells(y,x).value= XPfad.outertext