Condividi:        

Macro Excel per contare risultati google

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Macro Excel per contare risultati google

Postdi carlo.frontini » 26/09/17 16:57

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
carlo.frontini
Newbie
 
Post: 3
Iscritto il: 26/09/17 16:40

Sponsor
 

Re: Macro Excel per contare risultati google

Postdi Anthony47 » 26/09/17 23:17

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
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Macro Excel per contare risultati google

Postdi carlo.frontini » 27/09/17 11:11

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
carlo.frontini
Newbie
 
Post: 3
Iscritto il: 26/09/17 16:40

Re: Macro Excel per contare risultati google

Postdi Anthony47 » 27/09/17 15:00

Eh eh, alla faccia del captcha :D... 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
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Macro Excel per contare risultati google

Postdi carlo.frontini » 28/09/17 11:43

Ma infatti non sono più tanto sicuro di non essere un robot.
Comunque grazie mille! Il secondo problema è risolto.
carlo.frontini
Newbie
 
Post: 3
Iscritto il: 26/09/17 16:40


Torna a Applicazioni Office Windows


Topic correlati a "Macro Excel per contare risultati google":


Chi c’è in linea

Visitano il forum: Nessuno e 37 ospiti