如何用Excel VBA选择网页下拉列表中的性别选项？

核心问题分析 #

Select2是基于原生<select>标签封装的UI组件，直接点击其容器后代码卡住，大概率是因为下拉选项未加载完成就执行后续操作，或者没有正确触发组件的事件逻辑。更高效的方式是直接操作底层的原生<select>元素，而非模拟用户点击UI。

解决方案1：直接操作原生Select元素（推荐） #

Select2组件会同步底层原生<select>的状态，所以直接设置原生select的value并触发change事件，就能自动更新Select2的UI显示。

修改后的完整代码 #

Sub MERF()
  Dim IE As Object
  Dim doc As HTMLDocument
  Dim evt As Object
  Set IE = CreateObject("InternetExplorer.Application")
  
  IE.Visible = True
  IE.navigate "https://portal.spsc.gov.sa/MEH/Default.aspx?Id=386"
  
  '优化页面等待逻辑，确保完全加载
  Do While IE.Busy Or IE.ReadyState <> 4
     Application.Wait DateAdd("s", 1, Now)
  Loop
  
  Set doc = IE.document

  '其他表单填写代码保持不变
  doc.getElementById("ContentPlaceHolder1_Event_Date_Txt").Value = Sheet1.Range("F34").Value
  doc.getElementById("ContentPlaceHolder1_Wasfaty_Chk_1").Click
  Application.Wait Now() + TimeValue("00:00:05")
  doc.getElementById("ContentPlaceHolder1_Wasfaty_Other").Value = Sheet1.Range("T34").Value
  doc.getElementById("ContentPlaceHolder1_Mr_Txt").Value = Sheet1.Range("B34").Value
  
  '===== 处理性别下拉框 =====
  '获取原生select元素（Select2容器ID为select2-xxx-container，原生ID就是xxx）
  Dim genderSelect As Object
  Set genderSelect = doc.getElementById("ContentPlaceHolder1_Gender_Drop")
  
  '设置选项值（请根据HTML中option的实际value调整，比如Male对应的值可能是"M"或"1"）
  genderSelect.Value = "Male" '替换为页面实际的option value
  
  '触发change事件，通知Select2同步UI
  Set evt = doc.createEvent("HTMLEvents")
  evt.initEvent "change", True, False
  genderSelect.dispatchEvent evt
  '=========================
  
  '后续表单填写代码保持不变
  doc.getElementById("ContentPlaceHolder1_Event_Desc_Txt").Value = Sheet1.Range("M34").Value
  doc.getElementById("ContentPlaceHolder1_txtReporterComment").Value = Sheet1.Range("Q34").Value
  doc.getElementById("ContentPlaceHolder1_Reporter_Name_Txt").Value = "name"
  doc.getElementById("ContentPlaceHolder1_Reporter_Email_Txt").Value = "mail"
  doc.getElementById("ContentPlaceHolder1_Reporter_Mobile_Txt").Value = "xxxx"

End Sub

解决方案2：模拟用户点击Select2下拉框 #

如果原生select被隐藏无法直接操作，可通过模拟点击容器+等待选项加载+选择目标选项的方式处理：

替换处理性别下拉框的代码片段 #

'===== 处理性别下拉框 =====
'点击Select2容器
doc.getElementById("select2-ContentPlaceHolder1_Gender_Drop-container").Click

'等待下拉选项列表加载完成
Do While doc.querySelectorAll(".select2-results__option").Length = 0
    DoEvents
    Application.Wait DateAdd("s", 0.5, Now)
Loop

'遍历选项并点击目标（比如Male）
Dim optionElem As Object
For Each optionElem In doc.querySelectorAll(".select2-results__option")
    If Trim(optionElem.innerText) = "Male" Then
        optionElem.Click
        Exit For
    End If
Next
'=========================

关键注意事项 #

• 确认原生<select>的ID：右键检查页面性别下拉框的HTML，Select2容器ID为select2-xxx-container，对应的原生select ID就是xxx（此处为ContentPlaceHolder1_Gender_Drop）。
• 确认选项的value或文本：查看<option>标签的value属性和显示文本，确保代码中使用的内容与页面实际一致。
• 优化页面等待逻辑：原代码仅等待IE.Busy，改为Do While IE.Busy Or IE.ReadyState <> 4能更准确判断页面加载状态。

内容的提问来源于stack exchange，提问作者Yassine Jones