Excel：如何找到斷開的鏈接並修復它們

非工作鏈接是否會造成工作表造成破壞？不用擔心！本教程將教您3種簡便的方法來查找和修復破碎的Excel鏈接，以及我們自己的一鍵解決方案作為額外的獎勵:)

Excel細胞通常可能會鏈接到其他工作簿以從那裡提取相關信息。當源工作簿被刪除，重新定位或損壞時，對該文件的外部引用分解，您的公式開始返回錯誤。顯然，要修復公式，您需要找到斷開的鏈接。問題是如何？答案如下:)

• 在Excel中查找並修復損壞的鏈接
• 識別並糾正與查找並替換的無效鏈接
• 使用VBA代碼檢查斷開的鏈接
• 特殊加載項以查找斷鍊的鏈接

在Excel中查找並修復損壞的鏈接

要檢測到其他工作簿的非工作鏈接，請執行以下步驟：

1. 在“數據”選項卡上，在“查詢與連接組”中，單擊“編輯鏈接”按鈕。

   如果將此按鈕弄清楚，則意味著您的工作簿中沒有外部參考。

   

2. 在“編輯鏈接”對話框中，您可以看到當前工作簿所涉及的所有外部資源的列表。首次打開此窗口時，所有鏈接都有未知狀態。要澄清狀態，請單擊右側的檢查狀態按鈕：

   

3. 當信息更新後，請查看每個鏈接的狀態。為了方便起見，您可以單擊狀態列的標題以相應地對記錄進行分類。

   顯然，被診斷為錯誤的鏈接：未發現源被打破。在我的工作簿中，有兩個這樣的鏈接：

   

4. 讓我們繼續修復損壞的鏈接。為此，選擇報告錯誤的源，然後單擊右側的更改源按鈕：

   

5. 在打開的更改源窗口中，瀏覽計算機上的文件夾，直到找到正確的工作簿，選擇它，然後單擊“確定”（或雙擊工作簿）：

   

6. 重複每個有問題的來源的上述步驟。完成後，單擊“關閉”按鈕。

修復了所有錯誤的來源後，您可能會注意到您的鏈接列表實際上已經變得更短。原因是您可能發生了多次出現的同一工作簿，並且更改源後，錯誤的工作簿從列表中消失了。

例如，我們有以下對同一文件的對： Colrado Report.xlsx （拼寫錯誤）和Colorado Report.xlsx （recript）; florida_report.xlsx（不存在）和佛羅里達report.xlsx （正確）。修復了鏈接後，錯誤的來源消失了，我們現在有此列表：

識別並糾正與查找並替換的破裂鏈接

上面討論的“編輯鏈接功能”可以幫助您快速獲取工作簿中所有外部資源的列表，但它沒有顯示哪些單元格包含這些外部引用。要識別此類單元，您可以使用Excel的查找和替換。

查找全部或特定工作簿的鏈接破裂

外部鏈接始終指向另一個具有“ .xl”的Excel文件，作為文件名擴展名的一部分，例如.xls，.xlsx，.xlsm等。您可以在搜索對任何外部工作簿的引用時使用此事實。或者，您可以在特定的工作簿名稱中搜索特定的文本（子字符串）。詳細步驟如下。

1. 按CTRL F打開查找並替換對話框。或單擊查找並選擇>查找…在編輯組的“主頁”選項卡上。
2. 在查找和替換對話框中，單擊選項按鈕。
3. 取決於您要在工作簿中找到所有外部鏈接還是僅引用特定文件，請在查找哪個框中鍵入以下內容：
   • 要搜索所有鏈接，請鍵入.xl 。
   • 要搜索指向特定工作簿的鏈接，請鍵入該工作簿名稱或其唯一部分。
4. 在內部的框中，選擇工作簿在所有選項卡上搜索以查看當前工作表。
5. 在框中的外觀中，選擇公式。
6. 單擊查找所有按鈕。

現在是關鍵部分 - 分析結果。

如果您搜索所有外部引用，請單擊“值”列的標題以按值對結果進行排序，然後向下滾動列表。斷開指向其他工作簿的鏈接將有#ref！值列中的錯誤。

如果您搜索對特定工作簿的參考，請查看結果。

例如，我們知道摘要報告中的某些單元格指向不存在的文件（ Colrado Report.xlsx ），我們希望確切知道哪些單元格。因此，我們在查找什麼盒子中鍵入拼寫錯誤的單詞Colrado 。結果，Excel在2個不同的床單中顯示了3個此類參考。 #ref！值列中的錯誤確認所有三個鏈接都被打破：

筆記。這種診斷斷開鏈接的方法不是100％可靠的。例如，#ref！源工作簿中鏈接的單元格中的公式可以返回錯誤，並且還將顯示在所有結果中。但是，這並不意味著對其他工作簿的引用被打破了。因此，當使用這種方法時，它會有理由單擊每個錯誤並手動重新檢查引用。

修復了指向特定工作簿的破鏈接

在查找所有結果列表中，您可以單擊任何項​​目以導航到包含鏈接的單元格，然後單獨編輯每個鏈接。或者，您可以使用所有替換功能一次糾正無效鏈接的所有出現。以下是：

1. 在“查找和替換”對話框中，切換到替換選項卡。
2. 在查找哪個框中，鍵入錯誤的文件名或路徑。
3. 在替換框中，鍵入正確的文件名或路徑。
4. 單擊全部替換。

筆記。單擊“替換所有”按鈕後， “更新值”窗口可能會打開，以提示您選擇源工作簿。不要那樣做，只需單擊取消而無需選擇任何內容即可。

例如，讓我們用正確的一個Colorado Report.xlsx替換錯誤的工作簿名稱Colrado Report.xlsx 。在這種特殊情況下，僅替換一個單詞（ Colrado）也將起作用。但是，請記住，路徑字符串中的任何地方都將更換指定的文本（如果目前關閉源工作簿，則顯示文件的完整路徑）。因此，您輸入的文本較小，錯誤的機會就越大。

替換完成後，#ref！錯誤從結果中消失，而正常值則顯示為：

以類似的方式，您可以替換源文件的路徑。例如，如果源工作簿最初位於文檔文件夾中，然後將其移至同一文件夾中的報告子文件夾中，則可以用\ documents \ documents \ Reports \ 。

有人可能會說使用並替換來解決破裂的鏈接問題是荒謬的，但是據我所知，這是唯一可以幫助您找到包含損壞鏈接的單元格的內置功能。

檢查與VBA的斷開鏈接

以下代碼循環通過工作簿中的每個外部參考，並試圖弄清楚它是否被損壞。要查找外部文件，我們使用linksources方法。為了識別破裂的鏈接，使用了linkInfo方法。

sub FindBrokenlinks（）linksdataArray = ActiveWorkBook.LinkSources（XlexCellinks） Dim reportheDers（）作為字符串Dim rangecur作為dim dim sheetcur作為dim dim sheetcur ， as worksheet dim dim dim dim dim link linkfilepath， linkfilepath ， linkfilepath2 'https://docs.microsoft.com/en-us/office/vba/api/excel.xllinkstatus dim SheepReportName as string sheet ReportName = “破碎鏈接報告” linksstatusdescr = “ filesStatusDescr =” file noffect =“ file nofformed” peat opporte = propthers = split = split （ split ） = False Application.Calculation = xlCalculationManual If Evaluate( "ISREF('" & sheetReportName & "'!A1)" ) Then ActiveWorkbook.Worksheets(sheetReportName).Cells.Clear Else Sheets.Add.Name = sheetReportName End If Set sheetReport = ActiveWorkbook.Worksheets(sheetReportName) For indI = 0 To UBound (reportHeaders) SheepReport.cells（Rowno，Indi 1）= ActiveWorkBook.Worksheets中的每個sheetcur.name.name > SheepReport.name的每個sheetcur下一個= reportheDeders（indi） ，然後對於rangecur.hasformula中的每個rangecur in sheepcur.usedrange if rangecur.hasformula in Indi = indi = llbound （linksdataRay） linksdataArray（indi） 'linkSrouces返回帶有文件名linkfileName = right（linkfilepath，lin（linkfilepath）（linkfilepath）-ElstReRev（linkfilepath， “ \” ） '僅提取文件名稱link linkfilepath2 = left（linkSdataArray（instray），instray），instray＆inseprereve（Inderri）（indere），Inderre re instraive （instray），Inderrie rinkss（Inderri）（indere），Inderre re inseReve（indefilepath）， “ [ ＆linkfileName＆ ']” ''square括號中帶有工作簿名稱的文件路徑linksstatuscode = activeworkbook.linkinfo（cstr（linkfilepath），xllinkinfostatus），如果xllinkstatusmissmissingfile = linksStatusCode = linksStatusCode and （rangecur.ullage and instrange and instrange and instrange and linkfiLeprula， linkfiileformula ，rangefilefileffile = linkfilefileffile） linkFilePath2））然後rowno = rowno 1 with septhreport .cells（rowno，1）= sheetcur.name .cells .cells（rowno，2）=替換（rangecur.address，address， “ $” ， “” ）.hyperlinks.add andd anchor：=。 cells：=。 cells（rowno，2），rowno，2），roonto ， address：=：= “” ，“ & rangeCur.Address .Cells(rowNo, 3) = "'" & rangeCur.Formula .Cells(rowNo, 4) = linkFilePath .Cells(rowNo, 5) = linksStatusDescr End With Exit For End If Next indI For Each namedrangeCur In Names If InStr(rangeCur.Formula, namedrangeCur.Name) Then linkFilePath = "" linksStatusCode = -1如果0 “ [“ ） ，則linkFilePath = replace（split（split（nesionrangecur.refersto），len（nequrangecur.refersto） - 2） - 2 ） - 2 ） - 2）， “ XllinkInfostatus）如果如果XllinkStatusMissingFile = linksStatusCode，則結束）ROWNO = ROWNO = ROWNO 1帶SheetReport .Cells .Cells（Rowno，1）= SheetCur.name .cells .cells .cells（rowno，2）= repertion.anddress， “ repnecur.address，” $“ $” ，“ $”， “” ）。 “” ，子輔助：= “'” ＆SheetCur.name＆ “'！” ＆ rangecur.Address .cells （ Rowno，3 ） = “'” ＆ rangecur.formula .cells （ Rowno ， 4） = linkFilePath如果0 len （ linkfilepath ） ，則.cells 。 ） 。​

無效鏈接的列表在名為Broken Links Report的新工作表中輸出。 B列具有與包含鏈接的單元格的超鏈接。

您可以在自己的工作簿中插入代碼，也可以使用宏以及有關如何使用它的分步說明下載我們的示例文件。

筆記。該代碼僅找到無效的工作簿（不存在，移動或刪除）的鏈接，但不會丟失床單。原因是linkInfo方法僅檢查文件名。試圖檢查表名稱導致2015年錯誤。

單擊在Excel中查找斷開的鏈接

在閱讀本教程的第一部分時，您可能會感到有些灰心，沒有簡單的方法可以通過單擊一個按鈕來找到文件中的所有損壞鏈接。儘管這種解決方案在Excel中不存在，但沒有什麼阻止我們自己開發它:)

對於我們的Ultimate Suite的用戶，我們確實提供了一個單擊的工具，可以在工作簿中查找所有外部參考或僅斷開鏈接。只需單擊查找鏈接？ “ ablebits工具”選項卡上的按鈕，您會立即看到當前工作簿中所有鏈接的列表，其中無效的鏈接以淺紅色突出顯示。要限制列表不工作鏈接，請選擇“損壞鏈接”僅複選框。

單擊加載項窗格上的單元格地址將帶您進入包含特定鏈接的單元格。這就是一切！

與上面的VBA代碼不同，加載項可以找到各種損壞的鏈接，包括缺少或誤入的張紙的鏈接。

這是查看Excel中的損壞鏈接的方法。我感謝您閱讀，並希望下週在我們的博客上見到您！

可用下載：

Ultimate Suite 14天功能功能版本（.EXE文件）VBA宏以查找損壞的鏈接（.xlsm）

以上是Excel：如何找到斷開的鏈接並修復它們的詳細內容。更多資訊請關注PHP中文網其他相關文章！