网页抓1页的代码有了，翻页抓1-7页谁来帮帮忙？感谢

一碧清蓝

1. Sub t()
   
2.    Dim html As Object, http As Object, i, n, j
   
3.    n = 2
   
4.    Set html = CreateObject("htmlfile")
   
5.     Set http = CreateObject("Msxml2.XMLHTTP")
   
6.     http.Open "GET", "http://www.77tj.org/tencent", False
   
7.     http.send
   
8.     html.body.innerhtml = http.responseText
   
9.     Set tb = html.body.getelementsbytagname("tr")
   
10.     For i = 1 To tb.Length - 1
    
11.         n = n + 1
    
12.           For j = 0 To tb(i).ChildNodes.Length - 1
    
13.           Cells(n, j + 1) = tb(i).ChildNodes(j).innertext
    
14.           Next
    
15.     Next
    
16. End Sub

复制代码