Werte einer Internetseite per Makro ins Excel übertragen, mehrere Pfadteile zu einem Objekt zusammenfügen
31.10.2019 17:01:02
Andi
Ich hoffe mir kann jemand mit dem folgenden Thema weiterhelfen. Leider kenne ich mich damit noch nicht so gut aus.
Ich möchte mit einem VBA Makro Werte von einer Internetseite ins Excel wie folgt übertragen:
Dim IE As Object
Dim Pfad As Object
Set IE = CreateObject("InternetExplorer.Application")
Set Pfad = IE.Document. _
getElementsByClassName("INHALT")(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= Pfad.outertext
Das funktioniert soweit.
Nun möchte ich mir allerdings den Pfad aus mehreren Teilen wie folgt zusammenbauen. Wie funktioniert das?
Dim Pfad1 As Object
Dim Pfad2 As Object
Dim Pfad3 As Object
Dim PfadeZusammen As Object
Set Pfad1 = IE.Document. _
getElementsByClassName("INHALT")(0)
Set Pfad2 = IE.Document. _
getElementsByTagName("article")(0). _
getElementsByTagName("article")(0). _
getElementsByTagName("div")(0). _
getElementsByTagName("table")(0). _
getElementsByTagName("tbody")(0)
Set Pfad3 = IE.Document. _
getElementsByTagName("tr")(2). _
getElementsByTagName("td")(1)
PfadeZusammen= Pfad1. Pfad2. Pfad3
cells(y,x).value= PfadeZusammen.outertext