Question

我希望获得股票指数的实时价值，例如道指（道琼斯工业指数）或恒生指数（HSI）。

这些需要从（可配置的）索引符号集生成，并保存到VBA变量而不与工作表进行任何交互。理想情况下，这将来自彭博，或雅虎，如果需要（虽然任何其他来源也可以，只要它是活的）。

我理解这是一项简单的任务，虽然我找不到任何直接的方法 - 只有获得期权价格或股票数据等的例子。我明白我从参考Bloomberg API开始，但我可以似乎比这更进一步。

感谢您的帮助

Answer 1

如果要使用Bloomberg API检索实时数据，则需要成为Bloomberg订户（$$$）。正如你还提到免费的雅虎，我怀疑它不是你想要的。

Answer 2

这不是一项简单的任务。

您需要为http://www.google.com/finance?q=GOOG发起HTTP GET请求，并自行解析返回字符串。

使用以下代码发送HTTP请求：

     Set HttpReq = CreateObject("MSXML2.ServerXMLHTTP")
     HttpReq.Open "GET", "http://www.google.com/finance?q=GOOG", False
     HttpReq.send
     MsgBox HttpReq.responseText

VBA代码获取实时股票指数值

2 个答案: