Modifica nella macro il ciclo che aggiorna le WebQuery in questo modo:
- Codice: Seleziona tutto
For Each wksh In Worksheets
For Each wq In wksh.QueryTables
mytim = Timer
'----------------------------------------------
NQ = NQ + 1 ' queste x vedere in basso il num di querry aggiornate
Application.StatusBar = "Aggiornamento Classifica/Query N° " & NQ
'---------------------------------------------------
Debug.Print ">>> ", NQ, wq.Connection
Debug.Print wksh.Name, wq.Destination.Address, wq.Name
DoEvents
wq.Refresh BackgroundQuery:=False
Debug.Print Format(Timer - mytim, "0.00")
If Timer - mytim > 120 Then Stop '>>>> Solo per Debug
Next wq
Next wksh
In questo modo quando avvii una query verra' segnalato nella finestra "Immediata" del vba l'operazione in corso. Verra' indicato:
-il Numero della Query, l'indirizzo della query
-il nome del foglio che la ospita, l'indirizzo di inizio dell'intervallo, il Nome della query
-i secondi impiegati per il completamento della query
Esempio:
- Codice: Seleziona tutto
>>> 30 URL;http://www.soccerstats.com/team_trends.asp?league=england3&pmtype=overunder
Statistiche-socer $A$731 team_trends.asp?league=england3&pmtype=overunder
0,69
In caso di blocco sara' quindi possibile sapere su quale Foglio e quale Intervallo la Query giace; se si vuole eliminare la query:
-selezionare una cella dell'intervallo dati della query
-tasto dx, scegli Proprieta' intervallo dati
-togli la spunta alla voce "Salva definizione query"; Ok
Con tale procedura ho trovato che la Query relativa alla Bolivia e' la numero 33 e si trova in Palinsesto, range $AP$4:
- Codice: Seleziona tutto
>>> 33 URL;http://www.soccerstats.com/team_trends.asp?league=bolivia&pmtype=overunder
Palinsesto $AP$4
Puoi lasciare la macro come l'abbiamo modificata, eventualmente elimini solo l'istruzione marcata >>>>, che serve a interrompere la macro qualora la webquery vada in timeout (cosa che blocca il Pc per diversi minuti, e lo Stop arrivera' solo dopo che il timeout si e' completato; serve per poter capire quale Query ha provocato il timeout).
Per visualizzare la "finestra Immediata", dall'editor delle macro premi Contr-g
Ciao