Web Macro

[nianchi111]

Hi,

Please help me...

http://www.gbbr.org/realtors/realto...name=&city=&zip=&max_records=10&search=Search

There are total 322 pages.

I want to click the agent name and copy the data to excel. There are 10 agents data per page total 322 pages.

after capturing the data of the first page it should go to next page and do the same.

Macro Code to open.

Dim IE As Object
Private Sub CommandButton1_Click()
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
URL = "http://www.gbbr.org/realtors/realtor_search.php?office_name=&first_name=&last_name=&city=&zip=&max_records=10&search=Search"
'get web page
IE.Navigate2 URL
Do While IE.readyState <> 4
DoEvents
Loop
Do While IE.busy = True
DoEvents
Loop
IE.document.links(0).Click
End Sub