macro che si blocca

[rombotuono]

buonasera,
ho un problema con una macro che si blocca.
ho cercato in vari modi di capire il problema ma purtroppo non riesco a risolverlo.
con il blocco di excel l 'errore segnalato è excel non risponte.
posto link del file per una eventuale prova.
grazie
https://ufile.io/rdzhximk

[Anthony47]

Ho provato a eseguire la macro; a parte una serie di url dove la XMLReq segnala errore (segnalazione nascosta da On Error Resume Next) a me la macro si ferma sull’istruzione naz = Sheets("RIS").Cells(1, 1) visto che il file non ha un foglio di nome RIS

[rombotuono]

Grazie Anthony
si è stata una svista corretto con
naz = Sheets("CAMP").Cells(1, 12) 'UCase(naz)
lega = Sheets("CAMP").Cells(1, 13) 'UCase(lega)
ma si blocca
segnala excel non risponde.

[Anthony47]

A me continua a funzionare con una unica anomalia:
-in molti casi, l'istruzione http1.Open "POST", url1, False fallisce perche' (secondo me) l'istruzione precedente non ha finito di creare l'oggetto "MSXML2.ServerXMLHTTP"
Ma questa continua creazione dell'oggetto e' inutile, quindi il mio suggerimento e' di sostituire, nella Sub importarisultati, la riga Set http1 = CreateObject("MSXML2.ServerXMLHTTP") con

Codice: Seleziona tutto

If http1 Is Nothing Then Set http1 = CreateObject("MSXML2.ServerXMLHTTP")
DoEvents


Poi hai i dati di 177 leghe da prelevare, serviranno "parecchi" minuti; lavorando con ScreenUpdating = False sullo schermo non vedrai granchè fino al completamento della macro, a parte alcune indicazioni visualizzate sulla status bar.
Normalmente quanto dura tutto il processo?
Comunque secondo me devi solo aspettare...

[rombotuono]

grazie
provo, vedo quanto dura il processo

[rombotuono]

provato ciclo terminato durata 52 minuti
spero che continui
grazie