|
Hallo liebe VBA-Experten,
mein Ziel besteht darin einen Teil des Quelltextes von Websiten auszulesen und in Excel einzufügen.
HIer ein Ausschnitt aus dem Quelltext, der auszulesende Wert wäre hier "10 - 50 Mio. Euro"
<p>
<span class="highlight">Mitarbeiter:</span> 120 in Deutschland<br/>
<span style="display: "><span class="highlight">Umsatzklasse:</span> 10 - 50 Mio. Euro<br/></span>
<span style="display: none"><span class="highlight">Filialen:</span> <br/></span>
<span style="display: inline"><span class="highlight">Gegründet:</span> 1925</span>
</p>
Mein bisheriger Ansatz bestand darin den gesamten Quelltext in Excel zu kopieren und dann über InSTR weiterzumachen.
Leider scheitert das daran, dass nur ein Ausschnittt vom gesamten Quelltext kopiert wird, der aber nicht den gesuchten Wert enthält.
Hier mein bisheriger Ansatz:
Sub extraktor()
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
With IE
.Visible = False
.Navigate "https://www.wer-zu-wem.de/firma/steinel-normalien.html"
Do While .Busy And .readyState <> 4: DoEvents: Loop
Application.Wait Now + TimeValue("0:00:06")
Sheets("Dummy").Range("A1").Value = .document.body.outerHTML
.Quit
End With
End Sub
Hab hier bereits .document.body.outerhtml und .innerhtml versucht, leider erfolglos
Übersehe ich hier was bzw. warum kann ich nicht den gesamten Quelltext so kopieren?
Falls ein Ansatz existiert den gesuchten Wert direkt von der Seite zu holen ohne vorher alles zu kopieren umso besser, bin für alle Anregungen offen.
Vielen lieben Dank im Voraus!
|