恳请老师帮忙，到今天第三天还是一头雾水

sdkj88

http://zhishu.35.zqsos.com:896/oldOdds.aspx?t=5
是什么原因，抓取不到数据，请老师教我，我早上到现在查的资料都没有这方面的教程，恳请帮忙

到今天第三天还是一头雾水
恳请老师，能帮我一下，我学习了几天也弄不懂，我要做很多数据跟这个网页http://zhishu.35.zqsos.com:896/multiIndex.aspx有关系的，想要导入表格像你发的那种实时变动数据的，恳求老师帮忙

sdkj88

sdkj88

真心求解，找了好多资料，都没有，真心想了解抓取的知识

sdkj88

Sub 数据1()

    Dim url, js

    url = "http://zhishu.35.zqsos.com:896/multiIndex.aspx"

    Set js = CreateObject("scriptcontrol")

    js.Language = "jscript"

    With CreateObject("msxml2.xmlhttp")

        .Open "get", url, False

        .send

        js.addcode ("qd=" & .responsetext)

        slen = js.eval("qd.data.length")

        sslen = js.eval("qd.data[0].length")

        For i = 0 To slen - 1

            For j = 0 To sslen - 1

                Cells(i + 1, j + 1) = Replace(js.eval("qd.data[" & i & "][" & j & "]"), vbCrLf, "")

            Next

        Next

    End With

End Sub
  End If
        Application.OnTime Time + TimeSerial(0, 1, 0), "test"   
    End Sub

这样弄怎么还是出不来数据，请问哪里出错了