Question

当我运行此代码时，我收到运行时错误，指出“无法建立与服务器的连接”这是我在Excel中设置的问题吗？或者我的计算机上的安全功能可能有问题？当我在我的浏览器中输入网址时，它可以正常工作。我希望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

Answer 1

改为使用XMLHTTP：

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

无法连接服务器“http.send”问题

1 个答案: