Scrolling down a web page using VBA

[musicgold]

Hi,

I wish to be able to do the following things on a web page inside an Internet
Explorer instance.
I would appreciate it if you could give me some guidance on that.

1. Scroll down or right on the page
2. Go to a specific location on the web page (say at a word or phrase),
scrolling down, up, right or left. I want the focus of the window at that
location.

I am using the following code to open a specific webpage. The IE window does
NOT open in the maximized form. I want the page to automatically scroll down
to the RATES section on the page.

Code:
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = 1
IE.Navigate "http://finance.yahoo.com/â€
Do While IE.Busy: DoEvents: Loop


Thanks,

MG.

 

[Tim Williams]

See my answer to your earlier post.

Tim

 

[Davyboom]

can you proivethe detail link address.
I wish o learn the skill from you.

 

[Tim Williams]

can you proivethe detail link address.
I wish o learn the skill from you.

Here's what I wrote

Tim

*************************************************************
When you want this type of stuff it's best to start searching for javascript
snippets you can convert to VBA

http://radio.javaranch.com/pascarello/2005/01/09/1105293729000.html

This worked for me (but not consistently without the Wait line...)

Tim

'*************************
Option Explicit

Sub Tester()

Dim IE, doc, el
Dim X As Integer, Y As Integer

Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = 1
IE.Navigate "http://finance.yahoo.com/?"

Do While IE.Busy: DoEvents: Loop
Application.Wait Now + TimeSerial(0, 0, 3)

Set doc = IE.document
Set el = doc.getElementById("rates_tabs")
X = 0
Y = 0

Do While Not el Is Nothing
X = X + el.offsetLeft
Y = Y + el.offsetTop
Debug.Print X, Y
Set el = el.offsetParent
Loop

doc.parentwindow.scrollTo X, Y

End Sub
'*********************************************