- 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!