Problem while filling a web form

[shiva1234]

I am new to VB and tried this code to fill a web form and it did not work (ie the web opened but was unable to fill in the fields) . Can some one please help me ...plssss. Following is the code:


Private Sub IE_Autiomation()

Dim IE As Object

Set IE = CreateObject("InternetExplorer.Application")

IE.Visible = True
IE.Navigate "https://onlineservices.tin.egov-nsdl.com/etaxnew/tdsnontds.jsp"


Do
DoEvents
Loop Until IE.readystate = 4


Set allhyperlinks = IE.document.getelementsbytagname("A")
For Each hyper_link In allhyperlinks
If hyper_link.innertext = "CHALLAN NO./ITNS 281" Then
hyper_link.Click
Exit For


End If


Next


Do
DoEvents
Loop Until IE.readystate = 3


Do
DoEvents
Loop Until IE.readystate = 4






Call IE.document.getelementbyname("Add_Line1").setattribute("Vale", "No.240")




End Sub

 

[John_w]

Try changing the last line to:

IE.document.getElementsByName("Add_Line1")(1).Value = "240"

Note - the (1) is because there are 2 elements with name="Add_Line1", the first being a hidden input element. The same applies to Add_Line2, etc.

Please always use CODE tags when posting VBA code - the # icon in the message editor.

 

[shiva1234]

that was a great help John_w. It did work for me. Thanks a ton