使用VBA操作JavaScript下拉菜单：通过宏选择Select2下拉框的"Closed"选项

Alright, let's tackle this problem—since you're dealing with a Select2 dropdown (those fancy styled dropdowns that aren't native HTML selects), regular VBA methods for standard <select> elements won't work directly. Here are two reliable approaches to select the "Closed" option:

方法一：模拟用户点击操作（适合需要触发前端交互逻辑的场景） #

This method mimics how a user would interact with the dropdown: click to expand it, then select the desired option.

Sub SelectClosedOption_Click()
    Dim IE As Object
    Dim select2Trigger As Object
    Dim closedOption As Object
    
    ' 初始化IE对象（如果已经打开目标网页，可直接获取现有IE实例）
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True
    IE.Navigate "你的目标网页URL" ' 替换为实际网页地址
    
    ' 等待页面加载完成
    Do While IE.Busy Or IE.ReadyState <> 4
        DoEvents
    Loop
    
    ' 1. 找到Select2的触发按钮并点击，展开下拉框
    ' 根据你提供的HTML，触发元素是class为"select2-choice"的<a>标签，父容器id是"s2id_autogen2"
    Set select2Trigger = IE.Document.getElementById("s2id_autogen2").getElementsByTagName("a")(0)
    select2Trigger.Click
    
    ' 等待下拉选项加载（根据页面速度调整延迟时间）
    Application.Wait Now + TimeValue("00:00:01")
    
    ' 2. 找到"Closed"选项并点击
    ' Select2的下拉选项通常在class为"select2-results"的容器里，每个选项是<div class="select2-result-label">
    For Each closedOption In IE.Document.getElementsByClassName("select2-result-label")
        If closedOption.innerText = "Closed" Then
            closedOption.Click
            Exit For
        End If
    Next closedOption
    
    ' 清理对象
    Set closedOption = Nothing
    Set select2Trigger = Nothing
    Set IE = Nothing
End Sub

方法二：直接操作原生Select元素（更高效，无需模拟点击） #

Select2 dropdowns are usually tied to a hidden native <select> element. You can directly set its value and trigger the change event to update the Select2 UI.

Sub SelectClosedOption_Direct()
    Dim IE As Object
    Dim nativeSelect As Object
    
    ' 初始化IE对象
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True
    IE.Navigate "你的目标网页URL"
    
    ' 等待页面加载
    Do While IE.Busy Or IE.ReadyState <> 4
        DoEvents
    Loop
    
    ' 找到原生的<select>元素（Select2容器id是"s2id_autogen2"，对应的原生select id通常是"autogen2"）
    Set nativeSelect = IE.Document.getElementById("autogen2")
    
    ' 设置选项值（如果知道"Closed"对应的value属性，直接设置；否则遍历选项）
    If Not nativeSelect Is Nothing Then
        ' 方法A：如果知道"Closed"的value，直接赋值
        ' nativeSelect.Value = "closed_value" ' 替换为实际value
        
        ' 方法B：遍历选项找到"Closed"
        Dim opt As Object
        For Each opt In nativeSelect.Options
            If opt.Text = "Closed" Then
                opt.Selected = True
                Exit For
            End If
        Next opt
        
        ' 触发change事件，让Select2同步更新UI
        IE.Document.parentWindow.execScript "document.getElementById('autogen2').dispatchEvent(new Event('change'));"
    End If
    
    ' 清理对象
    Set opt = Nothing
    Set nativeSelect = Nothing
    Set IE = Nothing
End Sub

注意事项： #

• 替换代码中的"你的目标网页URL"为实际网页地址。
• 如果方法一中的等待时间不够，可调整Application.Wait的时长。
• 原生select的id可能需要根据实际HTML确认（通常是Select2容器id去掉"s2id_"前缀）。

内容的提问来源于stack exchange，提问作者Laure Jacquon