[求助]求高手帮我写个抓取网页数据的代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以下是引用18523982317在2017/11/6 17:21:00的发言：
甜大大我又有个需求，我要在企业名称的文本框里自动填入当前行的企业名称进去，然后查询，然后下载数据到本地

这个向网页填写数据，改怎么做

Dim web As New System.Windows.Forms.WebBrowser()
web.Navigate("http://cx.cqjsxx.com:8010/CX_SGQYMRPM2.aspx")
Do Until web.ReadyState = 4
Application.DoEvents
Loop

Dim mc = web.Document.GetElementByID("txt_mc")
mc.setattribute("value", "重庆建工住宅建设有限公司")

Dim cx = web.Document.GetElementByID("btn_c")
cx.InvokeMember("click")

'msgbox(2)
'output.show(web.documenttext)

主题：[求助]求高手帮我写个抓取网页数据的代码