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

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

Исправьте неработающие ссылки, применив 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 остановится после запуска.

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

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

Чтобы получить 30-дневную бесплатную пробную версию, загрузите ее с здесь.

---

Лучшие инструменты для работы в офисе

Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

• Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
• Объединить ячейки / строки / столбцы и хранение данных; Разделить содержимое ячеек; Объедините повторяющиеся строки и сумму / среднее значение... Предотвращение дублирования ячеек; Сравнить диапазоны...
• Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
• Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
• Избранные и быстро вставляйте формулы, Диапазоны, диаграммы и изображения; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
• Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
• Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
• Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
• Группировка сводной таблицы по номер недели, день недели и другое ... Показать разблокированные, заблокированные ячейки разными цветами; Выделите ячейки, у которых есть формула / имя...

Больше информации... Полнофункциональная 30-дневная бесплатная пробная версия ... Покупка ... 

---

Вкладка Office - предоставляет интерфейс с вкладками в Office и значительно упрощает вашу работу

• Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
• Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
• Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!

Больше информации... Полнофункциональная 30-дневная бесплатная пробная версия ... Покупка ...