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

2023年11月25日 154次阅读

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

谢谢你的帮助. 最佳答案 此代码将通过单击编辑>链接为您提供相同的列表.

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是推荐的.

点赞