vba之网抓详细事例

VBA抓取网页数据详细教程，举例抓取网页中的表格数据 Sub test() Dim ie, dmt, tbs, i&, tb Set ie = CreateObject("InternetExplorer.Application") '创建一个IE对象 With ie .Visible = True '显示它 .navigate "http://data.eastmoney.com/dxf/default.html" '加载某个页面 Do Until .ReadyState = 4 '等待页面加载完毕 DoEvents Loop Set dmt = .document '将IE浏览器加载的页面文档，赋予dmt变量 Set tbs = dmt.all.tags("table") '获取所有的table对象集合 For i = 0 To tbs.Length - 1 '历遍每个table If InStr(tbs(i).innertext, "解除限售日期") > 0 Then '判断它的内含文本是否有某个关键字 Debug.Print i Set tb = tbs(i) '符合则捕捉这个表 'Exit For '是否退出循环视文档架构，如果是表格套表格，很有可能是最后一个才是真正的数据表 End If Next End With End Sub