58 Aufrufe
Gefragt in Webseiten HTML von cheetah_83 Einsteiger_in (59 Punkte)

Hallo zusammen,

ich hab im Internet folgenden Codeschnipsel gefunden, der auch immer wunderbar funktioniert hat, um per VBA den ersten Googletreffer auszulesen und in Excel zu speichern.

Sub ErsterGoogleTreffer(StrRange As String, IE As Object)
    Dim result As Object, Zelle As Range
    For Each Zelle In Range(StrRange)
       IE.navigate "https://www.google.com/search?q=" & Zelle.Text 
        Do: Loop Until IE.busy = False
        Do: Loop Until IE.document.ReadyState = "complete"
        Set result = IE.document.getelementbyid("rso").getelementsbytagname("H3")(0).getelementsbytagname("a")(0)
        If Not result Is Nothing Then Zelle.Offset(0, 1) = result.href
    Next
End Sub

 Seit einigen Wochen funktioniert der Code jetzt leider nicht mehr. Anscheinend hat Google den Code der Website umgestellt. Ich kenn mich leider nicht so gut aus um den Code anzupassen.

Kann dabei zufällig jemand helfen?

Deine Antwort

Dein angezeigter Name (optional):
Datenschutz: Deine Email-Adresse benutzen wir ausschließlich, um dir Benachrichtigungen zu schicken. Es gilt unsere Datenschutzerklärung.
Anti-Spam-Captcha:
Bitte logge dich ein oder melde dich neu an, um das Anti-Spam-Captcha zu vermeiden.
...