| Вопрос: Разрыв связей | Добавлено: 13.08.07 16:52 |
Автор вопроса:  bukmax
|
| Какую команду нужно написать, чтобы разорвать все связи в Excel. Понятное дело, что можно через Правка/Связи. А с помощью макроса? |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  Pavel Вопросов: 0 Ответов: 82 |
Профиль | | #1 | Добавлено: 13.08.07 18:52 |
|
Вот, попробуй
Sub KillLinks()
'удаляет ссылки на другие книги Excel Dim iLinks As Variant, i& iLinks = ActiveWorkbook.LinkSources(xlExcelLinks) If Not IsEmpty(iLinks) Then If MsgBox("Книга содержит внешние связи!" & Chr(13) & "Разорвать связи?", vbOKCancel + vbInformation, "Связи..."  = vbCancel Then: Exit Sub
For i = 1 To UBound(iLinks) ActiveWorkbook.BreakLink Name:=iLinks(i), Type:=xlExcelLinks Next i End If End Sub Можно вставить этот код в процедуру закрытия книги, т.е. Private Sub Workbook_BeforeClose(Cancel As Boolean)
KillLinks 'Проверка на внешние ссылки End Sub |
||
|
Номер ответа: 2 Автор ответа: bukmaxВопросов: 9 Ответов: 15 |
Профиль | | #2 | Добавлено: 14.08.07 09:37 |
| Супер. Спасибо. | ||
Страница: 1 |