Betr. CreateObject("InternetExplorer.Application")

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox


Excel-Version: Ab 8.0
nach unten

Betrifft: Betr. CreateObject("InternetExplorer.Application")
von: Rentner
Geschrieben am: 18.05.2002 - 18:55:46


Was genau passiert wenn IExplorer nicht installiert ist?
Gibt es Ersatz für Netscape und Konsorten?
Gibt es eine bessere, Browser-unabhängige Möglichkeit an den InnerText oder InnerHTML heranzukommen?

Danke im Voraus.
Rentner
-----------------


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

nach oben   nach unten

Re: Betr. CreateObject("InternetExplorer.Application")
von: Hans W. Herber
Geschrieben am: 19.05.2002 - 09:57:52

Hallo,

in diesem Forum bitte mit Realnamen auftreten, danke.

Die von Dir genannte Funktion ist nur auf den IExplorer anwendbar. Netscape-Nutzer bleiben auch hier draussen vor der Tür.

Es gibt verschiedene Möglichkeiten den HTML-Text zu strippen, z.B. (in der Reihenfolge der einfachsten Programmierung und Schnelligkeit der Ausführung):


  • Mit einem Perl-Script umwandeln. Perl kann in Excel eingebunden werden. Ein Beispiel mit dem Einbinden sowie der PERL-Interpreter selbst zugehöriger DLL liegen der April-Ausgabe meines Excel-Tutorials bei.
  • Mit der Einbindung von VBScript in Excel. Die Programmierung ist ziemlich einfach und sparsam, da VBScript Textmuster ersetzen kann.
  • Excel standalone. Die Sache ist relativ aufwendig zu programmieren, da VBA Textmuster zwar finden, jedoch nicht ersetzen kann. Excel kann es zwar, jedoch steckt hier der Teufel im Detail.

Du solltest Dir meinen erst vorige Woche fertiggestellten HTML-Viewer downloaden. In diesem Excel-AddIn kannst Du zwischen der Anzeige von HTML-Dateien ohne HTML-Tags, mit HTML-Tags und im Browser wählen. Allerdings: Für das letztere wird der IExplorer benötigt, für das Text-Strippen allerdings nicht.

hans

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "ComboBox fühlen ohne auf Tabelle zuzugreifen"