Download von Webseiten als HTML
13.12.2019 17:02:47
Webseiten
ich versuche, Webseiten mit VBA aufzurufen und als HTML-Seiten abzuspeichern. Ziel ist es rund 115000 Einträge in einem Forum zu archivieren. Mittels der Recherche habe ich einen Code gefunden und angepasst, der soweit funktioniert, allerdings sehr langsam ist.
Private Sub Splinters_Messages()
Dim appIE As Object
Dim sURL As String
Dim sTxt As Variant
For i = 1 To 200
sURL = "https://groups.yahoo.com/neo/groups/splinters/conversations/messages/" & i
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 "C:\Users\Martin\Documents\Splinters_Messages\Messages" & i & ".html" For Output As #1
Print #1, sTxt
Close
Next i
End Sub
Gibt es eine Möglichkeit, die Aufgabe schneller zu erledigen? Ich habe hiermit experimentiert, was mit den Queltext liefert. Mit der auskommentierten Zeil wollte ich die HTML-Darstellung holen, aberdas funktioniert leider nicht.
Sub splinters_auslesen()
For i = 100 To 101
URL_Splinters = "https://groups.yahoo.com/neo/groups/splinters/conversations/messages/" & i 'Laden der URL
With CreateObject("MSXML2.XMLHTTP")
.Open "GET", URL_Splinters, False
.Send
Splinters_txt = .responseText
'Splinters_txt = .document.DocumentElement.outerhtml
End With
Cells(i, 1) = Splinters_txt
Next i
End Sub
Gruß
Martin