strIText = GetInnerX("http://www.heise.de","TEXT")
Open "C:/Inner.txt" For Output As #1
Print #1, strIText
Close 1
Function GetInnerX(strURL As String, Optional strWhat As String = "HTML") As String
Dim IEApp As Object
Dim IEDoc As Object
GetInnerX = ""
Set IEApp = CreateObject("InternetExplorer.Application")
If Not IEApp Is Nothing Then
IEApp.Visible = False
IEApp.Navigate strURL
Do: Loop Until IEApp.Busy = False
Do: Loop Until IEApp.Busy = False
Set IEDoc = IEApp.Document
Select Case UCase(strWhat)
Case "HTML"
GetInnerX = IEDoc.Body.InnerHTML
Case Else
GetInnerX = IEDoc.Body.InnerText
End Select
IEApp.Quit
Set IEDoc = Nothing
Set IEApp = Nothing
Else
MsgBox "InternetExplorer nicht installiert?", vbInformation
End If
End Function
Open "C:/Inner.txt" For Output As #1
Print #1, strIText
Close 1
Function GetInnerX(strURL As String, Optional strWhat As String = "HTML") As String
Dim IEApp As Object
Dim IEDoc As Object
GetInnerX = ""
Set IEApp = CreateObject("InternetExplorer.Application")
If Not IEApp Is Nothing Then
IEApp.Visible = False
IEApp.Navigate strURL
Do: Loop Until IEApp.Busy = False
Do: Loop Until IEApp.Busy = False
Set IEDoc = IEApp.Document
Select Case UCase(strWhat)
Case "HTML"
GetInnerX = IEDoc.Body.InnerHTML
Case Else
GetInnerX = IEDoc.Body.InnerText
End Select
IEApp.Quit
Set IEDoc = Nothing
Set IEApp = Nothing
Else
MsgBox "InternetExplorer nicht installiert?", vbInformation
End If
End Function