Excel VBA Wählen Sie Option Website Dropdown-Liste und klicken Sie

Question

Ich versuche, die Antwort von der Website zu kopieren, aber ich muss eine der Optionen aus der Dropdown-Liste auswählen, damit die Seite aktualisiert werden kann.

Bis jetzt, ich habe es geschafft, IE zu öffnen und klicken Sie auf die Dropdown-Taste, aber ich kann nicht die Option wählen, weiß nicht warum. Bitte finden Sie das Beispiel des Codes unten.

Sub OpenWebSelectClickSaveHtmlFile() 
    Dim URL As String 
    URL = "http://formulaacademia.com.br/academia" 
    Set myIE = CreateObject("InternetExplorer.Application") 
    With myIE 
     .navigate URL 
     .Visible = True 
     Do While .Busy = True Or .readyState <> 4 
     Loop 
     DoEvents 
     Set selectitems = myIE.document.getElementsByTagName("button") 
     For Each i In selectitems 
      i.Click 
     Next i 
    End With 
End Sub 

Rgds

Answer 1

Es sollte so etwas wie dieses. Ändern Sie die relevanten Teile nach Ihren Bedürfnissen.

Sub passValueToComboBox1() 
    Dim ie As Object 
    Dim oHTML_Element As IHTMLElement 

    Set ie = CreateObject("InternetExplorer.Application") 
    ie.Visible = True 
    ie.navigate "http://peterschleif.bplaced.net/excel/combobox/index.php" 
    While ie.Busy Or ie.readyState <> 4: DoEvents: Wend 

    Set oHTML_Element = ie.document.getElementsByName("selectedReportClass")(0) 
    If Not oHTML_Element Is Nothing Then oHTML_Element.Value = "com.db.moap.report.FUBU7" 

    For Each oHTML_Element In ie.document.getElementsByTagName("input") 
     If oHTML_Element.Type = "submit" Then oHTML_Element.Click: Exit For 
    Next 
End Sub