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 '等待页面加载