VBA代码如何从下拉列表中选择选项

我的VBA代码有问题。我想选择并更改选项值

<div class="pull-left">
        <span data-bind="text: allTasks.itemsFromIndex">1</span> To
        <span data-bind="text: allTasks.itemsToIndex">10</span> Of
        <span data-bind="text: allTasks.totalCount">39</span> All Pending Tasks
    </div>
        Show
        <select data-bind="value: allTasks.pageSize">
            <option value="5">5</option>
            <option value="10">10</option>
            <option value="20">20</option>
            <option value="50">50</option>
            <option value="100">100</option>
        </select>
        Per Page

1至
第10页
39所有未决任务
显示
5.
10
20
50
100
每页

根据您的描述，您似乎希望通过使用VBA自动化IE浏览器来选择下拉选项

我们可以看到下拉元素没有访问它的ID或名称。因此，这里我们可以尝试使用它的

数据绑定

属性值来查找特定元素

VBA代码：

Sub demo()

    Dim ie As Object
    Dim selectElement As HTMLSelectElement
    Set ie = CreateObject("InternetExplorer.Application")
    ie.Visible = True
    ie.navigate "https://Your_Site_URL_here..."  'Modify the URL here...

    Do While ie.Busy
        Application.Wait DateAdd("s", 1, Now)
    Loop
        
    Set selectElement = ie.document.querySelector("select[data-bind='value: allTasks.pageSize']")
    selectElement.Options(3).Selected = True  ' Note that index value starts from 0...
   
    'ie.Quit
End Sub

输出：

---

此外，您可以尝试根据自己的要求修改代码示例。

是否指定您遇到的问题？您既没有提供完整的代码，也没有解决问题。这个问题没有问题。