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

【问题标题】：VBA code how select an option from drop downVBA代码如何从下拉列表中选择一个选项
【发布时间】：2021-03-18 14:34:44
【问题描述】：

我的 VBA 代码有问题。我要选择并更改 Option 值

<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

【问题讨论】：

注意说明您遇到了什么问题？您既没有提供完整的代码，也没有提供问题。此问题不包含任何问题。

标签： vba internet-explorer

【解决方案1】：

从您的描述来看，您似乎想通过使用 VBA 使 IE 浏览器自动化来选择一个下拉选项。

我们可以看到下拉元素没有 ID 或名称来访问它。所以在这里我们可以尝试使用其data-bind 属性值来查找该特定元素。

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

输出：

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

【讨论】：