方法一：

Set ie=CreateObject("InternetExplorer.Application")

Do Until Not ie.Busy And ie.ReadyState = 4/READYSTATE_COMPLETE

这种方式有时候也不行。

有时候IE进度条在含有框架的页面里面，已经加载完成的页面，进度条却还在跑，所以你这样判断可能会有问题。我写过一个函数，是通过判断进度条前面的提示字符来判断的，还没完善，看是否能满足你的需要。
Function IE_WaitUntilLoadFinish(sec_time)
'IE等待状态栏提示完成，直到超过指定时间
    loadFinish="no"
    For i=1 To sec_time   '等待指定时间
       ieHint=Browser("title:=XXXXXX").WinStatusBar("regexpwndclass:=msctls_statusbar32").GetRoproperty("regexpwndtitle")
       If RegExpTest("正在打开网页",ieHint)>0 Then
           wait(1)
           ElseIf ieHint="网页上有错误" Then
               ElseIf  ieHint="完毕" Then
                   loadFinish="yes"
                   Exit For
       End If
    Next  
    IE_WaitUntilLoadFinish=loadFinish
    If loadFinish="no" Then
       captureFileName=ErrorCapture("系统加载过慢")         'ErrorCapture是自定义的全屏捕捉函数
       Reporter.ReportEvent micFail,"系统加载过慢，详见截图"&captureFileName&"","错误"   
    End If
End Function
RegExpTest这个函数是我修改帮助里面的同名函数而来，代码如下
Function RegExpTest(patrn, strng)
'返回匹配要求的字符串数量
   Dim regEx, Match, Matches   ' Create variable.
   Set regEx = New RegExp   ' Create regular expression.
   regEx.Pattern = patrn   ' Set pattern.
   regEx.IgnoreCase = True   ' Set case insensitivity.
   regEx.Global = True   ' Set global applicability.
   Set Matches = regEx.Execute(strng)   ' Execute search.
   RegExpTest = Matches.Count
End Function

本文转自hcy's workbench博客园博客，原文链接：http://www.cnblogs.com/alterhu/archive/2012/04/19/2458606.html，如需转载请自行联系原作者。