以下函数引用自彭博社。
当从 Sub 过程调用时,该函数可以工作,但不能作为工作表公式。有谁知道为什么?
Public Function GetRatesSTATIC() As Variant
Application.DisplayAlerts = False
Dim objBK As Workbook
Dim objRng As Range
'Open the page as a workbook.
Set objBK = Workbooks.Open("http://www.bloomberg.com/quote/EURUSD:CUR")
'Find the Rate
Set objRng = objBK.Worksheets(1).Cells.Find("EURUSD:CUR")
'Retrieve the exchange rate.
GetRatesSTATIC = objRng.Offset(1, 0).Value
objBK.Close savechanges:=False
Application.DisplayAlerts = True
End Function
根据这个知识库文章 https://support.microsoft.com/en-us/kb/170787,函数的限制是它们无法“执行大多数方法”,因此可能不允许调用 Workbook.Open 方法。在我手中,您的函数在 VBA 中运行不稳定,并且在从工作表调用时根本无法运行。
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)