В этой статье вы узнаете, как автоматически обновлять ссылки на внешние книги через интервал x с помощью кода VBA.

В): Как я могу автоматически обновлять ссылки на внешние книги каждые 10 секунд?

Обновлять файл Excel каждые 10 секунд; нам нужно выполнить следующие шаги:

Нам нужно создать два файла excel 1) Source.xlsm и 2) Target.xlsm Теперь нам нужно открыть оба файла.

В исходной книге мы использовали функцию RAND в диапазоне A1: D10. Затем скопируйте этот диапазон с помощью специальной команды «Вставить» и выберите «Вставить ссылку в целевой книге», см. Снимок экрана ниже

img2

img3

В целевой книге; запустить редактор VB. Щелкните вкладку «Разработчик» * В группе «Код» выберите Visual Basic

img4

В этом модуле учебного пособия введите следующий код

Private Sub Workbook_Open ()

Вызвать Update_Links

End Sub

img5

  • Нажмите «Вставить», затем «Модуль»

img6

Это создаст новый модуль.

Введите следующий код в модуль

Sub Update_Links ()

При ошибке Возобновить След.

ActiveWorkbook.UpdateLink Имя: = ActiveWorkbook.LinkSources

Application.OnTime DateAdd («s», 10, Now), «Update_Links»

End Sub

img7

Приведенный выше код будет запускаться каждые 10 секунд и обновлять ссылки.