VBAを使用して、Internet Explorerのドロップダウンリストからオプションを選択する必要があります。

Question

IEを開くコードを取得しました。必要なWebページに移動してログインします。ドロップダウンリストからオプションを選択する必要があります。次のHTMLコードを参照してください。 html code for the list

ドロップダウンメニューから「TPS Managed Conservative - Dec 11」を選択するにはどうすればいいですか？これまで

マイコード：

Sub Strategic_Alpha_Monthly_Pivots_1_MASTER() 
' open IE, navigate to the desired page and loop until fully loaded 
    Dim ie As Object 
    Set ie = CreateObject("InternetExplorer.Application") 
    my_url = "http://analytics.financialexpress.net/login.aspx" 

    With ie 
     .Visible = True 
     .navigate my_url 


    Do Until Not ie.Busy And ie.readyState = 4 
     DoEvents 
    Loop 

    End With 

' Input the userid and password 

    ie.document.getElementById("txtPassword").Value = "xxxxx" 

' Click the "Search" button 
    ie.document.getElementById("btnAction").Click 

    Do Until Not ie.Busy And ie.readyState = 4 
     DoEvents 
    Loop 


    ie.document.getElementById("ListPortfolio").Select 

End Sub 

Answer 1

selectedIndexまたはValueを使用することができます。スクリーンショットによれば、値983678630を使用することができます。 HTH

If Not VBA.IsNull(ie.document.getElementById("ListPortfolio")) Then 
    Dim htmlSelect 
    Set htmlSelect = ie.document.getElementById("ListPortfolio") 
    ' htmlSelect.selectedIndex = 6 
    htmlSelect.Value = 983678630 
Else 
    MsgBox "Element 'ListPortfolio' was not found", vbExclamation 
End If