Ciao jennylea89, benvenuto nel forum.
Una richiesta simile alla tua si trova qui:
viewtopic.php?t=95987La risposta data fu parziale; cioe' dato un elenco, eseguendo in successione la macro veniva fatta la ricerca per le chiavi successive, ma sempre una alla volta.
Proviamo a fare un passo oltre..
Supponiamo che le chiavi di ricerca siano in B1:Bxxx, che la colonna A sia libera (come e perche' spiegato nella discussione che ho citato) e che vuoi procedere con parallelismo di 5 pagine aperte.
In testa al modulo (rigorosamente in testa al modulo) "dichiari" 5 oggetti
- Codice: Seleziona tutto
Public IE1 as Object, IE2 as Object, IE3 as Object, IE4 as Object, IE5 as Object
Poi trasformi la macro GSearch da stand alone a richiamabile:
- Codice: Seleziona tutto
Sub GSearch(ByRef Sess As Object)
'
If Sess Is Nothing Then Set Sess = CreateObject("InternetExplorer.APPLICATION")
On Error GoTo CreateIE
'
myTest:
If Sess.Visible = False Then Sess.Visible = True
If Cells(Rows.Count, 1).End(xlUp).Offset(1, 1).Value <> "" Then
With Sess
.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 Sess = CreateObject("InternetExplorer.Application")
Resume myTest
End Sub
Infine inserisci la macro di richiamo:
- Codice: Seleziona tutto
Sub tttesta()
Call GSearch(IE1)
Call GSearch(IE2)
Call GSearch(IE3)
Call GSearch(IE4)
Call GSearch(IE5)
End Sub
Lanciando questa macro, la prima volta cerchera' le chiavi segnate in B2:B6, la seconda volta quelle in B7:B11, e cosi' via.
Le ricerche gia' effettuate vengono "spuntate" nella colonna A, quindi se vuoi ripeterle bastera' azzerare il contenuto di colonna A.
Se vuoi procedere con un parallelismo maggiore, dichiara un numero maggiore di oggetti e poi richiama altrettante volte la GSearch associando a ogni chiamata uno degli oggetti definiti.
Ciao, fai sapere.