收集Excel 2010中链接的工作簿的列表/文件夹

Question

我有一个工作簿链接到许多其他工作簿，而这些工作簿又链接到其他工作簿。是否有一种简单的方法来收集当前打开的工作簿引用的所有工作簿？我可以想象编写一个宏来查看工作簿中包含公式的所有单元格，检查公式中括号中的任何内容并将这些复制到列表中，但这看起来很笨拙，希望不必要。 Excel是否有任何工具可以帮助跟踪文件链接的工作簿？我知道“跟踪先例”在工作簿中很有用，键组合“ctrl + [”对于跟踪链接数据非常有用，但我无法手动为工作簿中的所有单元格执行此操作。 谢谢你的帮助。

Answer 1

此代码会为您提供与单击编辑＆gt;链接相同的列表。

Sub PrintLinkedBooks()

Dim LinkedBooks As Variant
Dim i As Long

LinkedBooks = ThisWorkbook.LinkSources()
For i = LBound(LinkedBooks) To UBound(LinkedBooks)
    Debug.Print LinkedBooks(i)
Next i

End Sub

还有工具可以找到链接。我从未使用过，但Bill Manville's是推荐的。