如何将多个 Excel 文件链接到一个主文件，以便如果我更新单个主文件，所有链接的文件也会更新？

Question

我想知道是否有人可以帮忙？

我有大量的 Excel 文件。这些是佣金报表，有些是从美元转换为英镑，从英镑转换为欧元等。

它们是季度报表，目前我必须逐一浏览每个文件并输入该月的具体货币兑换率。

我想如果我能将所有这些语句链接到一个包含转换率的 Excel 文件，那就太好了。然后我可以更新这个单一货币转换文件，所有其他文件都会更新。

我想我可以解决这个问题，但是我遇到了一个小问题。

如果我随后将报表文件发送给个人，两个文件之间的本地链接将丢失，因此转换数字也将丢失。我能看到的唯一解决方法是发送包含转换率的文件以及声明，但如果可能的话我宁愿不这样做。

我希望您能理解我的问题，如果有人能提出解决此问题的建议，那就太好了！

提前致谢：o）

我在这里得到了一些关于在所有 Excel 文件中包含隐藏费率表的建议：

链接来自 2 个不同 Excel 文件的单元格，但如果仅通过电子邮件发送一个文件，则保留数字？

然后可以将可见工作表中的费率链接到隐藏费率表中的单元格然后隐藏费率表可以链接到单独的单个主费率文件，我将更改该文件以更新所有链接的 Excel 文件上的费率。

我仍然有点不确定如果我要通过电子邮件向人们发送单个 Excel 文件，这将如何工作，因为主费率文件的本地链接将会丢失。有工作环境吗？

任何帮助将非常非常感激！

Answer 1

一种方法是将您的主汇率工作簿放在网络上。

您的报表工作簿可以通过公式引用网络上的主工作簿。例如：

='http://www.your-site.com/test/[Workbook1.xls]Sheet1'!A1

虽然这种方法很有趣，但我建议您在网络上使用 Excel 转换率主工作簿。

---

报表工作簿将链接到此主汇率工作簿以获取汇率。

在发送语句之前，我会运行一些 VBA 代码来循环访问工作簿。

该代码将打开工作簿，更新链接，然后中断它。

链接单元格中保留的值是最新更新的值。

下面的代码更新并断开工作簿中的所有链接。

Sub Update_And_BreakLinks()

Dim vLinks As Variant
Dim lLinks As Long

    vLinks = ActiveWorkbook.LinkSources(Type:=xlLinkTypeExcelLinks)
'Get a list of all the links in the workbook

    If IsEmpty(vLinks) Then Exit Sub
'If no links then exit

    For lLink = LBound(vLinks) To UBound(vLinks)
        ActiveWorkbook.UpdateLink Name:=vLinks(lLink), Type:=xlLinkTypeExcelLinks
    Next lLink
'Update links

    For lLink = LBound(vLinks) To UBound(vLinks)
        ActiveWorkbook.BreakLink Name:=vLinks(lLink), Type:=xlLinkTypeExcelLinks
    Next lLink
'Break the links.  The link is replaced with the value from the last update

End Sub

查看有关如何循环浏览文件夹中的工作簿的问题

5851531