Thema Datum  Von Nutzer Rating
Antwort
09.08.2016 12:43:36 JM
*****
NotSolved
09.08.2016 15:24:18 Gast79454
NotSolved
09.08.2016 15:48:08 Gast52704
NotSolved
09.08.2016 15:54:44 Gast95476
NotSolved
09.08.2016 16:04:17 Gast71213
*****
NotSolved
09.08.2016 16:35:45 Gast20697
NotSolved
09.08.2016 17:44:14 Gast26899
*****
NotSolved
Blau VBA Google Suche
 10.08.2016 18:00:25 Gast14740
NotSolved
10.08.2016 18:35:01 Gast4732
NotSolved
10.08.2016 18:47:35 Gast34385
NotSolved
11.08.2016 17:25:02 Gast61197
NotSolved

Ansicht des Beitrags:
Von:
Gast14740		 Datum:
10.08.2016 18:00:25		 Views:
1215		 Rating:
     
Antwort:
  Ja
Thema:
VBA Google Suche

Hallo! So habe nun nochmal geschaut. Hatte nicht auf das IE Document referenziert. Problem, was noch hinzukommt ist, dass der IE und FF wohl unterschiedliche Tags nutzen um das darzustellen (eigentlich ungewöhnlich). Probiere es mal so. Ist auf einem IE getestet. Wie vorher auch schon, nimmt er die WErte aus Spalte A und trägt in Spalte C ein. Das Unterfangen ist ein wenig tricky. Falls es keinen WErt gibt, kommt ein Fehler. Und ich bin jetzt davon ausgegangen, dass die Adresse auf der rechten Seite dargestellt wird. Zum Testen kannst du auch ende auf 1 Setzen und das auskommentierte Webtronix Media GmGH suchen lassen (also den Kommentar raus und das gleich hinter das = ). BItte dann mal melden, was bei rausgekommen ist.

VG

 

Sub adresse()
 
With CreateObject("InternetExplorer.application")
    .Visible = True
    .navigate ("http://www.google.com/")
    While .Busy Or .readyState <> 4
        DoEvents
    Wend
    'Spalte mit deinen Werte, zählt die Anzahl in Spalte A
    ende = Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row
    For zeile = 1 To ende
        .document.all.q.Value = ActiveSheet.Cells(zeile, 1)  '"Webtronix Media GmbH"
        .document.all.btnG.Click
        While .Busy Or .readyState <> 4
            DoEvents
        Wend
        'Seite geladen
        'trägt das Ergebnis in Spalte C
        ActiveSheet.Cells(zeile, 3) = Split(.document.getElementsByclassName("_tA")(0).innertext, ",")(0)
       
    Next
End With
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
09.08.2016 12:43:36 JM
*****
NotSolved
09.08.2016 15:24:18 Gast79454
NotSolved
09.08.2016 15:48:08 Gast52704
NotSolved
09.08.2016 15:54:44 Gast95476
NotSolved
09.08.2016 16:04:17 Gast71213
*****
NotSolved
09.08.2016 16:35:45 Gast20697
NotSolved
09.08.2016 17:44:14 Gast26899
*****
NotSolved
Blau VBA Google Suche
 10.08.2016 18:00:25 Gast14740
NotSolved
10.08.2016 18:35:01 Gast4732
NotSolved
10.08.2016 18:47:35 Gast34385
NotSolved
11.08.2016 17:25:02 Gast61197
NotSolved