ExcelVba_快递100_一站式快递查询

Sub ExcelVba_快递100_一站式快递查询()
    Set mx = CreateObject("WinHttp.WinHttpRequest.5.1")
    Set ms = CreateObject("MSScriptControl.ScriptControl")
    ms.Language = "java script"
    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(Split(mx.responsetext, "var com=")(1), """")(1) & "&postid=" & Split(Split(mx.responsetext, "var com=")(1), """")(3) & "&valicode=&temp=" & Rnd(), False
    mx.send
    ms.AddCode "a=" & mx.responsetext
    For j = 0 To ms.eva l("a.data.length") - 1
        Cells(j + 1, 1) = ms.eva l("a.data[" & j & "].context")
        Cells(j + 1, 2) = ms.eva l("a.data[" & j & "].time")
        Cells(j + 1, 3) = ms.eva l("a.data[" & j & "].ftime")
    Next j
End Sub