Доброго времени суток, прошу помощи, при обновлении внешних данных возникает ошибка, (насколько я понимаю при разрыве соединения с источником возникает такая ошибка), т.е обновляет, но потом может выскочить данная ошибка и обновление приостанавливается, соответственно приостанавливается вся работа, приходится запускать вручную:
Просьба помочь изменить код, который отвечает за обновление этого источника данных или при появлении ошибки просто перезапустить макрос сначала. [vba]
Код
Private Sub ОбновлениеПодключений()
' Макрос "Обновить подключения".
Dim i As Long
Обновление подключений. Worksheets("ЕВРО").Range("A500").QueryTable.Refresh BackgroundQuery:=False Установка таймера. Application.OnTime Now + TimeValue("00:00:05"), "ОбновлениеПодключений"
End Sub
[/vba]
Доброго времени суток, прошу помощи, при обновлении внешних данных возникает ошибка, (насколько я понимаю при разрыве соединения с источником возникает такая ошибка), т.е обновляет, но потом может выскочить данная ошибка и обновление приостанавливается, соответственно приостанавливается вся работа, приходится запускать вручную:
Просьба помочь изменить код, который отвечает за обновление этого источника данных или при появлении ошибки просто перезапустить макрос сначала. [vba]
Код
Private Sub ОбновлениеПодключений()
' Макрос "Обновить подключения".
Dim i As Long
Обновление подключений. Worksheets("ЕВРО").Range("A500").QueryTable.Refresh BackgroundQuery:=False Установка таймера. Application.OnTime Now + TimeValue("00:00:05"), "ОбновлениеПодключений"