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) End If If xlLinkStatusMissingFile = linksStatusCode Then rowNo = rowNo 1 With sheetReport .Cells(rowNo, 1) = sheetCur.Name .Cells(rowNo, 2) = Replace(rangeCur.Address, "$" , "" ) .Hyperlinks.Add Anchor:=.Cells(rowNo, 2), 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中文网其他相关文章！