clif
05-28-2015, 02:20 AM
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!
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!