如何抓取网站的几个数据？

Kaohsing

forwjds 发表于 2018-8-1 08:37

你好，单个可以批量循环为吗不行？

https://www.flashscore.com/match/xSUUEVH/

https://www.flashscore.com/match/jVICwFf/

https://www.flashscore.com/match/hv5vZY2/

https://www.flashscore.com/match/AFaqYhI/

https://www.flashscore.com/match/l6bmXCX/

https://www.flashscore.com/match/rTciWWn/

https://www.flashscore.com/match/dW1eVj2/

https://www.flashscore.com/match/Uqr4bkW/

https://www.flashscore.com/match/vei0UAH/

https://www.flashscore.com/match/Ioj4TUW/

https://www.flashscore.com/match/tjMWlNt/

https://www.flashscore.com/match/j1TJiPd/

https://www.flashscore.com/match/nTMSk3R/

https://www.flashscore.com/match/4teX9qz/

https://www.flashscore.com/match/0YH8p8k/

Kaohsing

需要清除缓存！！
Sub Main()
    Dim strText As String
    Dim timeStamp As Long
    Dim arr, a(1 To 5)
    Dim Title As String
    a(1) = "https://www.flashscore.com/match/jVICwFfP/" '#match-summary"
    a(2) = "https://www.flashscore.com/match/hv5vZY2t/" '#match-summary"
    a(3) = "https://www.flashscore.com/match/AFaqYhIn/" '#match-summary"
    a(4) = "https://www.flashscore.com/match/l6bmXCXh/" '#match-summary"
    a(5) = "https://www.flashscore.com/match/rTciWWna/" '#match-summary"
    For i = 2 To 5
        ur = "https://www.flashscore.com/match/xSUUEVHO/"
        With CreateObject("WinHttp.WinHttpRequest.5.1")
            .Open "GET", a(i), False
            .setRequestHeader "If-Modified-Since", "0"
            .Send
            strText = .responsetext
        End With
        Application.Wait Now + TimeValue("00:00:01")
        ' Debug.Print strText
        'timeStamp = Split(Split(strText, "game_utime = ")(1), ";")(0)
        Title = Split(Split(strText, "<title>")(1), "</title>")(0) 'dui
        'Debug.Print timeStamp / 60 / 60 / 24 + #1/1/1970 8:00:00 AM#
        Debug.Print Title
    Next
End Sub