[RISOLTO] Macro per aprire un file excel e aggiornare le Query

salve a tutti

con il seguente codice io riesce ad aprire un file excel e aggiorno tutte le query che ci sono all'interno, do una pausa di 50 secondi e chiudo il file salvando:

---

Sub AggConteggi()

Dim wb As Workbook

Set wb = ApriWorkBook("C:\Documenti\File.xls")

If wb.ReadOnly Then
MsgBox "Il file è già in uso"
Else

wb.RefreshAll ' aggiorno tutte le query

Application.Wait Now + TimeValue("00:00:50") 'pausa di 50 secondi


wb.Close (True)

ChiudiWorkBook

End If

End Sub

---

ho messo una pausa di 50 secondi per sicurezza, ma a volte si aggiornano anche in pochi secondi,
al fine di avere una routine più veloce è possibile mettere un comando che va avanti appena aggiornate le Query invece di impostare un tempo fisso(50sec.)

vi ringrazio per l'aiuto

Excel 2010

Ciao,
per quel che ne so', basta togliere la pausa e
senza comandi specifici, prosegue da solo.

ciao

Frank

Hai ragione!!!

mi stavo complicando la vita da solo

Grazie Mille!!!