提取需要翻页的网页多页数据

ayaoyao

真-小白！在论坛里浏览了很久，看到有人问过类似问题，用前辈们的代码改了网址和页数等等orz但总是成功不了
需要提取数据的其中一个网址如下：http://www.gf.com.cn/business/finance/news/guaranteed
对不起我不知道怎么找到真实地址……
求dalao们救救我！


之前找到的代码如下：
Sub test()
    Dim HTML, tb, i&, j&, x&, n&, s$
    [a2:d9999] = ""
    Set HTML = CreateObject("htmlfile")
    With CreateObject("msxml2.xmlhttp")
        For x = 0 To 63
            .Open "get", "https://gaokao.chsi.com.cn/zzbm/mdgs/detail.action?oid=476733931&lx=1&start=" & 30 * x, False
            .Send
            Application.Wait (Now + TimeValue("00:00:02"))
            HTML.body.innerhtml = .responsetext
            Set tb = HTML.ALL.tags("table")(0).Rows
            For i = 1 To tb.Length - 1
                n = n + 1
                For j = 0 To tb(i).Cells.Length - 1
                    Cells(n + 1, j + 1) = tb(i).Cells(j).innertext
                Next
            Next
        Next
    End With
    MsgBox "获取完毕!"
End Sub

我把里面的网址和页数个数改了之后提示“对象变量或with块变量未设置”

ammyc

请参考>>>>>>

cwpccna

1. Sub test()
   
2.     Dim HTML, tb, i&, j&, x&, n&, s$
   
3.     [a2:d9999] = ""
   
4.     Set HTML = CreateObject("htmlfile")
   
5.     With CreateObject("msxml2.xmlhttp")
   
6.         For x = 0 To 63
   
7.             .Open "get", "https://gaokao.chsi.com.cn/zzbm/mdgs/detail.action?oid=476733931&lx=1&start=" & 30 * x, False
   
8.             .Send
   
9.             Application.Wait (Now + TimeValue("00:00:02"))
   
10.             HTML.body.innerhtml = .responsetext
    
11.             Set tb = HTML.ALL.tags("table")(0).Rows
    
12.             For i = 1 To tb.Length - 1
    
13.                 n = n + 1
    
14.                 For j = 0 To tb(i).Cells.Length - 1
    
15.                     Cells(n + 1, j + 1) = tb(i).Cells(j).innertext
    
16.                 Next
    
17.             Next
    
18.         Next
    
19.     End With
    
20.     MsgBox "获取完毕!"
    
21. End Sub

复制代码

我是来讨说法的

http://www.gf.com.cn/business/fi ... ;pageNum=2&key=
这就是真实地址
pageNum=2标示第二页