Comment entrer des données dans une zone de texte et cliquez sur le bouton de recherche

Question

J'essaie de remplir la zone de texte et de cliquer sur le bouton de recherche d'un outil Web. J'ai écrit le code ci-dessous, mais il ouvre juste l'outil. Cependant, ne remplit pas la zone de texte.

Ci-dessous mon code:

Sub PLCbot() 
Dim myvalue As String 
Dim myie As Object 
Dim myloop As Object 
Dim myelements As Object 
Dim wksheet As Worksheet 
Dim Workbook As Workbook 

myvalue = Worksheets("Sheet1").Range("A1").Value 

Set myie = CreateObject("Internetexplorer.Application") 
myie.Visible = True 
myie.Navigate2 "http://psrhpinc.usa.hp.com/wplc/SalesMarketingView.aspx?ViewOption=SalesMarket" 
Do While myie.Busy 
Loop 

Set myelements = myie.document.getElementsByTagName("textarea") 
For Each myloop In myelements 
If myloop.Name = "textarea" Then 

myloop.Value = myvalue 
End If 
Exit For 
Next 

End Sub 

Answer 1

Exit For devrait être à l'intérieur If-End If. Essayez ci-dessous

For Each myloop In myelements 
    If myloop.Name = "textarea" Then 
     myloop.Value = myvalue 
     Exit For 
    End If 
Next