VBA提取网页数据的四种方法.docVIP

VBA提取网页数据的四种方法 [复制链接] uranus1997 165 主题 0 好友 261 积分 幼儿园大班 喵～～～ [] 金币1704 个积分261帖子1510 发消息 最佳答案13 电梯直达1楼 发表于 2008-2-25 0449 只看该作者 倒序浏览 更多 1 本帖最后由 爱疯 于 2012-7-5 1042 编辑 嗯，是398部长交给我的一个小练习，发上来共享一下，之后就等398部长来解说吧。 一共做了4个方法，期间多谢八月梦游的帮助和提点。 题目是提取以下网页里的店铺名称和地址：（没做提取多页的，偷懒） searchsearchstore.htmloption.cityname=%CE%C2%D6%DDoption.category=4option.distance=2000pageNo=1 1. XMLHTTP对象，速度不错，受网页源代码改变影响，但是处理网页源文件最方便自由。 2. InternetExplorer对象，速度一般，受网页源代码改变影响，还需要激活IE，不喜欢。 3. QueryTables对象，平均速度最快，而且基本不受网页源代码改变影响，就是想获取多页数据的时候麻烦，而且多了一个web查询区域需要删除。 4. WebBrowser对象，第一次速度次于XMLHTTP，之后就很快，受网页源代码改变影响，原理同InternetExplorer，就是多了个控件在工作表上不好看，只能靠缩小控件来隐藏。 4种方法各有优劣，看实际情况来选取合适的方法了。 个人觉得网页提取数据，没有什么技巧可言，归根到底，原理基本都是提取网页的源代码然后进行分析处理。 在VBA里，可能用字符串处理的办法更容易理解，其实也可以用获取网页元素的办法，例如第2和第4种方法，就用了一些这样的技巧，但由于对网页的元素不太熟悉，因此如果要方便的方法，还需要多了解网页的结构和代码才行了。 PS：记得看我家耗子写的火狐浏览器脚本，似乎也只能用枚举办法列出不同网页其源码的共同地方来写，想100%通用似乎很难啊。 第一次附件： 8yEsMVej.rar (25.12 KB, 下载次数 1318) ===================================== 由于网页源码有所改变，08-7-14日重新修改后上传。 [此贴子已经被作者于2008-7-14 22817编辑过] jKtC2df0.rar 24.33 KB, 下载次数 1420 [分享]VBA提取网页数据(4种方法) 0JQmXNaH.rar 25.44 KB, 下载次数 1660 [分享]VBA提取网页数据(4种方法) 第一种方法出错，是什么原因？ ? 可能是传递Object变量的问题，这样试试 Sub test()??? Dim s As String??? Dim arr??? Dim i As Long??? Dim k As Long??? Dim t1 As Long??? Dim t2 As Long??????? s = GetSource(/search/searchstore.html?option.cityname=%CE%C2%D6%DDoption.category=4option.distance=2000pageNo=1)??? arr = Filter(Split(s, li), 地址, True) ??? k = 1??? For i = 0 To UBound(arr)??????? t1 = InStr(1, arr(i), ) + 1??????? t2 = InStr(t1, arr(i), )??????? Cells(k, 1) = Mid(arr(i), t1, t2 - t1)??????? Cells(k + 1, 1) = 地址： Mid(arr(i), 13, InStr(1, arr(i), a) - 14)??????? k = k + 3??? Next i End SubPrivate Function GetSource(sURL As String) As String ??? Dim oXHTTP As Object??????? Set oXHTTP = CreateObject(MSXML2.XMLHTTP)??? oXHTTP.Open GET, sURL, False??? oXHTTP.send??????? GetSource = oXHTTP.responseText??? Set oXHTTP = Nothing End Function 每打开一次excel，只能出来一次结果，没有编码转换。。。。看我