0

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

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

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

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

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

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

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

在此先感谢 :o)

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

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

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

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

任何帮助将不胜感激！

4

1 回答 1

2

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

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

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

于 2011-06-24T13:26:17.403 回答