完场比分_Excel_Vba

标签：vba   excel   javascript   xml   

Sub 完场比分_Excel_Vba()
    a = "2015-5-22"    '设置采集日期
    Set ms = CreateObject("msscriptcontrol.scriptcontrol")
    ms.Language = "JavaScript"
    With CreateObject("Microsoft.XMLDOM")
        .async = "false"
        .Load ("http://bf.win007.com/nba_date.aspx?date=" & a & "&h=0&m=0&t=" & ms.eval("new Date().getTime();"))
        Set r = .DocumentElement.getElementsByTagName("h")
        For i = 0 To r.Length - 1
            Range(Cells(1 + i, 1), Cells(1 + i, 44)) = Split(r(i).Text, "^")
        Next i
    End With
End Sub

完场比分_Excel_Vba

标签：vba   excel   javascript   xml   

原文地址：http://blog.csdn.net/a814153a/article/details/45951491