Vba 无法连接到服务器"；http.send"；问题

当我运行此代码时，我收到一个运行时错误，说“无法建立与服务器的连接”，这是我在excel中的设置的问题吗？或者我电脑上的安全功能有问题？当我在浏览器中键入url时，它会工作。我想下载csv并在msgbox中弹出。一旦我能做到这一点，我就会尝试将csv信息输入我的电子表格，但我甚至无法下载这些信息。此外，当我调试时，问题似乎与“http.send”行有关。 注意，有人问了一个类似的问题，但我试图使用这些回答，但没有一个解决了我的问题，因此我想我需要一个新的解决方案

Sub stocks()


Dim W As Worksheet: Set W = ActiveSheet

Dim Last As Integer: Last = W.Range("a1000").End(xlUp).Row

If Last = 1 Then Exit Sub
Dim Symbols As String
Dim i As Integer

For i = 2 To Last
    Symbols = Symbols & W.Range("A" & i).Value & "+"


Next i

Symbols = Left(Symbols, Len(Symbols) - 1)


Dim URL As String: URL = "http://download.finance.yahoo.com/d/quotes.csv?s=" & Symbols & "&f=snl1hg"

Dim http As New WinHttpRequest
http.Open "Get", URL, False
http.Send

MsgBox http.ResponseText



End Sub

改用XMLHTTP：

Dim http As Object
Set http = CreateObject("Microsoft.XMLHTTP")
http.Open "Get", URL, False
http.Send

---

响应代码是什么？运行时错误“-2147012867（80072efd）”：无法建立与服务器的连接@MacroManI表示服务器响应代码-但您可以改用XMLHTTP