Question

EXCEL中VBA通过XMLHTTP获取数据，为什么没返回数据

这个以前还可以的，现在为什么又不行了，用IE打开http://hq.sinajs.cn/list=sz000001有反应啊

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Set xmlhttp = CreateObject("Microsoft.XMLHTTP")
With xmlhttp
.Open "get", "http://hq.sinajs.cn/list=sz000001"
.Send
MsgBox .responsetext
End With
Set xmlhttp = Nothing
End Sub

Answer 1

    On Error Resume Next

    Set xmlhttp = CreateObject("Microsoft.XMLHTTP")

    With xmlhttp

    .Open "get", "
http://hq.sinajs.cn/list=sz000001
"

    .Send

    While .readystate <> 4

        DoEvents

    Wend

    MsgBox .responsetext

    End With

    Set xmlhttp = Nothing

可能是原来网速快，需要等待网络返回数据 ，这样你在试试。

Answer 2

返回这样的数据啊

var hq_str_sz000001="平安银行,15.28,15.35,14.91,15.32,14.89,14.90,14.91,159146801,2396613996.93,2472501,14.90,698100,14.89,951900,14.88,183600,14.87,197900,14.86,249211,14.91,345065,14.92,181887,14.93,232000,14.94,198375,14.95,2015-03-25,15:05:56,00";

不对么？

追问

对，就是这样的数据
MsgBox .responsetext正常情况是显示这些数据 但现在是空值

追答

额。我这里测试正常。应该是你那边的网络问题。你看。

不过我怀疑一点，你是用的Worksheet_SelectionChange事件。会不会这个事件不响应导致的？

你可以先复制下面的代码先运行一下，再试试.

Sub bb()
    Application.EnableEvents = True
End Sub