【Excel VBA】网抓知识(2)-抓取百度前5页查询结果

在百度中搜索关键字"网络爬虫"，并将前5页查询结果的数据写入当前Excel工作表中，示例代码如下。

Sub WebQueryBaiduPN()
    Dim strURL As String
    Dim objXMLHTTP As Object
    Dim objDOM As Object
    Dim objTitle As Object
    Dim intPageNum As Integer
    Dim k As Integer
    Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")
    Set objDOM = CreateObject("htmlfile")
    Cells.ClearContents
    Range("a1:c1") = Array("序号", "标题", "链接")
    k = 1
    For intPageNum = 0 To 50 Step 10
        strURL = "https://www.baidu.com/s?"
        strURL = strURL & "wd=网络爬虫"
        strURL = strURL & "&pn=" & intPageNum
        With objXMLHTTP
            .Open "GET", strURL, False
            .setRequestHeader "If-Modified-Since", "0"
            .send
            objDOM.body.innerHTML = .responseText
        End With
        F