[已解决]请高手帮忙改改这个提取网页上数据的代码,谢谢!

bipl607

我常常会关注http://115.com/folder/f599ba1d0b5/这个网页内容的更新，                但有时需要一个页面一个页面去查找自己需要的内容,很苦.希望高手帮忙                                        用excel自动提取第1-13页的文件名及链接.以便找出我自己需要的内容,                         上次高人northwolves给出的代码如下,但这次115网盘改版了,而我却不懂改,请高手帮忙,谢谢! 一个用VBA提取数据的简单问题.rar (8.18 KB, 下载次数: 9) 2011-10-21 21:41 上传 点击文件名下载附件

Sub getall() Dim url As String, v() As String, s() As String url = "http://u.115.com/folder/f9e1f2bb29/" With CreateObject("Msxml2.XMLHTTP") For p = 1 To 5 .Open "get", url & p, False .send Do While Not .readystate = 4 DoEvents Loop v = Filter(Split(.responsetext, vbCrLf), "<h5>") For i = 0 To UBound(v) s = Split(v(i), """") n = n + 1 ActiveSheet.Hyperlinks.Add Anchor:=Cells(n, 1), Address:=s(3), TextToDisplay:=s(1) Next Next End With End Sub

最佳答案

月排行榜 / 总排行榜

zjdh

2011-11-3 21:36

根据网站具体情况作了修改，你试试：
提取网站数据.rar (14.03 KB, 下载次数: 30)

2011-11-3 21:36 上传

点击文件名下载附件

跳转到最佳答案楼层

zjdh

根据网站具体情况作了修改，你试试：
提取网站数据.rar (14.03 KB, 下载次数: 30)

2011-11-3 21:36 上传

点击文件名下载附件

Alber

学习一下，这个好像用到AJex了