Potrzebuję znaleźć i nacisnąć przycisk na stronie internetowej przy użyciu VBA

Question

Napisałem makro, które otworzy stronę internetową, znajdę miejsca, w których potrzebuję umieścić dane, a następnie chcę, aby makro trafiło przycisk wypełniania, następnie naciśnij Ok.

Kod źródłowy strona dla przycisku to:

<input type="text" size="30" maxlength="40" name="name" id="name"> 
<input type="button" value="Prefill" onclick="prefill()"> 

Szukałam odpowiedzi przez cały tydzień i myślę, że mam podstawową wiedzę o tym, jak to ma działać, uruchamiając pętlę szukać za to, ale nie mam szczęścia w moim wysiłku, aby to osiągnąć.

Czy ktoś może mi pokazać pętlę, która przeszuka moją stronę dla tego przycisku?

Z góry dziękuję.

Zamówiony kod dotychczas

Private Sub Populate_Click() 
    Dim i As Long 
    Dim IE As Object 
    Dim objElement As Object 
    Dim objCollection As Object 

    Set IE = CreateObject("InternetExplorer.Application") 

    IE.Visible = True 
    IE.Navigate "website" 'make sure you've logged into the page 

    Do 
     DoEvents 
    Loop Until IE.READYSTATE = 3 

    Do 
     DoEvents 
    Loop Until IE.READYSTATE = 4 
    ActiveSheet.EnableCalculation = False 
    ActiveSheet.EnableCalculation = True 
    Call IE.document.getelementbyid("name").SetAttribute("value", ActiveSheet.Range("b2").Value) 
    Call IE.document.getelementbyid("aw_login").SetAttribute("value", ActiveSheet.Range("a2").Value) 

    Set objCollection = IE.document.getElementsByTagName("input") 
    i = 0 
    While i < objCollection.Length 
     If objCollection(i).Type = "button" And _ 
      objCollection(i).Name = "Prefill" Then 
       Set objElement = objCollection(i) 
     End If 
     i = i + 1 
    Wend 
    objElement.Click 
End Sub 

Answer 1

Wygląda na to są całkiem blisko, to co ja kiedyś zrobić coś podobnego

With ie.document 

     Set elems = .getelementsbytagname("input") 
     For Each e In elems 
      If (e.getattribute("className") = "saveComment") Then 
       e.Click 
       Exit For 
      End If 
     Next e 

    End With 

Prawdopodobnie po prostu trzeba zmienić if.

Ja również zauważyć, że kod odwołuje się do .Name = "Prefill" ale twój html fragment odnosi się do .value = "Prefill"