Обновить табличные данные в Exel

[Прохор]

Привет, Ребята!
Подскажите как справиться с задачей. С exel подтягиваю таблицу для разных расчетов. Когда меняю в Access значения экспортированной таблицы
то в Exel меняется текущее значение только через минуту или после ручной командой "обновить данные". Необходимо поставить 1 раз/сек.

[doober]

Sub tic()
Application.OnTime Now + TimeSerial(0, 0, 1), "tic"
    
    DoEvents
     ActiveWorkbook.RefreshAll
End Sub

[Прохор]

Спасибо, а куда это вводить, я просто с этим не знаком. Это Basic

[doober]

Инструкция внутри

[Прохор]

Огромное спасибо, все получилось и работает отлично..Только вот созрел еще один вопросик, скажи можно ли написанные модули запускать автоматически, как только откроется exel-документ?

[IgorGO]

либо это в модуль книги (по умолчанию называется "Эта книга")
Private Sub Workbook_Open()
Msgbox "Workbook opened! v.111"
End Sub


либо это в модуль проекта (по умолчанию "Module1")
sub auto_open
Msgbox "Workbook opened! v.222"
end sub

[Прохор]

Спасибо, приятно..