Sina Love Color _ competition color Football excel_vba

Sub Sina Love Color _ competition Color soccer () on Error Resume Next s = Format (Date, "YYMMDD") cells.clear at = Array ("Hrank", "Grank", "Figh T.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 "," ASI A[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 "," forbid 4074 "," 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 ("", "", "", "", "" "," "," "," "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" , "", "", "", "", "", "", "", "Tournament", "", "Home", "Away", "", "", "", "" "" "", "" "," "," "", "", "", "", "", "", "", "", "", "Li "," "," "," the first dish of Wade "," "," "," Wade-on-Disk "," "," "," easy wins Boyan "," "," "," Breach, "", "", "" Macau, "", "", "", "", "", "", "", "" "," "," Wade-Pan "," "," "," initial plate "," "," "," crown on the plate "," "," "," "Li Bo," "," "," Li Bo Pan "," "," "," Yi Sheng Boyan "," "," "," Breach "," "," "," Kelly's first dish "," "," "," Kelly Pan, "", "", "", "", "", "", "", "", "Required price", "", "", "must-Send index") Set ms = CreateObject ("Msscriptcontrol.s Criptcontrol ") 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, "': {'"), "' ': {'"), "'}, ' 0", "'}, '"), "'}, ' 0", "'}, '") for i = 1 to $ j = 0 to Cells (i + 1, j + 1) = Ms.eval ("a.racelist[" & I & "]." &am P 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 $ j = 0 to (i + 1, j + 36) = Ms.eval ("a[" & Cells (i + 1, 1) & "]." & at (J)) Next J Next i End WithEnd Sub

Copyright NOTICE: This article for Bo Master original article, without Bo Master permission not reproduced.

Sina Love Color _ competition color Football excel_vba