Internetseite aufrufen und abspeichern
14.01.2004 23:38:37
Eisen
ich möchte automatisch eine Internetseite über den Internetexplorer aufrufen und in einem Verzeichnis komplett mit Graphiken abspeichern. Hab dazu was hier vom Server verwendet komme dann aber nicht weiter.
Sub URL_Load_and_Save()
const sURL ="www.kicker.de"
Dim appIE As Object
Dim sTxt as string
Set appIE = CreateObject("InternetExplorer.Application")
appIE.Navigate sURL
Do: Loop Until appIE.Busy = False
Do: Loop Until appIE.Busy = False
sTxt = appIE.document.documentElement.outerHTML
'bis hierhin läufts einwandwandfrei. Die Daten "kommen an"
'WIE SPEICHER ICH JETZT DIE GANZE SEITE AB? WIE GEBE ICH DAS VERZEICHNIS VOR?
Set appIE = Nothing
Close
End Sub