copyt
07-02-2012, 07:22 AM
Hello all, I am I am struggling with the code that can fill the web-form for me. Could anybody tell me what's wrong with my code?
Any help/suggestions would be appreciated. :friends:
Sub login()
With CreateObject("InternetExplorer.Application")
.Visible = True
.navigate "http://www.uniprot.org/"
Do Until .Readystate = 4
DoEvents
Loop
.document.All("query").Value = ActiveCell.Text
.document.All("Search").Click '
End With
End Sub
Any help/suggestions would be appreciated. :friends:
Sub login()
With CreateObject("InternetExplorer.Application")
.Visible = True
.navigate "http://www.uniprot.org/"
Do Until .Readystate = 4
DoEvents
Loop
.document.All("query").Value = ActiveCell.Text
.document.All("Search").Click '
End With
End Sub