Liebes Forum und Helfer
Ich würde gerne alle Links der Artikel von einer gewissen Webseite Zb. Cnn.com downloaden, deren Überschifften ein bestimmtes Schlagwort enhalten.
Die Urls der Websiten ( CNN Usw.) befinden sich in Spalte E7 BIS 15, Die Schlagwörter in Spalte I7 BIS 15.
Mein Problem: Das Makro öffnet bzw findet nur den neusten Link bzw Artikel zu einem Thema. Es gibt jedoch Mehere Artikel zu Obama auf CNN. Was muss ich tun damit das Makro auch den 2 und 3 Artikel findet.
Danke viel mals
Sub LookforString()
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
For rep = 7 To 15
Tabelle1.Range("K" & rep) = ""
DoEvents
url_to_retrieve = Tabelle1.Range("E" & rep)
IE.Navigate (url_to_retrieve)
Do
DoEvents
Loop Until IE.ReadyState = 4
Set AllHyperLinks = IE.Document.GetElementsByTagName("A")
For Each hyper_link In AllHyperLinks
hyper_link_text = LCase(hyper_link.innertext)
search_string_to_find = LCase(Tabelle1.Range("I" & rep))
If InStr(hyper_link_text, search_string_to_find) > 0 Then
Tabelle1.Range("K" & rep) = hyper_link
IE.Navigate (hyper_link), CLng(2048)
Exit For
End If
Next
Next rep
End Sub
|