Excel VBA：获取雅虎财务数据

我想建立一个简单的电子表格，利用雅虎最新的股票报价，我尝试了一些网络样本，但都失败了，错误是：“无法建立与服务器的连接”。有什么想法吗

---

---

自动化IE。它将为您获取所有信息这是一个示例如何为我自动化工作=>2051.31您是否支持代理？嗨，Alex，您可以在excel中运行我的代码？我尝试了一些不同的代码版本，虽然有一些细微的差异，但都提示了这个错误。我在我的公司网络中工作，所以很可能是在代理之后，不确定是否与之相关。是的，我只是复制/粘贴/F5。IIRC WinHTTP默认情况下不使用默认代理，请尝试使用它，然后使用.SetProxy（或询问您的公司网络管理员）自动执行IE。它将为您获取所有信息这是一个示例如何为我自动工作=>2051.31您是否支持代理？嗨，Alex，您可以在excel中运行我的代码吗？我尝试了一些不同的代码版本，虽然有一些细微的差异，但都提示了这个错误。我在我的公司网络中工作，所以很可能是在代理之后，不确定是否与之相关。是的，我只是复制/粘贴/F5。IIRC WinHTTP默认情况下不使用默认代理，请尝试使用它并使用.SetProxy（或询问您的公司网络管理员）

Sub getQuotes2()

Dim URL As String
URL = "http://finance.yahoo.com/d/quotes.csv?s=^GSPC&f=l1"

MsgBox URL

Set Http = CreateObject("WinHttp.WinHttpRequest.5.1")
Http.Open "GET", URL, False
Http.send

Dim Resp As String: Resp = Http.responseText

MsgBox Resp

End Sub