Macro Excel per contare risultati google

[carlo.frontini]

Cari tutti,
Vorrei creare una macro che riporti il numero di risultati che ottengo se cerco su google un certo testo. In questo modo avrei un elenco di testi da cercare nella colonna A e il corrispondente numero di risultati nella colonna B.
Sui forum italiani non ho trovato niente, ma ho trovato qualcosa qui: https://www.experts-exchange.com/questi ... sults.html.
Purtroppo, essendomi Visual Basic completamente estraneo, non so correggere quel codice, che doveva funzionare nel 2012, ma andrebbe (credo) aggiornato.
Aggiungo che uso Excel 2016 e Opera come browser.
Qualcuno saprebbe aiutarmi?
Grazie in anticipo!
Carlo

[Anthony47]

Ciao Carlo, benvenuto nel forum.
Prova questa macro, che usa un'altra tecnica:

Codice: Seleziona tutto

Sub gsCount()
Dim IE As Object, I As Long
'
Set IE = CreateObject("InternetExplorer.Application")
Range("B:B").Clear
    With IE
        .Visible = True
        For I = 2 To Cells(Rows.Count, 1).End(xlUp).Row
            .Navigate "https://www.google.it/search?q=" & Cells(I, 1).Value
            Do While .Busy: DoEvents: Loop
            Do Until .ReadyState = 4: DoEvents: Loop
            Cells(I, 2).Value = IE.document.getelementbyid("sbfrm_l").innertext
        Next I
    End With
On Error Resume Next
IE.Quit
Set IE = Nothing
MsgBox ("Completato...")
End Sub


L'elenco delle voci da cercare e' da A2 verso il basso del foglio selezionato, il risultato della ricerca sara' inserito in colonna B, che viene AZZERATA SENZA PREAVVISO all'avvio della macro.

Ciao

Keyw:
excel vba macro count google search results

[carlo.frontini]

Caro Anthony,
Grazie mille! Sei stato di grande aiuto.

Ti segnalo un paio di aspetti che possono essere migliorati:
- dopo alcune ricerche, il processo si blocca, perché Edge presenta un Captcha. Questo succede dopo circa 50 ricerche, se lascio che la macro lavori in background, mentre arriva a quasi 300 se resto su Edge
- anziché il numero di risultati x, nella colonna B appare "Circa x risultati (y secondi)" (che è quello che si vede quando si fa una ricerca su google)

Per quello che devo fare io, sono problemi secondari, quindi non serve che ti disturbi proporre un rimedio, ma ho pensato che potesse interessarti.
Grazie ancora!
Carlo

[Anthony47]

Eh eh, alla faccia del captcha ... mi sembra un esame di scuola guida...

Comunque tra i tanti pacchetti di google ce n'e' certamente uno che offre (a pagamento) ricerche illimitate.

Se vuoi estrarre solamente il numero, allora potresti sostituire la riga
Cells(I, 2).Value = IE.document.getelementbyid("sbfrm_l").innertext
con

Codice: Seleziona tutto

            ftext = IE.document.getelementbyid("sbfrm_l").innertext
            If InStr(1, ftext, " risultati", vbTextCompare) > 0 Then _
            ftext = Left(ftext, InStr(1, ftext, " risultati", vbTextCompare) - 1)
            Cells(I, 2).Value = Trim(Replace(Replace(ftext, "Circa", "", , , vbTextCompare), ".", "", , , vbTextCompare))


Ciao

[carlo.frontini]

Ma infatti non sono più tanto sicuro di non essere un robot.
Comunque grazie mille! Il secondo problema è risolto.