ExcelVba _ express 100 _ One-Stop express Query

Sub ExcelVba _ express 100 _ One-Stop express query () Set mx = CreateObject ("WinHttp. winHttpRequest.5.1 ") Set MS = CreateObject (" MSScriptControl. scriptControl ") ms. language = "javascript" Cells. clear mx. open "GET", "http://www.kuaidi100.com/kuaidiresult? Id = 4137591 ", False mx. send mx. Open" GET "," http://www.kuaidi100.com/query? Id = 1 & type = "& Split (mx. responsetext, "var com =") (1), ") (1) &" & postid = "& Split (mx. responsetext, "var com =") (1), ") (3) &" & valicode = & temp = "& Rnd (), False mx. send ms. addCode "a =" & mx. responsetext For j = 0 To ms. eval (". data. length ")-1 Cells (j + 1, 1) = ms. eval (". data ["& j &"]. context ") Cells (j + 1, 2) = ms. eval (". data ["& j &"]. time ") Cells (j + 1, 3) = ms. eval (". data ["& j &"]. ftime ") Next jEnd Sub