Excel: как исправить неработающие ссылки

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

Исправьте неработающие ссылки, применив Edit Links

Исправление неработающих ссылок с помощью кода VBA

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

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

2. в Редактировать ссылки диалоговое окно, нажмите Проверить состояние чтобы найти, какие ссылки не работают.
 

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

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

В этом разделе представлен код VBA, который поможет исправить неработающие ссылки.

1. Включите книгу, в которой вы хотите исправить неработающие ссылки, и нажмите другой + F11 ключи.

2. Затем в всплывающем Microsoft Visual Basic для приложений окна, нажмите Вставить > Модули для создания нового пустого модуля.

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 ключа или Run кнопка  для активации кода. Теперь он ищет, есть ли битые ссылки. Если это так, появится диалоговое окно с сообщением о том, какая ссылка не работает, выберите новый источник. Нажмите OK для продолжения.

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

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

Примечание. Если в книге нет неработающих ссылок, VBA остановится после запуска.

Tип: если вы хотите просмотреть все лишние ссылки и сломать неработающие ссылки, Kutools for ExcelАвтора Найдите и сломайте неработающие ссылки функция будет хорошим помощником.

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