☰

当链接文件名搜索失败时，如何找到指向其他 Excel 工作簿的链接？

tag-icon • tag-icon microsoft-excel links
当链接文件名搜索失败时，如何找到指向其他 Excel 工作簿的链接？

我第一次创建 Excel 2016 工作簿时，使用了指向其他工作簿的链接。然后在某个步骤中，我通过值执行了复制/粘贴以隐藏链接。

但是当我打开工作簿时，Excel 意外地仍然警告我这些链接的工作簿，理由是无法更新链接，因为在保存之前没有重新计算链接的工作簿 - 我翻译的，所以它可能不完全是你习惯的 Excel 使用的英语措辞。

当然，我已经search在所有工作簿中通过公式、对链接工作簿的名称甚至其中的一部分执行了该操作，但 Excel 什么也没找到。

在Data/Modify links菜单中，对话框列出了所有链接的文件，它在这里，但我找不到一种方法来定位工作簿中的链接位置。

答案1

问题分解：

  • 您有一本工作簿（Book1），其中有许多指向其他工作簿（Book2、Book3 等）的断开链接。
  • 你知道名字的链接文件（工作簿）前往Data>Edit links
  • 现在，您需要找到一种方法来定位当前工作簿（Book1）中与其他工作簿（Book2 和 Book3）有链接的单元格

为了重现这个问题，我制作了两个工作簿——Book1和Book2。

这里是書1并且它是当前工作簿，我需要在其中找到包含指向另一个工作簿的链接的单元格。

在此处输入图片描述

（单元格数量如此庞大，我需要识别哪些单元格与另一个工作簿有链接）

给Data>Edit Links我这个：

在此处输入图片描述

现在，记下来源，就我而言是書2。

这意味着我有一个链接書2在当前工作簿中書1我需要识别那些特别的这个细胞書1。

因此，我们开始吧：

  • 按下Ctrl+H前往查找和替换选择書1。
  • 在中Find what，输入工作簿名称你从Data>Edit Links我这里得到的是[第二册]
  • 点击Options
  • 离开Replace with 空白的。点击相应的Format。点击后，Replace Format出现菜单。然后转到Fill>Background Color并选择任意颜色并点击OK。我选择了红色。
  • 在 中Within选择Workbook
  • 搜索：By Rows
  • 在看：Formulas

如果你做对了所有事情，最后查找和替换选项将如下所示：

在此处输入图片描述

现在，单击Replace All。

所有的细胞都在这里其中包含以下链接Book2，将以红色显示：

在此处输入图片描述

现在，对这些单元格做任何你想做的事情。

再次执行相同的操作以识别与其他工作簿（Book3、Book4 等）的链接，但更改背景色除了红色之外的其他东西找什么：到Book3。

就是这样。希望这能有所帮助。请告诉我效果如何 :)

答案2

Ctrl这是一个与+功能相同的宏H 上面的解决方案：

Sub findlinks()
Dim sht, c
For Each sht In ThisWorkbook.Sheets
    For Each Module In ThisWorkbook.Modules
        If sht.Name = Module.Name Then GoTo nextsht: 'Skip modules masquerading as sheets
    Next Module
    For Each c In sht.UsedRange.Cells
        If InStr(1, c.Formula, ".xls", vbTextCompare) > 0 And Left(c.Formula, 1) = "=" Then
            If InStr(1, c.Formula, "\\") + InStr(1, c.Formula, ":\") > 0 Then 'Network path, or mapped/local drive
                Debug.Print "'" & sht.Name & "'!" & c.Address & " " & c.Formula 'Ctrl+G debug window
            End If
        End If
    Next c
nextsht:
Next sht
End Sub

相关内容