Excel: Как исправить разорванные ссылки

В Excel часто используются ссылки на другие книги для обращения к соответствующей информации. Однако, если исходная книга переименована или перемещена в другое место, эти ссылки могут быть разорваны, что приведет к ошибкам. В этом руководстве представлены два эффективных метода - использование функции «Изменить ссылки» или кода VBA - для быстрого выявления и исправления разорванных ссылок в вашей книге.

Исправление разорванных ссылок с помощью функции Изменить ссылки

Исправление разорванных ссылок с использованием кода VBA

В Excel вы можете перейти в диалоговое окно «Изменить ссылки», чтобы исправить их по одной.

1. Откройте книгу, содержащую разорванные ссылки, и нажмите Данные > Изменить ссылки (в группе Запросы и подключения ).

2. В диалоговом окне Изменить ссылки нажмите Проверить статус чтобы найти, какие ссылки разорваны.
 

3. Затем нажмите на разорванные ссылки, затем нажмите кнопку Изменить источник В окне Изменить источник выберите правильную исходную книгу и нажмите OK.

Теперь вы можете увидеть, что статус изменился с Ошибка на OK. Повторите шаг 3, чтобы исправить другие разорванные ссылки.

Этот раздел представляет код VBA, который поможет исправить разорванные ссылки.

1. Откройте книгу, которую хотите исправить, и нажмите клавиши Alt + F11.

2. Затем в появившемся окне Microsoft Visual Basic for Applications нажмите Вставить > Модуль для создания нового пустого модуля.

3. Скопируйте и вставьте следующий код в новый модуль.

VBA: Исправление разорванных ссылок

Sub ResetInvalidLinks()
'UpdatedbyExtendoffice20220701
Dim xWB As Workbook
Dim xLks As Variant
Dim xFNum, xStatus As Integer
Dim xStrLk, xLinAddress As String
Dim xF
Dim xLk
Set xWB = Application.ActiveWorkbook
xLks = xWB.LinkSources(xlExcelLinks)
If IsEmpty(xLks) Then
    MsgBox "Select updated source"
    Exit Sub
End If
On Error Resume Next
For xFNum = LBound(xLks) To UBound(xLks)
    xStrLk = xLks(xFNum)
    xStrLk = Right(xStrLk, Len(xStrLk) - InStrRev(xStrLk, "\"))
    xStatus = ActiveWorkbook.LinkInfo(xStrLk, xlLinkInfoStatus)
    If xStatus <> 0 And xStatus <> 3 Then
        MsgBox xStrLk & " the link is broken, please select new source"
        xF = Application.GetOpenFilename()
        If xF <> "" Then
            For Each xLk In ActiveSheet.UsedRange.Hyperlinks
                xLinAddress = Right(xLk.Address, Len(xLk.Address) - InStrRev(xLk.Address, "\"))
                    If InStr(xStrLk, GetAddress) <> 0 Then
                        ActiveSheet.Hyperlinks.Add Anchor:=xLk.Range, Address:=xF
                    End If
            Next
            ActiveWorkbook.ChangeLink xLks(xFNum), xF, xlLinkTypeExcelLinks
        End If
        End If
    Next
End Sub

4. Нажмите клавишу F5 или кнопку Выполнить   для активации кода. Теперь он проверяет, есть ли разорванные ссылки. Если да, появится диалоговое окно, сообщающее вам, какая ссылка разорвана, выберите новый источник. Нажмите OK для продолжения.

5. В окне Открыть выберите обновленный источник, нажмите OK.

Если в книге все еще есть разорванная ссылка, вышеупомянутые диалоговые окна снова появятся до тех пор, пока все разорванные ссылки не будут исправлены.

Примечание: если в книге нет разорванных ссылок, VBA остановится после выполнения.

Совет: если вы хотите просмотреть все дополнительные ссылки и разорвать разорванные ссылки, Kutools for Excel’s Найти и разорвать ссылки функция станет хорошим помощником.

Чтобы узнать больше об этой функции, пожалуйста, просмотрите наш подробный учебник.