Excel：如何修復損壞的鏈接
Excel：如何修復損壞的鏈接
在工作簿中，有時您可能會創建指向其他工作簿的鏈接以引用一些相關信息。 但是當源工作簿被重命名或移動到另一個位置時，這些額外的鏈接將被破壞。 本教程在這里介紹了兩種不同的方法來修復 Excel 中的損壞鏈接。
通過應用編輯鏈接修復損壞的鏈接
使用 VBA 代碼修復損壞的鏈接
通過應用編輯鏈接修復損壞的鏈接
在 Excel 中，您可以轉到“編輯鏈接”對話框來一一修復它們。
1. 啟用包含斷開鏈接的工作簿，然后單擊 Data > 編輯連結 （在 查詢和連接
組）。
2.在 編輯連結 對話框中，單擊 檢查狀態
查找哪些鏈接已損壞。
3.然后點擊斷開的鏈接，然后點擊 更改來源 按鈕，在 更改來源 窗口，選擇正確的源工作簿，然后單擊 OK
.
現在你可以看到狀態從 誤差 至 OK
，然后重復步驟 3 以修復其他損壞的鏈接。
使用 VBA 代碼修復損壞的鏈接
這里介紹一個可以幫助你的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
Copy
4。 按 F5 鍵或 運行 按鍵 激活代碼。 現在它會搜索是否有任何損壞的鏈接。 如果是這樣，它會彈出一個對話框告訴您哪個鏈接已損壞，請選擇一個新來源。 點擊 OK
繼續。
5.在 可選 窗口，選擇更新的源，單擊 OK
.
如果工作簿中仍然存在斷開的鏈接，則會再次彈出上述對話框，直到修復所有斷開的鏈接。
注意：如果工作簿中沒有斷開的鏈接，VBA 將在運行后停止。
Tips:：如果您想查看所有額外的鏈接并斷開損壞的鏈接， Kutools for Excel“ 查找并斷開斷開的鏈接
功能將是一個很好的幫手。
有關此功能的詳細信息，請單擊 點擊此處.
針對 30-天免費試用，請從下載 點擊此處.
其他操作（文章）
如何在工作表中修復/鎖定背景顏色有時，當您與其他人共享工作表以進行編輯時，您可能希望鎖定一系列單元格中的背景顏色并防止它們被更改。
如何減小 Excel 文件大小？有時，如果 Excel 文件太大，打開或保存需要幾分鐘。 為了解決這個問題，在本教程中，它告訴您如何通過刪除不必要或從未使用過的內容或格式來減小 Excel 文件的大小。
Excel：如何創建或插入書簽您有沒有想過在工作表或工作簿中有大量數據時創建或插入書簽以快速跳轉到特定數據范圍？
如何在Excel中將陰影應用于奇數或偶數（替代）行/列？在設計工作表時，許多人傾向于對奇數或偶數（替代）行或列應用陰影，以使工作表更直觀。 本文將向您展示兩種將陰影應用于Excel中奇數或偶數行/列的方法。
更多文章
最佳辦公效率工具
Kutools for Excel 解決您的大部分問題，并將您的工作效率提高 80%
閱讀更多
功能齊全的30天免費試用版... 采購...
office Tab - 為 Office 帶來標簽式界面，讓您的工作更輕松
閱讀更多
功能齊全的30天免費試用版... 采購...
版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。
版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。
相關文章
