- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- Do Until Loop没有执行后续代码 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=147595)
-- 发布时间：2020/3/20 9:34:00
-- Do Until Loop没有执行后续代码
昨天翻了下论坛里面网页抓取帖子，结果发现网页格式已经过期，结合其它例子，自己改了一下。
能成功抓取数据，但是必须得执行msgbox()，并点击关闭这个对话框后，才能执行后续代码。
如果去掉，LOOP下面代码无法运行，请教下，如果不用弹出这个msgbox，或者让这个msgbox自动退出后接着运行后面的代码。
此主题相关图片如下：2020-03-20_09-28-42.jpg
-- 发布时间：2020/3/20 10:11:00
--
代码发上来测试
-- 发布时间：2020/3/20 10:41:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:网页表格数据保存到狐表表中例子.zip |
-- 发布时间：2020/3/20 10:42:00
--
好的，源文件需要从主界面打开，双击运行不了。
-- 发布时间：2020/3/20 11:07:00
--
应该是网站使用了延迟加载功能。也有可能为了防数据被抓取设置的
Dim web As New System.Windows.Forms.WebBrowser()
web.ScriptErrorsSuppressed = True
web.Navigate("https://www.ccmn.cn/historyprice/cjxh_1/")
Do Until web.ReadyState = 4 AndAlso web.Document.GetElementsByTagName("tbody").count > 0
Application.DoEvents
Loop
-- 发布时间：2020/3/20 11:13:00
--
很感谢。
