Wie speichere ich eine Internetseite mit VBA?

Um eine Internetseite mit VBA zu speichern, kannst du die `XMLHTTP`-Objektbibliothek verwenden, um die Seite herunterzuladen, und dann den Inhalt in eine Datei schreiben. Hier ist ein Beispiel, wie das geht:

1. Öffne Excel und drücke `Alt + F11`, um den VBA-Editor zu öffnen.
2. Gehe zu `Extras` > `Verweise` und aktiviere die `Microsoft XML, v6.0`-Bibliothek.
3. Füge ein neues Modul hinzu und füge den folgenden Code ein:

```vba
Sub SaveWebPage()
Dim http As Object
Dim html As String
Dim filePath As String
Dim fileNum As Integer

' URL der Webseite
Dim url As String
url = "https://www.beispielseite.de"

' Pfad und Name der Datei, in die die Webseite gespeichert werden soll
filePath = "C:\Pfad\zur\Datei\seite.html"

' Erstelle das XMLHTTP-Objekt
Set http = CreateObject("MSXML2.XMLHTTP")

' Sende eine GET-Anfrage an die URL
http.Open "GET", url, False
http.send

' Überprüfe den Status der Anfrage
If http.Status = 200 Then
' Lese den HTML-Inhalt der Webseite
html = http.responseText

' Erstelle eine neue Datei und schreibe den HTML-Inhalt hinein
fileNum = FreeFile
Open filePath For Output As #fileNum
Print #fileNum, html
Close #fileNum

MsgBox "Webseite erfolgreich gespeichert!"
Else
MsgBox "Fehler beim Abrufen der Webseite. Status: " & http.Status
End If

' Bereinige das Objekt
Set http = Nothing
End Sub
```

Dieser Code lädt die HTML-Inhalte der angegebenen URL herunter und speichert sie in einer Datei auf deinem Computer. Passe die `url` und `filePath` Variablen entsprechend deinen Anforderungen an.