网页抓取分享

ghostjiao

onlycxb 发表于 2014-10-14 10:25
喜欢网抓的看似不多。今天暂分享至此

很多的，嘿嘿。强烈支持。顺便分享点JS，htmlfile相关的就更好了

Kelidai

不错的分享。

onlycxb

VBA万岁 发表于 2014-10-14 12:07
第7句代码“xml As New MSXML2.XMLHTTP”出错，弹出的错误提示为“User-defined-type not defined”——是 ...

相用，参见19楼。有图示。前期绑定的优点就是会有一些智能提示。这个我喜欢。

onlycxb

ghostjiao 发表于 2014-10-14 15:20
很多的，嘿嘿。强烈支持。顺便分享点JS，htmlfile相关的就更好了

上述代码多js数据，为方便阅读，10楼重新编辑，增加了图示，请参阅。

onlycxb

分享5：阳光私募净值
后期数据处理过程请自学者自行完善。

1. Sub test()
   
2.     Dim xml As New MSXML2.XMLHTTP, St As String, Url As String
   
3.     Dim VIEWSTATE As String, 页码%, 总页数%
   
4.     Url = "http://www.go-goal.com/data/trust"
   
5.     With xml
   
6.         .Open "GET", Url, False
   
7.         .send
   
8.         总页数 = Split(Split(.responseText, "')"" style=""margin-right:5px;"">末页")(0), "下一页</a><a class=""f12bc"" href=""javascript:__doPostBack('pager','")(1)
   
9.         VIEWSTATE = Split(Split(.responseText, "VIEWSTATE"" value=""")(1), """ />")(0)
   
10.         VIEWSTATE = encodeURI(VIEWSTATE)
    
11.         For 页码 = 1 To 总页数
    
12.             .Open "POST", Url, False
    
13.             .setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    
14.             .send "__EVENTTARGET=pager&__EVENTARGUMENT=1&__LASTFOCUS=&__VIEWSTATE=" & VIEWSTATE & "&ddlFoundationDateOperater=1&txtFoundationDate=&ddlTrustCompany=1&chklFundStatus%240=on&ddlStatisticDateOperater=1&txtStatisticDate=&ddlFundManager=1&radlStatisticMode=1&ddlNProv=0&ddlNCity=0&hidden1=&hidden2=False&hidDefaultYear=2014&pager_input=2"
    
15.             St = Split(Split(.responseText, "<div class=""bdb1"">")(1), "</div>")(0)
    
16.             St = Replace(Replace(St, vbCrLf, ""), "<td align=""center"">", "")
    
17.             St = Replace(St, "<td align=""right""> ", "")
    
18.             St = Replace(St, " ", "")
    
19.             St = Replace(St, "</a>", "")
    
20.             Dim arr
    
21.             arr = Split(St, "<li>")
    
22.             '.....字符及数据处理省略......
    
23.             Stop
    
24.         Next
    
25.     End With
    
26. End Sub
    
27. 
    
28. Public Function encodeURI(ByVal strText As String) As String
    
29.     With CreateObject("msscriptcontrol.scriptcontrol")
    
30.         .Language = "JavaScript"
    
31.         encodeURI = .Eval("encodeURIComponent('" & strText & "');")
    
32.     End With
    
33. End Function
    

复制代码

ouyangyunzi

感谢分享。。。

VBA万岁

onlycxb 发表于 2014-10-14 19:16
分享5：阳光私募净值
后期数据处理过程请自学者自行完善。

多谢分享！

VBA万岁

onlycxb 发表于 2014-10-14 10:16
分享4：论坛问题http://club.excelhome.net/thread-1158114-1-1.html
         抓取东方财富网数据
为方便 ...

想请教一下，这个数据结构图是怎样得到的？

某均

做个记号。。。。。。

onlycxb

VBA万岁 发表于 2014-10-15 09:18
想请教一下，这个数据结构图是怎样得到的？

谢谢你的鲜花,数据结构图可以在代码调试过程中,通过本地窗口观察得到(数据量大,用这种方式比较直观)