Public Sub aufruf()
Dim IE
Dim Quelltext As String
Set IE = CreateObject("internetexplorer.application")
IE.navigate "http://www.spotlight.de/"
Quelltext = IE.Document.documentElement.outerHTML
MsgBox Quelltext
IE.Quit
End Sub
Hallo! Der text soll im Tabellenblatt 1 als Text ausgebeben werden.
MsgBox nützt mir nicht. Ich kann es danach ja nicht mehr verarbeiten.
Danke
Michael