Excel - aggiornamento connessioni lento

[dipdip]

Ciao a tutti,

ho un problema con l'aggiornamento delle connessioni quando eseguito con una macro.

Utilizzo un file Excel per caricare dati esterni dal sito di Borsa Italiana tramite 6 connessioni che manualmente (tab DATI, quindi CONNESSIONI e poi aggiornamento ad una ad una) funzionano perfettamente ed in un paio di secondi restituiscono i dati ma se uso il registratore macro durante un aggiornamento e poi lancio la macro creata, l'operazione arriva ad impiegare sino a 4 o 5 minuti.

Codice: Seleziona tutto

Sub Aggiorna_web()
'   ActiveWorkbook.RefreshAll
    ActiveWorkbook.Connections("FTSE MIB").Refresh
    ActiveWorkbook.Connections("Autogrill").Refresh
    ActiveWorkbook.Connections("Espresso").Refresh
    ActiveWorkbook.Connections("Prelios").Refresh
    ActiveWorkbook.Connections("Tiscali").Refresh
    ActiveWorkbook.Connections("Geox").Refresh
End Sub


Questa è la macro incriminata, inizialmente avevo utilizzato il RefreshAll, poi ho inserito le varie connessioni ma il risultato non cambia.

Lavoro in Office 2010 su Win7, la connessione Internet è a fibra ottica quindi non sono problemi di rete.

Qualcuno sa darmi una dritta?

Grazie a tutti e, per ora, buonanotte!

dipdip

[Anthony47]

Senza sapere come sono organizzate le query e quali proprieta' hanno, probabilmente possono rispondere solo sul forum de lostregone.it/forum

Metti una serie di Debug.Print per vedere se ce n'e' qualcuna in particolare che zoppica:

Codice: Seleziona tutto

Sub Aggiorna_web()
Debug.Print ">>> "
'    ActiveWorkbook.Connections("FTSE MIB").Refresh
Debug.Print Format(Timer - mytim, "0.0")
    ActiveWorkbook.Connections("Autogrill").Refresh
Debug.Print Format(Timer - mytim, "0.0"): mytim = Timer
    ActiveWorkbook.Connections("Espresso").Refresh
Debug.Print Format(Timer - mytim, "0.0"): mytim = Timer
    ActiveWorkbook.Connections("Prelios").Refresh
Debug.Print Format(Timer - mytim, "0.0"): mytim = Timer
    ActiveWorkbook.Connections("Tiscali").Refresh
Debug.Print Format(Timer - mytim, "0.0"): mytim = Timer
    ActiveWorkbook.Connections("Geox").Refresh
Debug.Print Format(Timer - mytim, "0.0"): mytim = Timer
End Sub


Dopo le modifiche esegui la macro, poi nella finestra dell'editor delle macro apri la finestra "Immediata" (premi Contr-g) e guarda i tempi di esecuzione.
Se qualcuna ha un tempo di esecuzione drasticamente diverso dagli altri allora concentrati su quella per capire cosa ha di diverso dalle altre.

Se ti serve qualcosa di piu' utile allora, partendo da un nuovo file:
-avvia il registratore di macro e poi imposta la query sul primo titolo
-esegui un Refresh e ferma la registrazione macro
Controlla come si comporta con aggiornamento manuale e come con aggiornamento da macro (codice come quella gia' pubblicata, con l'aggiunta delle istruzioni per il conteggio dei tempi)
Poi pubblica nel prossimo messaggio il risultato ottenuto nella finestra Immediata e il codice della macro che e' stata registrata.

Ciao

[dipdip]

Ciao Anthony,

scusami innanzitutto per la risposta tardiva, ho avuto problemi di pc e ne sono tornato in possesso solo oggi perché nel mezzo ho avuto un viaggio di lavoro.

Grazie molte per la risposta e potenziale soluzione, non appena l'avrò testata ti farò sapere ma mi sa che potrò farlo solo durante le festività di Natale perché sono in ripartenza.

Ancora scusa, a presto!

dipdip