Excel：如何修復損毀的連結

作者孫修改日期2024-12-02

在 Excel 中，經常會透過連結至其他活頁簿來參照相關資訊。然而，一旦來源活頁簿被重新命名或移至其他位置，這些連結便可能損毀，進而引發錯誤。本教學將為您介紹兩種高效方法——善用「編輯連結」功能或運用 VBA 程式碼——快速找出並修復活頁簿中的損毀連結。

透過套用「編輯連結」修復損毀的連結

使用 VBA 程式碼修復損毀的連結

透過套用「編輯連結」修復損毀的連結

在 Excel 中，您可以前往「編輯連結」對話方塊，逐一修復問題。

1. 開啟包含損毀連結的活頁簿，然後按一下資料 > 編輯連結（位於）查詢與連線群組中）。
Excel「資料」索引標籤下「編輯連結」選項的螢幕截圖

2. 在編輯連結對話方塊中，點擊檢查狀態，立即找出哪些連結已損毀。
顯示連結狀態的「編輯連結」對話框螢幕截圖

3. 接著點選損毀的連結，再按一下變更來源按鈕，在變更來源視窗中選取正確的來源活頁簿，然後點擊確定。
用於修復 Excel 中中斷連結的「變更來源」對話框螢幕截圖

現在您可以看到狀態已從錯誤變為確定！立即重複步驟 3，修復其他損毀連結，確保一切順暢運作。
連結狀態已更新為「確定」的「編輯連結」對話框螢幕截圖

使用 VBA 程式碼修復損毀的連結

本節將介紹一段 VBA 程式碼，協助您輕鬆修復損毀的連結。

1. 開啟您要修復損毀連結的活頁簿，然後按下 Alt+F11 鍵。

2. 接著，在跳出的 Microsoft Visual Basic for Applications 視窗中，點選插入＞模組，即可建立新的空白模組。
Excel 中新增模組後的 VBA 編輯器螢幕截圖

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. 在開啟視窗中，選取更新後的來源，再點選確定。
用於在 Excel 中選取新來源檔案的「開啟」對話框螢幕截圖

只要活頁簿中仍存在損毀的連結，上述對話方塊就會持續彈出，直到所有失效連結都修復完畢為止。

注意：若活頁簿中沒有損毀的連結，VBA 將於執行完畢後自動停止。

提示：若您想檢視所有外部連結並清除損毀連結，Kutools for Excel 的查找和斷開連結功能將是您的絕佳幫手！
Kutools「尋找並中斷損壞連結」功能的螢幕截圖

若想進一步了解此功能，請參閱我們的詳細教學。

Kutools for Excel－透過超過 300 項必備工具全面強化 Excel，讓您的工作更快速、更輕鬆，並運用 AI 功能實現更聰明的資料處理與高效生產力！立即取得

其他操作（文章）

如何在工作表中修復或鎖定背景顏色？
當您與他人共用工作表以供編輯時，有時可能希望鎖定特定儲存格範圍的背景顏色，避免遭更改。

如何縮減 Excel 檔案大小？
有時 Excel 檔案過大，開啟或儲存可能耗時數分鐘。為解決此問題，本教學將說明如何透過移除不必要的內容或清除未使用的格式，有效縮減 Excel 檔案大小！

Excel：如何建立或插入書籤
當您在工作表或活頁簿中處理大量資料時，是否曾想過建立或插入書籤，以便快速跳轉至特定數據區域？

如何在 Excel 中為奇數或偶數（交替）列／欄上色？
設計工作表時，許多人偏好為奇數或偶數（交替）列或欄上色，讓工作表更具視覺效果。本文將為您介紹兩種在 Excel 中為奇數或偶數列／欄上色的實用方法！

更多文章

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料並產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依式下拉式清單｜多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單傳送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多