Excel 2010: более частые внешние обновления данных с помощью vba?

Question

Excel 2010 позволяет обновить внешние источники данных раз в минуту на самых быстрых настроек в:

данных -> Свойства -> Обновить все

Что является лучшим УВА Бесступенчатая обновление от соединений под одну минуту? В идеале я хотел бы установить частоту обновления для каждого отдельного соединения, но Refresh All достаточно.

Answer 1

Следующий метод работает:

В ThisWorkbook,

Private Sub Workbook_BeforeClose(Cancel As Boolean) 
    On Error Resume Next 
    If Cancel = False Then Application.OnTime dTime, "RefreshIt", , False 
    On Error Goto 0 
End Sub 

Private Sub Workbook_Open() 
    Run "RefreshIt" 
End Sub 

В новом модуле

Public dTime As Date 

Sub RefreshIt() 
    Sheets(1).Range("A1").QueryTable.Refresh 
    dTime = Time + TimeValue("00:00:30") 
    Application.OnTime dTime, "RefreshIt" 
End Sub 

Благодаря Dave Хоули на следующем форуме http://www.ozgrid.com/forum/showthread.php?t=24119