TopTin, вот нашел макрос который обновляет все связи.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
'http://www.sql.ru/forum/actualthread.aspx?tid=423077&hl=activeworkbook+updatelink+name#4075679
'
'Deggasad
'Если можно не обновлять недоступные файлы, а оставить старые цифры то удали из модуля эти строки:
' Else
' x = Split(fname, "\")
' fnput = Replace(fname, x(UBound(x)), "[" & x(UBound(x)) & "]")
' For Each Sh In ActiveWorkbook.Sheets
' Sh.Cells.Replace What:=fnput, Replacement:=fnput, LookAt:=xlPart
' Next Sh
Private Function FileExists3(fname) As Boolean
Set filesys = CreateObject("scripting.filesystemobject")
FileExists3 = filesys.FileExists(fname)
End Function
Sub UpdLink()
Application.DisplayAlerts = False
aLinks = ActiveWorkbook.LinkSources(xlExcelLinks)
If Not IsEmpty(aLinks) Then
For i = 1 To UBound(aLinks)
fname = aLinks(i)
If FileExists3(fname) = True Then
ActiveWorkbook.UpdateLink Name:=fname
' Else
' x = Split(fname, "\")
' fnput = Replace(fname, x(UBound(x)), "[" & x(UBound(x)) & "]")
' For Each Sh In ActiveWorkbook.Sheets
' Sh.Cells.Replace What:=fnput, Replacement:=fnput, LookAt:=xlPart
' Next Sh
End If
Next i
End If
Application.DisplayAlerts = True
End Sub
Весь этот код лучше всего вставить в модуль личной книги макросов.
Чтобы создать такую книгу нужно:
- Сервис - Маркос - Начать запись - Сохранить в личной книге макросов - ОК - остановить запись.
Дальше:
Нажать Альт + F11.
появится окно редактора ВБА
Войти в Модуль1
Скопировать туда код
закрыть ВБА
Дальше:
На панели инструментов щелкнуть правой кнопкой мыша.
выбрать
настройки - Команды - макросы - настраиваемая кнопка.
взять эту кнопку мышью и перетащить на удобное место любой панели.
не закрывая окна настройки кликнуть по новой кнопке правой мышкой.
выбрать макрос... выбираем макрос с именем UpdLink
потом настраиваем кнопку как нравица (название, быстрые клавиши, картинки на кнопке)
закрываем окно настройки.
теперь имеем кнопку, при нажатии на которую в активной книге будут обновлены все связи.
