Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

VBA EXCEL - Selezionare primo link google e copiarlo

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

VBA EXCEL - Selezionare primo link google e copiarlo

Postdi peterparker0607 » 20/06/17 16:43

Ciao, leggendo sul sito ho trovato e adattato questo codice che apre Google e cerca la parola PROVA

Codice: Seleziona tutto
Sub d()

Set IE = CreateObject("InternetExplorer.Application")
    With IE
        .Visible = True
        .Navigate "http://www.google.it"
        Do Until .ReadyState = 4: DoEvents: Loop
        .Document.All.Item("q").Value = "prova"
        IE.Document.Forms("f").Submit
        .Document.All.Item("btnG").Click
       
        Do Until .ReadyState = 4: DoEvents: Loop
        Do While .Busy: DoEvents: Loop
    End With

End Sub


Vorrei sapere se è possibile aprire il primo link e copiarne l'indirizzo.
Il mio fine è di dare in pasto questo link ad una web query che scarichi la tabella presente nel link (il link del primo risultato di Google.

Grazie!
peterparker0607
Utente Junior
 
Post: 10
Iscritto il: 09/09/16 10:06

Sponsor
 

Re: VBA EXCEL - Selezionare primo link google e copiarlo

Postdi Anthony47 » 20/06/17 21:41

Ad esempio:
Codice: Seleziona tutto
Sub ddd()
Dim CColl As Object, IE As Object
'
Set IE = CreateObject("InternetExplorer.Application")
    With IE
        .Visible = True
        .Navigate "http://www.google.it"
        Do Until .ReadyState = 4: DoEvents: Loop
        .document.All.Item("q").Value = Range("A1").Value
        IE.document.Forms("f").Submit
        .document.All.Item("btnG").Click
        Do Until .ReadyState = 4: DoEvents: Loop
        Do While .Busy: DoEvents: Loop
    End With
Set CColl = IE.document.getElementsByTagName("cite")
If CColl.Length > 0 Then
    hlink = CColl(0).innerText
    Range("E1") = CColl(0).innerText
End If

Stop        '
IE.Quit
Set IE = Nothing
Set CColl = Nothing
End Sub
Il primo link viene scritto nella variabile hlink e in E1 del foglio di lavoro corrente; mentre per la ricerca viene usata la stringa inserita in A1.

Non sapendo come vuoi continuare, nella macro ho inserito uno Stop prima delle istruzioni che chiudono la sessione IE corrente e distruggono gli "oggetti" creati.

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 17653
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "VBA EXCEL - Selezionare primo link google e copiarlo":


Chi c’è in linea

Visitano il forum: Nessuno e 32 ospiti