Excel: как исправить неработающие ссылки
В Excel часто используются ссылки на другие книги для доступа к нужной информации. Однако если исходная книга переименована или перемещена, такие ссылки могут нарушиться и привести к ошибкам. В этом руководстве представлены два эффективных способа — использование функции «Изменить ссылки» и кода VBA — чтобы быстро найти и исправить неработающие ссылки в вашей книге.
Исправьте неработающие ссылки с помощью функции «Изменить ссылки»
Исправьте неработающие ссылки с помощью кода VBA
В Excel вы можете открыть диалоговое окно «Изменить ссылки» и исправлять их по одной.
1. Откройте книгу, содержащую неработающие ссылки, и нажмите Данные > Изменить ссылки(в группе)Запросы и подключения).
2. В диалоговом окне Изменить ссылки нажмите Проверить состояние, чтобы определить, какие ссылки нарушены.
3. Затем выделите неработающие ссылки и нажмите кнопку Изменить источник. В окне Изменение источника выберите правильную исходную книгу и нажмите ОК.
Теперь вы видите, что статус изменился с Ошибка на ОК. Повторите шаг 3, чтобы исправить остальные неработающие ссылки.
В этом разделе представлен код VBA для устранения неработающих ссылок.
1. Откройте книгу, в которой нужно исправить неработающие ссылки, и нажмите клавиши Alt+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 или кнопку Выполнить
, чтобы запустить код. После запуска он проверит наличие неработающих ссылок. Если такие ссылки обнаружены, появится диалоговое окно с указанием проблемной ссылки и предложением: «Пожалуйста, выберите новый источник». Нажмите ОК, чтобы продолжить.
5. В окне Открытие выберите обновлённый источник и нажмите ОК.
Если в книге остаются неработающие ссылки, указанные выше диалоговые окна будут появляться снова и снова, пока все недействительные ссылки не будут исправлены.
Примечание: если в книге нет неработающих ссылок, код VBA завершит выполнение автоматически.
Совет: если вы хотите просмотреть все внешние ссылки и удалить неработающие, функция Kutools для Excel «Найти и разорвать ссылки» станет отличным помощником.
Чтобы узнать больше об этой функции, ознакомьтесь с нашим подробным руководством.
Kutools для Excel— раскройте весь потенциал Excel с помощью более чем 300 незаменимых инструментов, которые ускоряют и упрощают вашу работу, а также воспользуйтесь возможностями ИИ для более разумной обработки данных и повышения продуктивности.Получить сейчас
Как исправить/заблокировать Цвет фона на листе
Иногда, когда вы делитесь листом с другими пользователями для совместного редактирования, может понадобиться заблокировать цвет фона в определённом диапазоне ячеек, чтобы никто не мог его изменить.
Как уменьшить размер файла Excel?
Иногда открытие или сохранение файла Excel занимает несколько минут, если файл слишком велик. В этом руководстве описано, как уменьшить размер файла Excel, удалив неиспользуемое содержимое или форматирование.
Excel: как создать или вставить закладку
Мечтали ли вы о возможности создать или вставить закладку, чтобы мгновенно переходить к нужному диапазону данных на листе или в книге, заполненной огромным количеством информации?
Как применить заливку к нечётным или чётным (чередующимся) строкам/столбцам в Excel?
При оформлении листа многие пользователи предпочитают выделять нечётные или чётные (чередующиеся) строки и столбцы разными оттенками, чтобы сделать таблицу более наглядной. В этой статье описаны два способа применения заливки к нечётным или чётным строкам и столбцам в Excel.
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек