Webseiten nach Stichwort durchsuchen
Ich habe eine lange Liste mit Hyperlinks. Ich würde gerne wissen, auf welchen der Seiten ein bestimmter Begriff vorkommt.
Es ist ja leicht möglich den Internet Explorer (IE) mit einer bestimmten Adresse aus Excel heraus mit Vba zu öffnen.
Kann man sich denn auch der Suchfunktion des IEs bedienen und nach einem bestimmten Wort suchen und das Ereignis ‚Keine Suchergebnisse‘ erhalten ?
Melanie
Hallo Melanie,
Ich habe eine lange Liste mit Hyperlinks. Ich würde gerne
wissen, auf welchen der Seiten ein bestimmter Begriff
vorkommt.
Wo stehen denn die ganzen Url’s ? In einem Array ?
Es ist ja leicht möglich den Internet Explorer (IE) mit einer
bestimmten Adresse aus Excel heraus mit Vba zu öffnen.
Das denke ich mal. Ich selbst tippsle wenn dann nur mit VB. Aber sollte für dein Vorhaben eigentlich unrelevant sein 
Kann man sich denn auch der Suchfunktion des IEs bedienen und
nach einem bestimmten Wort suchen und das Ereignis ‚Keine
Suchergebnisse‘ erhalten ?
Hm, weiss ich nicht, ob das geht. Aber warum nicht eben schnell schreiben? MIE öffnen ( unsichtbar) , Seite laden, Den Text der Seite speichern, diesen durchsuchen und ggfls. ne Meldung ausgeben
Nur stellen sich mir dazu einige fragen. Möchtest du den reinen Text der Seite durchsuchen, wie im MIE oder den Html Code ?
Anbei ein kleines Demo, was ihren Dienst tut
Private Sub Search(Value As String) 'Value = Suchbegriff
Dim vRet As String
Dim MIE As Object
Dim Start As Double
Dim Loaded As Boolean
Loaded = True
Set MIE = CreateObject("InternetExplorer.Application")
MIE.Visible = False
Start = Timer
MIE.Navigate2 "Http://werweisswas.de" 'Deine Url hier eintragen
Do
DoEvents
If Timer - Start \> 20 Then 'max. 20 Sekunden warten
Loaded = False
Exit Do
End If
Loop Until MIE.readystate = 4
If Loaded Then
vRet = MIE.Document.documentElement.outertext
MIE.quit
Set MIE = Nothing
If InStr(1, vRet, Value, vbTextCompare) \> 0 Then
MsgBox "Suchbegriff gefunden!"
Else
MsgBox "Suchbegriff nicht gefunden!"
End If
Else
MIE.quit
Set MIE = Nothing
MsgBox "Zeitueberschreitung beim laden der Webseite!"
End If
End Sub
Du kannst den Source als Vorlage nehmen. Natuerlich musst du ihn Dir deinen gegebenheiten noch anpassen. Aber das sollte net schwer sein und schnell gemacht
MfG Alex
Danke Alex, das klappt echt gut!
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]