跳到主要內容

Excel:如何修復損壞的鏈接

在工作簿中,有時您可能會創建指向其他工作簿的鏈接以引用一些相關信息。 但是當源工作簿被重命名或移動到另一個位置時,這些額外的鏈接將被破壞。 本教程在這裡介紹了兩種不同的方法來修復 Excel 中的損壞鏈接。

通過應用編輯鏈接修復損壞的鏈接

使用 VBA 代碼修復損壞的鏈接


通過應用編輯鏈接修復損壞的鏈接

在 Excel 中,您可以轉到“編輯鏈接”對話框來一一修復它們。

1. 啟用包含斷開鏈接的工作簿,然後單擊 數據 > 編輯連結 (在 查詢和連接 組)。
doc基於顏色1填充文本

2。 在裡面 編輯連結 對話框中單擊 檢查狀態 查找哪些鏈接已損壞。
doc基於顏色1填充文本 doc基於顏色1填充文本

3.然後點擊斷開的鏈接,然後點擊 更改來源 按鈕,在 更改來源 窗口,選擇正確的源工作簿,然後單擊 OK.
doc基於顏色1填充文本

現在你可以看到狀態從 錯誤OK,然後重複步驟 3 以修復其他損壞的鏈接。
doc基於顏色1填充文本


使用 VBA 代碼修復損壞的鏈接

這裡介紹一個可以幫助你的VBA代碼。

1. 啟用要修復斷開鏈接的工作簿,然後按 其他 + F11 鍵。

2.然後在彈出 Microsoft Visual Basic for Applications 窗口中,單擊 插入 > 模塊 創建一個新的空白模塊。
doc基於顏色1填充文本

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 以繼續。
doc基於顏色1填充文本

5。 在裡面 已提交 窗口,選擇更新的源,單擊 OK.
doc基於顏色1填充文本

如果工作簿中仍然存在斷開的鏈接,則會再次彈出上述對話框,直到修復所有斷開的鏈接。

注意:如果工作簿中沒有斷開的鏈接,VBA 將在運行後停止。

尖端:如果您想查看所有額外的鏈接並斷開損壞的鏈接, Excel的Kutools查找並斷開斷開的鏈接 功能將是一個很好的幫手。
doc基於顏色1填充文本

有關此功能的詳細信息,請單擊 這裡.

如需 30 天免費試用,請從以下位置下載 這裡.


其他操作(文章)

如何在工作表中修復/鎖定背景顏色
有時,當您與其他人共享工作表以進行編輯時,您可能希望鎖定一系列單元格中的背景顏色並防止它們被更改。

如何減小 Excel 文件大小?
有時,如果 Excel 文件太大,打開或保存需要幾分鐘。 為了解決這個問題,在本教程中,它告訴您如何通過刪除不必要或從未使用過的內容或格式來減小 Excel 文件的大小。

Excel:如何創建或插入書籤
您有沒有想過在工作表或工作簿中有大量數據時創建或插入書籤以快速跳轉到特定數據范圍?

如何在Excel中將陰影應用於奇數或偶數(替代)行/列?
在設計工作表時,許多人傾向於對奇數或偶數(替代)行或列應用陰影,以使工作表更直觀。 本文將向您展示兩種在Excel中將陰影應用於奇數行或偶數行/列的方法。

 


  • 超級公式欄 (輕鬆編輯多行文本和公式); 閱讀版式 (輕鬆讀取和編輯大量單元格); 粘貼到過濾範圍...
  • 合併單元格/行/列 和保存數據; 拆分單元格內容; 合併重複的行和總和/平均值...防止細胞重複; 比較範圍...
  • 選擇重複或唯一 行; 選擇空白行 (所有單元格都是空的); 超級查找和模糊查找 在許多工作簿中; 隨機選擇...
  • 確切的副本 多個單元格,無需更改公式參考; 自動創建參考 到多張紙; 插入項目符號,複選框等...
  • 收藏并快速插入公式,範圍,圖表和圖片; 加密單元 帶密碼 創建郵件列表 並發送電子郵件...
  • 提取文字,添加文本,按位置刪除, 刪除空間; 創建和打印分頁小計; 在單元格內容和註釋之間轉換...
  • 超級濾鏡 (將過濾方案保存並應用於其他工作表); 高級排序 按月/週/日,頻率及更多; 特殊過濾器 用粗體,斜體...
  • 結合工作簿和工作表; 根據關鍵列合併表; 將數據分割成多個工作表; 批量轉換xls,xlsx和PDF...
  • 數據透視表分組依據 週號,週幾等 顯示未鎖定的單元格 用不同的顏色 突出顯示具有公式/名稱的單元格...
kte選項卡201905
  • 在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,發布者,Access,Visio和Project。
  • 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
  • 將您的工作效率提高 50%,每天為您減少數百次鼠標點擊!
officetab底部

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations