HERBERS Excel-Forum - die Beispiele

Thema: HTML-Seite aus dem Internet aufrufen und als Textdatei speichern

Home

Gruppe

Extern

Problem

Eine Internet-HTML-Seite soll ausgelesen und als Textdatei im Verzeichnis dieser Arbeitsmappe gespeichert werden.

Lösung
Den nachstehenden Code in ein Standardmodul eingeben, einer Schaltfläche zuweisen und starten.
StandardModule: Modul1

Sub Aufruf()
   Call URL_Load("http://www.kicker.de")
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

Beiträge aus dem Excel-Forum zu den Themen Extern und Internet

Text aus Zelle in Internet Seite Dateiname externer Datei ändern
internet explorer per handle in Objekt umwandeln Tabellenblatt aus externer Exceldatei kopieren
InternetExplorer Object ConboBox mit externe Daten füllen
Einfügen aus Internet-Seite Absturz Excel bei Internet-Absturz
Wert in externer Datei suchen Aufruf externer Programme
Internetdienst mit Makro ausführen Externe Bezüge auslesen mit VBA
Externe Verküpfung anpassen Pivot mit Externer DB am Limit?
Externe Verknüpfungen Blätter in Externer Arbeitsmappe einblenden
externes Verzeichnis ansprechen Download aus dem Internet Teil2
Externe Datenquelle via VBA Einfügen aus Internet 10²
Pivot mit Externer DB UNION funzt nich Nur externe Bezüge rausnehmen
Datei aus dem Internet runterladen XLB Auswirkung auf Internet Explorer
Excel standard Symbolleiste im Internet Explorer *xlt-Dateien als externe Datenquelle nutzen
Externes Programm öffnen internet frage zum RFC
Makro: Bezug auf externes xls-File? Wert an externes Programm übergeben
Externe Excel-Verknüpfungen automatisiert ändern Verlinkung externer Arbeitsmappen
Tabelle in externer Datei löschen externe Bezüge suchen/ersetzen
neue Zeile und externe Bezüge.... Externe Verknüpfung finden
Datei im Internet bearbeiten externe Bezüge
Summenprodukt + Externe Bezüge Datenbank in externer Datei
Fehler beim Kopieren von externer Tabelle anzahl Blätter externer Excel-Datei
Externe Daten aus Access Externe Daten importieren aus Access
Zellwert als Parameter f. externes Script/Programm Worksheetzugriff auf externe Datei
Dropdown - externe Daten Externe Bezüge
Internetseite Markieren u. in Tabellenb. kopieren Zeitanzeige auf USF wenn ein externes Progr. läut