Waiting for a web page to load

[vmi1839]

Is there a way to have a macro wait until a web page has loaded for it to continue? I want the macro to be smart enough to figure out how long to wait based on the web pages status.

I'm trying to grab and copy the web page, but I need it to load first. I have been using the Application.Wait command, but this seems too clumsy and has a tendency to either be too long or not long enough.

 

[Andrew Poulsom]

Wait for a web page to load into what? Do you mean wait for a web query to finish?

With Worksheets(1).QueryTables(1) 
   Do While .Refreshing = True 
   Loop 
End With

 

[vmi1839]

I just want to wait for the web page to finishing loading in Internet Explorer.

 

[Andrew Poulsom]

What code does your macro use to load the web page into Internet Explorer?

 

[vmi1839]

There are two different ways that I have been doing it:

The first way is as follows:

Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.navigate "http://www.cnn.com"

The second way looks like this:

ActiveWorkbook.FollowHyperlink Address:="http://www.cnn.com"

 

[Andrew Poulsom]

This seems to work:

Sub Test()
    Dim IE As Object
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True
    IE.navigate "http://www.cnn.com"
    Do
        If IE.readyState = 4 Then
            IE.Visible = False
            Exit Do
        Else
            DoEvents
        End If
    Loop
    MsgBox "Done"
    IE.Visible = True
End Sub