HERBERS Excel-Forum - die Beispiele

Thema: Internetdaten abrufen und in MsgBox anzeigen

Home

Gruppe

Extern

Problem

Daten aus dem Web sollen im Hintergrund über den Internet-Explorer abgerufen, in Excel übernommen und in einer MsgBox angezeigt werden.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain

Sub MessageAbrufen()
   MsgBox MessageLaden("www.herber.de/forum/archiv/24to28/t26542.htm")
End Sub

Function MessageLaden(URL As String) As String
   Dim IEApp As Object
   Dim IEDocument As Object
   Dim i As Long
   Set IEApp = CreateObject("InternetExplorer.Application")
   IEApp.Visible = False
   IEApp.Navigate URL
   Do: Loop Until IEApp.Busy = False
   Do: Loop Until IEApp.Busy = False
   Set IEDocument = IEApp.Document
   MessageLaden = IEDocument.Body.innerText
   IEApp.Quit
   Set IEDocument = Nothing
   Set IEApp = Nothing
End Function

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