Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Webcrwaler / scraper links from online newspapers
 01.03.2018 11:45:53 Patrick
NotSolved
01.03.2018 11:50:56 Gast72311
NotSolved

Ansicht des Beitrags:
Von:
Patrick		 Datum:
01.03.2018 11:45:53		 Views:
963		 Rating:
     
Antwort:
  Ja
Thema:
VBA Webcrwaler / scraper links from online newspapers

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 NavigateMultiplePages()
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True

For rep = 7 To 15
url_to_retrieve = Tabelle1.Range("E" & rep)
IE.Navigate (url_to_retrieve)
Do
DoEvents
Loop Until IE.ReadyState = 4
Next rep
MsgBox "Done"
End Sub

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

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Webcrwaler / scraper links from online newspapers
 01.03.2018 11:45:53 Patrick
NotSolved
01.03.2018 11:50:56 Gast72311
NotSolved