Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Internetdaten abrufen und in MsgBox anzeigen

Gruppe

Internet

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