Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

da excel a google search

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

da excel a google search

Postdi lorber82 » 29/06/12 15:27

ciaoho un foglio excel don migliaia di celle in riga che contengono i nomi di aziende, di cui mi serve ottenere informazioni (mail, dove sono etc..), anzichè copiare il contenuto di una cella alla volta e poi incollarlo in google e fare la ricerca, è possibile con macro o altro aprire in automatico più tabs (qualche decina alla volta) nel browser?
grazie in anticipo
lorber82
Newbie
 
Post: 2
Iscritto il: 29/06/12 15:20

Sponsor
 

Re: da excel a google search

Postdi Anthony47 » 01/07/12 23:50

Ciao lorber82, benvenuto nel forum.
Se non sbaglio al momento sei su una procedura assolutamente manuale; quindi con una macro come questa farai qualche passo avanti:
Codice: Seleziona tutto
Dim IE As Object      'Deve stare in testa al Modulo
Sub GSearch()
'
If IE Is Nothing Then Set IE = CreateObject("InternetExplorer.APPLICATION")
On Error GoTo CreateIE
'
myTest:
If IE.Visible = False Then IE.Visible = True
If Cells(Rows.Count, 1).End(xlUp).Offset(1, 1).Value <> "" Then
    With IE
        .Visible = True
        .Navigate "http://www.google.it"
        Do Until .ReadyState = 4: DoEvents: Loop
        .Document.All.Item("q").Value = Cells(Rows.Count, 1).End(xlUp).Offset(1, 1).Value '"Cerca codice html vba site:pc-facile.com"
        .Document.All.Item("btnG").Click
        Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Value = 1
        Do Until .ReadyState = 4: DoEvents: Loop
        Do While .Busy: DoEvents: Loop
    End With
Else
    MsgBox ("Fine Lista?")
End If
Exit Sub
'
CreateIE:
Set IE = CreateObject("InternetExplorer.Application")
Resume myTest
End Sub

Ho supposto che le chiavi da ricercare siano in col B, da B2 in avanti, e che la colonna A sia libera (infatti sara' usata per marcare le righe gia' "lavorate").
Quando lanci la macro essa apre una sessione di Internet Explorer, va sulla pagina di ricerca google e cerca con le parole scritte nella prima riga di col B non marcata. Rilanciando la macro la ricerca avverra' con le parole della riga successiva.

Fai sapere, ciao.
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13885
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: da excel a google search

Postdi lorber82 » 11/07/12 10:57

ciao anthony grazie mille per la risposta
in effetti funziona perfettamente eseguendo la macro per una cella alla volta, purtroppo ho qualche migliaio di celle,,,secondo te si riesce magari a selezionare una ventina di celle alla volta in modo da aprirle tutti in tabs?

grazie in anticipo

lorber82
lorber82
Newbie
 
Post: 2
Iscritto il: 29/06/12 15:20

Re: da excel a google search

Postdi Anthony47 » 12/07/12 01:31

Per quello che ricordo e che ho potuto sperimentare con un paio di veloci test queste automazioni lavorano solo sul tab iniziale, per cui anche aprendo altre schede si riesce a interloquire solo con una.

Spero che qualcun altro possa smentirmi.

Comunque mi sfugge che cosa risparmieresti ad avere 20 schede di ricerca aperte invece che una... non e' come studiare latino avendo aperta anche la grammatica di greco?

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13885
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "da excel a google search":


Chi c’è in linea

Visitano il forum: Nessuno e 14 ospiti