不懂html也来学网抓（xmlhttp/winhttp+fiddler）

jpj123

onlycxb 发表于 2014-10-21 17:04

最近学习网抓，借鉴各位老师的代码写获取1-8页的!

1. Sub HomerWork1_3()
   
2. '新手:jpj123
   
3. '作业：1、网站：http://data.bank.hexun.com/lccp/jrxp.aspx
   
4. '      操作：点击“今日在售产品”，获取今日在售产品第1-8页的数据。
   
5. 
   
6.     Dim xml, url As String, St As String
   
7.     Dim arr, brr, ar, i%, r%, html, Db, tr, td, n%, L%, j%, a%
   
8.     ActiveSheet.Cells.Clear
   
9.     For L = 1 To 8
   
10.     url = "http://data.bank.hexun.com/lccp/Jrxp.aspx?col=1&tag=desc&date=2014-10-21&page=" & L
    
11.     Set xml = CreateObject("MSXML2.XMLHTTP")
    
12.     Set html = CreateObject("htmlfile")
    
13.     With xml
    
14.         .Open "GET", url, False
    
15.         .send
    
16.         St = .responseText
    
17.     End With
    
18.     St = Split(Split(St, "<div class=""mark"">")(1), "</div>")(0)
    
19.     html.body.innerhtml = St
    
20. Set Db = html.all.tags("table")
    
21. n = ActiveSheet.UsedRange.Rows.Count
    
22. If L = 1 Then a = 0: n = n - 1 Else a = 1
    
23.      For i = a To Db(0).Rows.Length - 1
    
24.         Set tr = Db(0).Rows(i)
    
25.         n = n + 1: j = 0
    
26.         For Each td In tr.Cells
    
27.             j = j + 1
    
28.             If j >= 2 Then ActiveSheet.Cells(n, j - 1) = td.innertext
    
29.         Next
    
30.     Next
    
31. Next
    
32. MsgBox "成功获取网页数据!"
    
33. End Sub
    

复制代码

ypfw

好强大的赶脚，我使用了一个网页但是数据提取不成功。就是在替换那里有问题

ypfw

测试了，出现错误。

mailzhoutao

感谢，现在回过头来看 很多东西都变得明了了

mmwwdd

好贴，学习，必须的

t13564865256

网站有这样的认证框怎么模拟登陆？fiddle抓不到。

jpj123

wcymiss 发表于 2014-10-21 21:55
获取数据-防盗链的处理-模拟Cookie：

再次提醒，抓包前请先清除浏览器所有Cookie、缓存、历史数据。

吴姐，我怎么老是抓不到302 这个网页呢？也就是说找不到“Cookie”值的发源地。谢谢空了指点一下!

1058926697

水好深,对刚入门的人来说,真有点难 ,努力中~~~

605751967

VBA万岁 发表于 2014-10-22 12:33
ie法完成作业1：
Sub 今日在售银行产品()
'On Error Resume Next

.Document.all.tags("a")(181).Click  大神，你的这个翻页效果没反应呀，该怎么翻页呀

405

amour0861 发表于 2015-3-5 16:51
感谢大神回复，修改API神马的太吓人了……我最后找到的办法是换C#。

关键代码：

我也遇到同样的问题，换c#该咋写啊