su readystate e da li senza dare errori mi rimane in perenne esecuzione.
in quale maniera posso uscirne ? anche saltando od incrementando la variabile na, perdendomi l'analisi di quella sottopagina.
- Codice: Seleziona tutto
For na= 1 to 100
With IE
.navigate "http:/sito.it" & na
.Visible = False
On Error Resume Next
Do While .Busy: DoEvents: Loop 'Attesa not busy
Do While .readyState <> 4: DoEvents: Loop 'Attesa documento -->>> va in loop
On Error GoTo 0
End With
Exit na