这种网页数据如何抓取数据 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师帮帮忙查一下面代码一执行就弹出下载框，如何取消下载？？十分感谢！

Dim web As New System.Windows.Forms.WebBrowser()

web.ScriptErrorsSuppressed = True '解决网页页面的脚本错误提示

'web.Navigate(blwz)

web.Navigate("https://ggzy.hzctc.hangzhou.gov.cn/AfficheShow/Home?AfficheID=41132382-118e-40c5-a1d3-4923e7495b6f&IsInner=0&IsHistory=0&ModuleID=22")

Do Until web.ReadyState = 4 'AndAlso web.Document.GetElementById("zoom") IsNot Nothing '用ID确定属性内容

Application.DoEvents '绘制控件的代码即刻生效

Loop

'''----------

Dim elems As object

elems = web.Document.GetElementsByTagName("tr")

msgbox(elems.count)

主题：这种网页数据如何抓取数据