新浪爱彩_竞彩足球 Excel_Vba

Sub 新浪爱彩_竞彩足球()
    On Error Resume Next
    s = Format(Date, "yymmdd")
    Cells.Clear
    at = Array("hrank", "grank", "fight.win", "fight.draw", "fight.lose", "odds[21].fwin", "odds[21].fdrow", "odds[21].flose", "odds[21].win", _
               "odds[21].drow", "odds[21].lose", "odds[26].fwin", "odds[26].fdrow", "odds[26].flose", "odds[26].win", "odds[26].drow", "odds[26].lose", _
               "odds[23].fwin", "odds[23].fdrow", "odds[23].flose", "odds[23].win", "odds[23].drow", "odds[23].lose", "odds[184].fwin", "odds[184].fdrow", _
               "odds[184].flose", "odds[184].win", "odds[184].drow", "odds[184].lose", "asia[11].fwin", "asia[11].ftape", "asia[11].flose", "asia[11].win", _
               "asia[11].tape", "asia[11].lose", "asia[6].fwin", "asia[6].ftape", "asia[6].flose", "asia[6].win", "asia[6].tape", "asia[6].lose", "asia[10].fwin", _
               "asia[10].ftape", "asia[10].flose", "asia[10].win", "asia[10].tape", "asia[10].lose", "asia[13].fwin", "asia[13].ftape", "asia[13].flose", _
               "asia[13].win", "asia[13].tape", "asia[13].lose", "asia[12].fwin", "asia[12].ftape", "asia[12].flose", "asia[12].win", "asia[12].tape", _
               "asia[12].lose", "index.fkelly.win", "index.fkelly.drow", "index.fkelly.lose", "index.kelly.win", "index.kelly.drow", "index.kelly.lose", "avgOdds.fwin", _
               "avgOdds.fdrow", "avgOdds.flose", "avgOdds.win", "avgOdds.drow", "avgOdds.lose", "bf.price.win", "bf.price.drow", "bf.price.lose", "bf.index.win", _
               "bf.index.drow", "bf.index.lose", "radio", "let", "sp.jczq_xspf_gd", "sp.jczq_spf_gd", "sp.jczq_bf_gd", "sp.jczq_bcspf_gd", "sp.jczq_zjqs_gd", "col", _
               "url", "hostUrl", "guestUrl", "hscore", "ascore", "hhscore", "ahscore")
    bt = Array("fixId", "concede", "forbid4071", "forbid4076", "forbid4072", "forbid4073", "forbid4074", "weekIndex", "weekName", "matchDate", "matchId", "matchTime", "endTime", _
               "zcMatchDate", "wholeScore", "xspfSp", "zkjcletno", "spletno", "spfSp", "zkjcletyes", "spletyes", "srfspletyes", "bfSp", "zjqSp", "bqcSp", "resultXspf", "resultSpf", "resultBf", _
               "resultZjq", "resultBqc", "isMiddle", "matchName", "matchNameIndex", "homeTeam", "guestTeam")
    [a1:df1] = Array("", "", "", "", "", "", "", "", "", "", "", "", "开赛时间", "", "", "胜 平 负 0", "", "", "胜 平 负 1", "", "", "", "", "", "", "", "", "", "", "", "", "赛事", "", "主队", "客队", "", "", "", "", "", "威廉初盘", "", "", "威廉即盘", "", "", "立博初盘", "", "", "立博即盘", "", "", "韦德初盘", "", "", "韦德即盘", "", "", "易胜博初盘", "", "", "易胜博即盘", "", "", "澳门初盘", "", "", "澳门即盘 ", "", "", "韦德初盘", "", "", "韦德即盘", "", "", "皇冠初盘", "", "", "皇冠即盘", "", "", "立博初盘", "", "", "立博即盘", "", "", "易胜博初盘", "", "", "易胜博即盘", "", "", "凯利初盘", "", "", "凯利即盘", "", "", "", "", "", "", "", "", "必发价位", "", "", "必发指数")

    Set ms = CreateObject("MSScriptControl.ScriptControl")
    ms.Language = "javascript"

    With CreateObject("Microsoft.XMLHTTP")
        .Open "GET", "http://www.aicai.com/lotnew/jc/getMatchByDate.htm?lotteryType=jczq&cate=gd&dataStr=" & s & "&time=" & ms.eval("new Date().getTime();"), False
        .send
        ms.AddCode "a=" & Replace(Replace(Replace(.responsetext, "':{'00", "':{'"), "'},'0", "'},'"), "'},'0", "'},'")

        For i = 1 To 500
            For j = 0 To 34
                Cells(i + 1, j + 1) = ms.eval("a.raceList[" & i & "]." & bt(j))
            Next j
        Next i

        .Open "GET", "http://www.aicai.com/static/no_cache/jc/zcnew/data/hist/" & s & "zcRefer.js", False
        .send
        ms.AddCode "a=" & .responsetext

        For i = 1 To 500
            For j = 0 To 91
                Cells(i + 1, j + 36) = ms.eval("a[" & Cells(i + 1, 1) & "]." & at(j))
            Next j
        Next i
    End With
End Sub

版权声明：本文为博主原创文章，未经博主允许不得转载。