Sub test()
Application.ScreenUpdating = False
the_Start:
Dim i As Long
Dim ie As Object
Dim objElement As Object
Dim objCollection As Object
' Create InternetExplorer Object
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.navigate myurl ''''"http://zarabol.rediff.com/Tata-Power-Company-Ltd/7209896"
Do
DoEvents
If Err.Number <> 0 Then
objIE.Quit
Set ie = Noting
Goto the_Start:
End If
Loop Until ie.readyState = 4
''--- Pls help me to write code to click on 1st Reply link and post my reply as " Best Buy - Hold it "
''-- on this page there are many Reply link..but i wish to click on 1st Reply.
' Pls open attachment i have marked Reply with red circle to be clicked.
"-----------------------------------------------------------------------------
Application.ScreenUpdating = True
Set ie = Nothing
End Sub
Application.ScreenUpdating = False
the_Start:
Dim i As Long
Dim ie As Object
Dim objElement As Object
Dim objCollection As Object
' Create InternetExplorer Object
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.navigate myurl ''''"http://zarabol.rediff.com/Tata-Power-Company-Ltd/7209896"
Do
DoEvents
If Err.Number <> 0 Then
objIE.Quit
Set ie = Noting
Goto the_Start:
End If
Loop Until ie.readyState = 4
''--- Pls help me to write code to click on 1st Reply link and post my reply as " Best Buy - Hold it "
''-- on this page there are many Reply link..but i wish to click on 1st Reply.
' Pls open attachment i have marked Reply with red circle to be clicked.
"-----------------------------------------------------------------------------
Application.ScreenUpdating = True
Set ie = Nothing
End Sub
Attachments
-
99.1 KB Views: 24