Condividi:        

Excel - aggiornamento connessioni lento

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 - aggiornamento connessioni lento

Postdi dipdip » 28/10/17 23:44

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! 8)

dipdip
dipdip
Utente Junior
 
Post: 87
Iscritto il: 26/02/14 14:43

Sponsor
 

Re: Excel - aggiornamento connessioni lento

Postdi Anthony47 » 29/10/17 19:24

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
Avatar utente
Anthony47
Moderatore
 
Post: 19181
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Excel - aggiornamento connessioni lento

Postdi dipdip » 21/11/17 23:10

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
dipdip
Utente Junior
 
Post: 87
Iscritto il: 26/02/14 14:43


Torna a Applicazioni Office Windows


Topic correlati a "Excel - aggiornamento connessioni lento":


Chi c’è in linea

Visitano il forum: Nessuno e 26 ospiti