Ho eliminato i namedRange con il codice
- Codice: Seleziona tutto
CcName = "controlli!_?area_10elotto5minuti_action_Archivio_date"
For I = Foglio6.Names.Count To 2 Step -1
If Left(Foglio6.Names(I).Name, Len(CcName)) = CcName Then
Foglio6.Names(I).Delete
End If
Next I
CcName = "controlli!DatiEsterni_"
For I = Foglio6.Names.Count To 2 Step -1
If Left(Foglio6.Names(I).Name, Len(CcName)) = CcName Then
Foglio6.Names(I).Delete
End If
Next I
Ho cancellato tutte -1 le query tables con
- Codice: Seleziona tutto
For I = ActiveSheet.QueryTables.Count To 2 Step -1
ActiveSheet.QueryTables(I).Delete
Next I
I tempi di reazione sono tornati normali.
In genere questi casini si creano perche' si aggiungono query tables in un foglio, invece di averne una sola e modificare la sua connessione e farne il Refresh.
Tuttavia non ho trovato quale e' la query in discussione: il riferimento e' a http://www.lottomaticaitalia.it/delef/e ... equenti.do, ma una query cosi' il la vedo solo nella macro Modulo1.AggiornaDati che pero' fa riferimento al foglio Archivio
Ovviamente anche Archivio ha i presupposti per infognarsi prima o poi (adesso siamo a 374 Querytables e 544 NamedRange); su Foglio1 siamo a 40 /40; non ci sono query su altri fogli.
Sarebbe opportuno che anche su Archivio e Foglio1 comunque si facesse pulizia ripetendo su di loro le istruzioni elencate prima.
In linea di massima le WebQuery non vanno aggiunte via macro; diciamo che sarebbe meglio inserirle a mano e poi giocare sulla sua "Connection" e sul "Refresh".
Ad esempio, sul foglio Archivio:
-c' e' una web query in B2
-puoi aggiornare i suoi dati, se il foglio e' selezionato, con
- Codice: Seleziona tutto
Range("B2").QueryTable.Refresh BackgroundQuery:=False
Questo in sostituzione di tutta la manfrina che comincia con
- Codice: Seleziona tutto
With ActiveSheet.QueryTables.Add(Connection:=
Se non sbaglio le web query fanno sempre riferimento allo stesso url, quindi non c' e' nemmeno il bisogno di variare la Connection.
Se con questi spunti non risolvete allora scrivete ancora e vedremo come procedere.
Ciao a tutti