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

Question

我想知道是否有人可以提供帮助？

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

它们是季度状态，目前我必须逐个浏览每个文件并输入该月的特定货币兑换率。

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

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

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

我希望你能理解我的问题，如果有人能提出任何解决方法，那就太好了！

提前感谢：o）

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

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

然后，可以将可见工作表中的汇率链接到隐藏汇率表中的单元格，然后将隐藏汇率表链接到单独的单个主汇率文件，我将对其进行更改以更新所有链接的 excel 文件的汇率。

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

任何帮助将不胜感激！

Answer 1

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

您的语句工作簿可以通过公式在 Web 上引用主工作簿。 例如：

='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