Thema: Internetdaten abrufen und in MsgBox anzeigen

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