Webseite auslesen / Inhalt als Txt-Datei speichern
23.01.2018 16:13:35
VbaZwerg
folgendes Problem habe ich: ich möchte mittels VBA ein HTML-Dokument auslesen und als txt speichern. (Dieses HTLM-Dokument ist eine Webbasierte firmenspezifische Anwendung).
Nach dem Start soll die Makro von dem User die URL-Eingabe anfordern.
Folgende Code habe ich in den Threads gefunden (siehe Unten). Es funktioniert einwandfreie. Nur sobald ich den URL durch die gewünschte ersetze, bekomme ich ab dem Befehl "Do: Loop Until appIE.Busy = False" den Automatisierungsfehler 440 angezeigt.
Keine Ahnung woran es liegt oder was ich falsch mache. Seit Stunden durchsuche ich das Internet, komme aber nicht weiter.
Für jede Tipp, Vorschlägen, Kommentare wäre ich dankbar
PS: ich benutze die Version Microsoft office Professional Plus 2010
Sub Aufruf()
Call URL_Load("http://www.ksm-soccer.eu/verein.php?id=2730 ")
End Sub
Private Sub URL_Load(ByVal sURL As String)
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
Set appIE = Nothing
Close
Open ThisWorkbook.Path & "\test.txt" For Output As #1
Print #1, sTxt
Close
MsgBox "Der Text wurde gespeichert unter:" & vbLf & _
Application.Path & "\test.txt"
End Sub
Anzeige