Anyone can help?

[clif]

Sub abc()


Dim wb As Workbook
Dim ws As Worksheet
Dim a As Integer
Dim ie As Object
Set wb = ThisWorkbook
Set ws = wb.Sheets("abc")
a = 3

Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.navigate ws.Cells(2, 3)

While ie.Busy: DoEvents
Wend
Do
Loop Until Not (ie.Busy)

ie.document.all(ws.Cells(3, 1).Value).Value = ws.Cells(3, a)
ie.document.all(ws.Cells(4, 1).Value).Click

ws.Cells(5, 5).Value = ie.document.getElementById("lfHead")(0).getElementsByTagName("IfRowNo3")(0).getElementsByTagName("td")(1).innerText


End Sub




the navigate website is http://www.abc.aspx.

Anyone can help? Thank you very much!

[SamT]

Wrong

While ie.Busy: DoEvents
Wend
Do
Loop Until Not (ie.Busy)
Good

While ie.Busy: DoEvents
Wend

While ie.Busy: DoEvents
Loop

Do
Do Events
Loop Until Not (ie.Busy)