今天看啥
热点:

完场比分_Excel_Vba,完场_excel_vba


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

www.bkjia.comtruehttp://www.bkjia.com/ASPjc/1005091.htmlTechArticle完场比分_Excel_Vba,完场_excel_vba Sub 完场比分_Excel_Vba() a = 2015-5-22 设置采集日期 Set ms = CreateObject(msscriptcontrol.scriptcontrol) ms.Language = JavaScrip...

相关文章

相关搜索: Vba Excel javascript xml

帮客评论

视觉看点