können Makros googlen?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Jenny
Ich habe mich jetzt nicht detailliert mit der Lösung befasst, aber deine Frage kann ich beantworten.
Ist sowas denkbar? JA
Der Aufruf von Google ist kein Problem. Schwieriger wird das Suchresultat zu strukturieren.
Entweder machst du dies selber d.h. du liest die ganze Seite aus und analysierst/zerpflückst quasi den HTML-Code. Davon würde ich aus folgenden Gründen abraten:
- Jede Änderung der Google Webseite "zerschiesst" deinen Code
- Alle Eventualitäten zu berücksichtigen ist Sisyphusarbeit (mal ist ein Video dazwischen, mal gibt es gar kein Resultat usw.)
Die bessere Variante ist, die dafür vorgesehene API (Schnittstelle) zu verwenden. Hierfür musst du dich allerdings registrieren und einen API-Key (Schlüssel) lösen. Allfällige Kosten musst du selber recherchieren (evtl. gratis bis 100 Suchanfragen pro Tag).
Ungetestet und ohne Gewähr:
https://analystcave.com/scrape-google-search-results-to-csv/
Der Suchstring sieht dann irgendwie so aus (die weiteren Parameter musst du nachlesen)
https://www.googleapis.com/customsearch/v1?key=GOOGLE_API_LICENSE_KEY&cx=017576662512468239146:omuauf_lfve&q=cats%20and%20dogs&hl=pl&rsz=2
Mit einem gültigen API-Key solltest du ein strukturiertes Suchresultat erhalten (im Browser testen), das dann noch nach Excel eingelesen werden muss.
cu
Chris

Hallo Jenny,
Ich habe mich auch einmal an das Thema gewagt. Bei Google gibt es das Problem, dass die Seite in Javascript ausgegeben wird und daher das Auslesen nicht funktioniert.
Bei Duckduckgo.com scheint das ganze schon besser zu funktionieren.
Leider funktioniert mein Makro noch nicht wirklich Fehlerfrei. Zum Beispiel wenn ich einen Haltepunkt setze und die Schritte langsam durchgehe, dann klappt es meistens.
Leider fehlt mir die Zeit jetzt daran weiterzuarbeiten. Vielleicht hat ja jemand der anderen VBA-Profis hier noch eine Lösung oder Optimierungstipps.
VG
Marco
Global ErsterLink As String
Global DuckDuckSuche As String

Public Sub DuckDuckIt()    'Aufruf zu Testzwecken
Dim GoogleSuchErgebnis As String
GoogleSuche = InputBox("Wonach möchten Sie suchen?:", "Google It!")
Call DuckDuckMe
GoogleSuchErgebnis = "Als 1. Link wurde gefunden: " & ErsterLink
MsgBox GoogleSuchErgebnis, vbOKOnly, "Ergebnis"
End Sub

Sub DuckDuckMe()
Dim appIE As Object
Dim i As Long
Const GoogleUrl As String = "https://duckduckgo.com/?q="
Dim allRowOfData As Object
On Error GoTo Fehler
Set appIE = CreateObject("internetexplorer.application")
appIE.Visible = False
With appIE
.Navigate GoogleUrl & GoogleSuche & "&ia=definition"
End With
Do While appIE.Busy
DoEvents
Loop
Set allRowOfData = appIE.document.getElementsByClassName("result__url__domain")
ErsterLink = allRowOfData(0).innerText
appIE.Quit
Set allRowOfData = Nothing
Set appIE = Nothing
Exit Sub
Fehler:
ErsterLink = "Unbekannt"
End Sub

Public Sub DuckDuckIt() 'Aufruf zu Testzwecken Suchwort = InputBox("Wonach möchten Sie suchen?:", "Google It!") Call DuckDuckMe SuchErgebnis = "Als 1. Link wurde gefunden: " & ErsterLink MsgBox SuchErgebnis, vbOKOnly, "Ergebnis" End Sub

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

können Makros googlen?

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread