Разрыв ТОЛЬКО ошибочных связей в excel - VBA
Формулировка задачи:
Добрый день!
Нужна ваша помощь. Есть много файлов. В них есть ссылки-привязки связей на другие книги. Раньше эти связи были нужны. А теперь часть книг были удалены(т.к. перестали быть нужными данные из них). И теперь при открытии файла выдаёт ошибку при обновлении связей. И приходится в ручную разрывать связи с теми книгами , которые были удалены, и теперь не существуют. Файлов много, поэтому долго это в ручную удалять.
Можно ли как то сделать макрос и с помощью него удалять испорченные связи с теми удалёнными книгами. А что бы работающие связи оставались на месте!
Заранее большущее спасибо!
Решение задачи: «Разрыв ТОЛЬКО ошибочных связей в excel»
textual
Листинг программы
Private Sub Test() 'Microsoft Excel XP iArr = ActiveWorkbook.LinkSources(xlExcelLinks) If Not IsArray(iArr) Then Exit Sub For Each tmp In iArr If ActiveWorkbook.LinkInfo(tmp, xlLinkInfoStatus) = xlLinkStatusMissingFile Then ActiveWorkbook.BreakLink tmp, xlExcelLinks End If Next End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д