Web Browser Control

  • Thread starter Thread starter JT
  • Start date Start date
J

JT

We have a spreadsheet with a Web Browser Control in it.
Our macro moves thru different pages on the control using
code something like this

Worksheets
(1).WebBrowser1.Navigate "https:/company/homepage.com/docs
/VendList.cmd"

We then inserted the following code to cycle thru until
the page is displayed.

Do While Not intReadyState = 4
intReadyState = Worksheets(1).WebBrowser1.ReadyState
Loop

The nect code resets the ReadyState to 0 to begin the
navigation to the next panel.

intReadyState = 0

Something is not right. The new page is not displaying in
the Web Browser Control unless I hit CTL+ALT+DEl and then
click on debug.

Once I do this then the "new" page is displayed or the Web
Browser Control appears to be refreshed with the new page.

This is our first attempt to use this control and any
suggestions on making this run better would be
appreciated. Thanks for the help.
 
Have you tried putting a
DoEvents
just ahead of Loop?

Have you set
application.ScreenUpdating = False
anywhere?

Stephen Rasey
Houston
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Back
Top