Question

我已经成功获得了打开IE的代码，导航到我需要的网页，然后登录。我现在需要从下拉列表中选择一个选项 - 请参阅以下html代码： html code for the list

如何选择＆＃34; TPS管理保守党 - 12月11日＆＃34;下拉列表中的选项。

到目前为止我的代码：

    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

需要使用VBA从Internet Explorer的下拉列表中选择一个选项

1 个答案: