Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

[Excel] Macro in loop senza errore READYSTATE

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

[Excel] Macro in loop senza errore READYSTATE

Postdi mpsinf » 29/01/13 08:22

Ciao, ho questa parte di codice che analizzandomi le "sottopagine" di un sito ad un certo punto mi va in loop
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
XP + Excel 2003 Ita
W7 + Excel 2007 Ita
mpsinf
Utente Senior
 
Post: 168
Iscritto il: 03/09/03 18:33

Sponsor
 

Re: [Excel] Macro in loop senza errore READYSTATE

Postdi Anthony47 » 29/01/13 13:04

Potresti inserire nell' attuale ciclo un controllo di timeout, es
Codice: Seleziona tutto
myTim = Timer
Do While .readyState <> 4
   DoEvents
   If Timer > myTim + 10 Or Timer < myTim Then GoTo XYZZ
Loop 'Attesa documento

In questo caso dopo 10 secondi si esce dal loop e si salta a una etichetta di riga (da inserire nel tuo codice, ad esempio subito prima di Next na).

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: 13895
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "[Excel] Macro in loop senza errore READYSTATE":


Chi c’è in linea

Visitano il forum: Nessuno e 19 ospiti