Разрыв ТОЛЬКО ошибочных связей в excel

@AlenaZ · Регистрация: 08.08.2016

Author24 — интернет-сервис помощи студентам

Добрый день форумчане!
Нужна ваша помощь. Есть много файлов. В них есть ссылки-привязки связей на другие книги. Раньше эти связи были нужны. А теперь часть книг были удалены(т.к. перестали быть нужными данные из них). И теперь при открытии файла выдаёт ошибку при обновлении связей. И приходится в ручную разрывать связи с теми книгами , которые были удалены, и теперь не существуют. Файлов много, поэтому долго это в ручную удалять.
Можно ли как то сделать макрос и с помощью него удалять испорченные связи с теми удалёнными книгами. А что бы работающие связи оставались на месте!
Заранее большущее спасибо!

@pashulka · 15.09.2016, 09:35

Пример разрыва связи с сохранением значений. Тестировать желательно на копии книги.

Visual Basic

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

@AlenaZ · 15.09.2016, 13:24 **[ТС]**

pashulka, огромные спасибки. мур мур!

@AlenaZ 0 / 0 / 0 Регистрация: 08.08.2016 Сообщений: 35
		1
	Разрыв ТОЛЬКО ошибочных связей в excel 15.09.2016, 06:22. Показов 5572. Ответов 2 Метки нет (Все метки) Добрый день форумчане! Нужна ваша помощь. Есть много файлов. В них есть ссылки-привязки связей на другие книги. Раньше эти связи были нужны. А теперь часть книг были удалены(т.к. перестали быть нужными данные из них). И теперь при открытии файла выдаёт ошибку при обновлении связей. И приходится в ручную разрывать связи с теми книгами , которые были удалены, и теперь не существуют. Файлов много, поэтому долго это в ручную удалять. Можно ли как то сделать макрос и с помощью него удалять испорченные связи с теми удалёнными книгами. А что бы работающие связи оставались на месте! Заранее большущее спасибо! 0

@AlenaZ 0 / 0 / 0 Регистрация: 08.08.2016 Сообщений: 35
	15.09.2016, 13:24 [ТС]	3
	pashulka, огромные спасибки. мур мур! 0

Разрыв ТОЛЬКО ошибочных связей в excel

Решение