Sub 新浪行情()

        Cells.Clear

        Dim n As Integer, Js As Object

        Dim i As Integer, j As Integer, m As Integer, a As Object, arrdata(1 To 10000, 1 To 24)

        Set Js = CreateObject("scriptcontrol")

        Js.Language = "jscript"

        With CreateObject("Msxml2.XMLHTTP")

            .Open "GET", "http://money.finance.sina.com.cn/d/api/openapi_proxy.php/?__s=[[%22hq%22,%22hs_a%22,%22%22,0,1,40]]", False

            .send

            Js.addcode "var dy= " & .responsetext

            n = Application.WorksheetFunction.RoundUp((Js.eval("dy[0].count") / 80), 0)

            For i = 1 To n

                .Open "GET", "http://money.finance.sina.com.cn/d/api/openapi_proxy.php/?__s=[[%22hq%22,%22hs_a%22,%22%22,0,"& i  &",80]]", False'这里已经修改，引用了变量i

                .send

                Js.addcode "dy= " & .responsetext

                For Each a In Js.eval("dy[0].items")

                    m = m + 1

                    For j = 0 To 23

                        arrdata(m, j + 1) = CallByName(a, j, VbGet)

                    Next j

                Next a

            Next i

        End With

        [a2].Resize(m, 24) = arrdata

    End Sub