Разрыв ТОЛЬКО ошибочных связей в 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

8   голосов , оценка 3.875 из 5
Похожие ответы