Excel: Как да поправим повредени връзки

Понякога в работна книга можете да създадете връзки към други работни книги за справка с подходяща информация. Но когато изходната работна книга бъде преименувана или преместена на друго място, тези допълнителни връзки ще бъдат прекъснати. Тук този урок въвежда два различни метода за коригиране на прекъснати връзки в Excel.

Поправете повредени връзки, като приложите Редактиране на връзки

Поправете повредени връзки с помощта на 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 или бягане бутон  за да активирате кода. Сега той търси дали има повредени връзки. Ако е така, изскача диалогов прозорец, за да ви каже коя връзка е повредена, моля, изберете нов източник. Кликнете OK да продължи.

5. В отворено прозорец, изберете актуализирания източник, щракнете върху OK.

Ако все още има повредена връзка в работната книга, горните диалогови прозорци се появяват отново, докато не бъдат коригирани всички повредени връзки.

Забележка: ако няма повредена връзка в работната книга, VBA ще спре след стартиране.

тип: ако искате да видите всички допълнителни връзки и да прекъснете повредените връзки, Kutools за ExcelЕ Намерете и разбийте повредени връзки функция ще бъде добър помощник.

За подробности относно тази функция, моля, щракнете тук.

За 30-дневен безплатен пробен период, моля, изтеглете от тук.

---

Най-добрите инструменти за производителност в офиса

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

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

Прочети повече ... Пълни функции 30-дневен безплатен пробен период... Покупка... 

---

Раздел Office - предоставя интерфейс с раздели в Office и прави работата ви много по-лесна

• Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
• Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
• Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!

Прочети повече ... Пълни функции 30-дневен безплатен пробен период... Покупка...