Eine ausbaufähige Funktion in VBA
15.09.2002 14:59:03
Rud
Für erste Schritte teste mal die Funktion unten.
Die hab ich so im Laufe der Zeit mit Text&Tipps&Tricks
aus dem Forum und Archive zusammengebastelt.Unklar ist, wie sich die Funktion verhält, wenn der IExplorer
nicht installiert ist.
Praktisch ist auch die Möglichkeit statt HTML nur den
InnerText einer Website zu mopsen, zB für Aktien-Kurslisten
oder halt generell Tabellen.
An Verbesserungen bin ich immer interessiert, zB könnte
man auch winsock.dll Funktionen verwenden.
Man könnte im Fehlerfall auch den Errorstring zurückgeben,
anstatt eine MsgBox anzuzeigen, oder dies und das :-)
Feel free to do it.
-------------------
Open "C:\Herber.htm" For Output As #1
Print #1, GetInnerX("https://www.herber.de", "HTML")
Close 1
Function GetInnerX(strURL As String, Optional strWhat As String = "HTML") As String
Dim objIE As Object, objDoc As Object
Dim strMldg As String
GetInnerX = ""
On Error GoTo ErrorHandler 'evtl. Fehler (auch serverseitig) abfangen
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = False
objIE.Navigate strURL
Do While objIE.Busy
Loop
Set objDoc = objIE.Document
Do While objDoc.readyState <> "complete"
Loop
Select Case UCase(strWhat)
Case "HTML"
GetInnerX = objDoc.Body.InnerHTML
Case Else
GetInnerX = objDoc.Body.InnerText
End Select
objIE.Quit
Exit Function
ErrorHandler:
If Err.Number <> 0 Then
strMldg = "Fehler 0x" & Hex(Str(Err.Number)) & " wurde ausgelöst von " _
& Err.Source & Chr(10) & Err.Description
MsgBox strMldg, vbCritical, "Fehler beim Zugriff auf WWW via InternetExplorer", Err.HelpFile, Err.HelpContext
Err.Clear
End If
End Function