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
1