Question

VBA网抓需要设置浏览器或者VBA吗

Answer 1

试试下面的代码。网页抓取示例代码很多，但是方法不多：

Sub fly()
    Dim S, H, DB, str, arr, arrdata(1 To 100000, 1 To 9)
    Set H = CreateObject("htmlfile")
    Set XML = CreateObject("MSXML2.XMLHTTP")
    With XML
        .Open "GET", "http://aviation-safety.net/database/", False
        .send
        S = Split(Split(.responsetext, "<font")(1), "<p />")(0)
        H.body.innerhtml = S
    End With
    Set DB = H.all.tags("a")
    For i = 0 To DB.Length - 1
        str = str + "," + DB(i).innerText
    Next i
     arr = Split(str, ",")
    With XML
        For p = 1 To UBound(arr) - 1
            DoEvents
            .Open "GET", "http://aviation-safety.net/database/dblist.php?Year=" & arr(p), False
            .send
            H.body.innerhtml = .responsetext
            Set DB = H.all.tags("TABLE")(0).Rows
            For i = 1 To DB.Length - 1
                n = n + 1
                For j = 0 To DB(i).Cells.Length - 1
                    arrdata(n, j + 1) = DB(i).Cells(j).innerText
                Next
            Next i
        Next p
    End With
    [a2].Resize(n, 9) = arrdata
End Sub