ihtiandr
07.09.2012, 14:28
суть проблемы такая: нужно сделать надстройку которая обновляла бы связи excel с определенным промежутком времени или по нажатию на кнопку.
макрос сделал такой:
первый модуль для автообновления:
Sub repeat()
Application.OnTime Now + TimeValue("00:00:01"), "update"
End Sub
Private Sub update()
ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources
repeat
End Sub
2-ой модуль для кнопки
Sub Hand_update()
ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources
End Sub
проблема в том что прописывать этот макрос в каждом файле задача весьма муторная, поэтому нужно сделать из этого надстройку, которую можно было бы прилепить к нужным файлам или пользователям...
макрос сделал такой:
первый модуль для автообновления:
Sub repeat()
Application.OnTime Now + TimeValue("00:00:01"), "update"
End Sub
Private Sub update()
ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources
repeat
End Sub
2-ой модуль для кнопки
Sub Hand_update()
ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources
End Sub
проблема в том что прописывать этот макрос в каждом файле задача весьма муторная, поэтому нужно сделать из этого надстройку, которую можно было бы прилепить к нужным файлам или пользователям...