[已解决]IE.busy和IE.Readystate = 4，有区别吗？

爱疯

Sub LOADIE()
    Dim IE As Object

    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True
    IE.navigate "www.excelpx.com"  '←打开某个网页，要一定时间，但代码会往下执行
'    Do Until IE.Readystate = 4    '  检查网页是否加载完毕（4表示完全加载）
    Do Until IE.busy
        DoEvents                ' 循环中交回工作权限给系统，以免“软死机”
    Loop
End Sub

1. 黄绿两句，有区别吗？
2. Readystate还有哪些值？（0？1？2？....）

谢谢！

最佳答案

月排行榜 / 总排行榜

吕?布

2010-12-1 17:05

Property ReadyState As tagREADYSTATE，有5种情况

Const READYSTATE_COMPLETE = 4
Const READYSTATE_INTERACTIVE = 3
Const READYSTATE_LOADED = 2
Const READYSTATE_LOADING = 1
Const READYSTATE_UNINITIALIZED = 0

跳转到最佳答案楼层

爱疯

[em09]

爱疯

[em04]

吕?布

Property ReadyState As tagREADYSTATE，有5种情况

Const READYSTATE_COMPLETE = 4
Const READYSTATE_INTERACTIVE = 3
Const READYSTATE_LOADED = 2
Const READYSTATE_LOADING = 1
Const READYSTATE_UNINITIALIZED = 0

爱疯

谢谢吕布！

学习，为什么不好找列？

吕?布

试验了一下，两者应该是不同的
Sub LOADIE()
' 默认浏览器设为IE
    Dim IE As Object

    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True
    IE.navigate "www.excelpx.com"  '←打开某个网页，要一定时间，但代码会往下执行
    IE.Visible = False
    
    Debug.Print IE.Busy, CLng(IE.ReadyState)
    Do Until IE.ReadyState = 4    '  检查网页是否加载完毕（4表示完全加载）
        '    Do Until IE.busy
        Debug.Print IE.Busy, CLng(IE.ReadyState)
        DoEvents                ' 循环中交回工作权限给系统，以免“软死机”
    Loop
    Debug.Print IE.Busy, CLng(IE.ReadyState)

End Sub

结果是

False          3
False          3
False          4

结果是Busy一直是False,而ReadyState 则一直变化

su0nils000

我也碰到这个问题，我的网页是有框架和iframes的，在iframes在下载数据的时候，IE.BUSY=true！但readystate=4！

su0nils000

自己回一下，frame里的document有readystate，没有busy，在网页执行脚本的过程中是busy，readystate是4，
但在readystate=3之前，ie的readystate状态不可检测，否则出错。。所以需要有onerror resume next