Excel vba Application.CalculateFull仅在定义的范围内

我正在使用此链接中的代码从雅虎获取汇率：

这很有效。我现在唯一的挑战是在不使用Application.CalculateFull的情况下更新exchangerates。因为我只需要刷新范围（A2:D6）

我已尝试使用。计算，但这不会刷新数据。只需输入公式并按enter键，即可进行计算

有什么想法吗？

试试这个：

Sub Test()
 'Application.CalculateFull
 With ActiveWorkbook.Sheets("Sh1").Range("A2:D6") ' change this line as you need
  .Formula = .Formula
 End With
End Sub

---

我无法打开该链接，因此不确定该方法，是否可以通过在data-->from web中链接网页来完成，然后您可以刷新查询。该方法有效：），但没有帮助。似乎函数本身需要时间运行。。但是谢谢你花时间。@OyvPet，不客气，是的，你是对的，我注意到了，但是我认为速度慢是正常的，因为UDF使用internet连接。