Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
20.08.2020 10:37:46 |
Patrick |
|
|
|
20.08.2020 14:14:28 |
volti |
|
|
HTML als Document speichern |
20.08.2020 14:40:18 |
Gast59253 |
|
|
|
24.08.2020 07:03:55 |
Patrick |
|
|
|
24.08.2020 07:03:55 |
Patrick |
|
|
|
24.08.2020 08:19:53 |
Mase |
|
|
|
24.08.2020 09:26:53 |
Patrick |
|
|
|
24.08.2020 10:22:41 |
Mase |
|
|
|
24.08.2020 12:18:38 |
Patrick |
|
|
|
24.08.2020 12:39:52 |
Mase |
|
|
|
24.08.2020 14:21:14 |
Patrick |
|
|
|
24.08.2020 14:59:48 |
Mase |
|
|
Von:
Gast59253 |
Datum:
20.08.2020 14:40:18 |
Views:
582 |
Rating:
|
Antwort:
|
Thema:
HTML als Document speichern |
Hallo Patrick,
kleiner Nachtrag mit Head und Body-Daten und abspeichern in Datei:
Sub Hole_WebSite_HTML()
Dim sData As String, iff As Integer
With CreateObject("InternetExplorer.Application")
.navigate "http://www.aboutip.de/mail.php" 'Zur Url surfen <<< anpassen >>>
While Not .readyState = 4: DoEvents: Wend 'Warten bis Seite geladen ist
Rem .Visible = True 'IE sichtbar
With .Document 'Document referenzieren
sData = .head.outerhtml & .body.outerhtml 'Head und Body-HTML holen
'In Datei abspeichern
iff = FreeFile
Open ThisWorkbook.Path & "\MeineHTML_Datei.htm" For Output As iff
Print #iff, "<html>" & sData & "</html>"
Close iff
End With
.Quit 'IE schließen
End With
End Sub
viele Grüße
KarlHeinz
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
20.08.2020 10:37:46 |
Patrick |
|
|
|
20.08.2020 14:14:28 |
volti |
|
|
HTML als Document speichern |
20.08.2020 14:40:18 |
Gast59253 |
|
|
|
24.08.2020 07:03:55 |
Patrick |
|
|
|
24.08.2020 07:03:55 |
Patrick |
|
|
|
24.08.2020 08:19:53 |
Mase |
|
|
|
24.08.2020 09:26:53 |
Patrick |
|
|
|
24.08.2020 10:22:41 |
Mase |
|
|
|
24.08.2020 12:18:38 |
Patrick |
|
|
|
24.08.2020 12:39:52 |
Mase |
|
|
|
24.08.2020 14:21:14 |
Patrick |
|
|
|
24.08.2020 14:59:48 |
Mase |
|
|