VBA操作网页下拉框遇Error 13类型不匹配错误求助

我来帮你排查这个问题！你遇到的Error 13类型不匹配，大概率是因为代码尝试获取的下拉框元素还没加载完成，或者变量类型定义不够严谨，再加上可能的匹配逻辑偏差导致的。咱们一步步来解决：

问题根源分析 #

• 页面加载不充分：点击Button1后，页面可能还在异步加载新内容，你原有的等待逻辑只处理了初始页面，没考虑点击后的页面更新，这时候getElementById("ddlDistrict")可能返回Nothing，赋值给变量时就会触发类型不匹配。
• 变量类型模糊：你把drp定义为Variant，虽然VBA会自动适配，但明确指定为HTMLSelectElement能帮你更早发现问题，代码也更规范。
• 匹配逻辑可能不符合预期：你的代码用Value匹配下拉选项，但从HTML来看，选项的Value是类似"01"的字符串，而如果你的A1单元格存的是地区名称（比如"કચ્છ"），那这个匹配永远不会生效，反而可能因为后续操作空元素报错。

修正后的代码方案 #

Sub Select_dropdown_item()
    Dim IE As InternetExplorer
    Dim drp As HTMLSelectElement ' 明确指定为下拉框元素类型
    Dim dname As String
    Dim waitTime As Date
    
    dname = Range("A1").Value
    Set IE = New InternetExplorer
    IE.Visible = True
    IE.navigate "https://anyror.gujarat.gov.in/"
    
    ' 等待初始页面完全加载
    While IE.Busy Or IE.readyState <> READYSTATE_COMPLETE
        DoEvents
    Wend
    
    ' 点击Button1后，等待新内容加载
    IE.document.getElementById("Button1").Click
    waitTime = Now + TimeValue("00:00:08") ' 给足够的加载时间，可根据实际调整
    
    ' 循环等待下拉框元素出现，同时做超时保护
    Do While Now < waitTime
        On Error Resume Next
        Set drp = IE.document.getElementById("ddlDistrict")
        On Error GoTo 0
        If Not drp Is Nothing Then Exit Do
        DoEvents
    Loop
    
    ' 判断元素是否成功获取
    If drp Is Nothing Then
        MsgBox "无法找到下拉框元素，可能页面加载超时或元素ID有误"
        IE.Quit
        Exit Sub
    End If
    
    ' 匹配下拉选项：根据你的A1值选择对应的逻辑
    ' 情况1：A1存的是选项的Value（比如"01"）
    For x = 0 To drp.Options.Length - 1
        If Trim(drp.Options(x).Value) = Trim(dname) Then
            drp.selectedIndex = x
            ' 触发下拉框的 onChange 事件（部分网页需要手动触发才会加载后续选项）
            Call IE.document.parentWindow.execScript("document.getElementById('ddlDistrict').onchange()")
            Exit For
        End If
    Next
    
    ' 情况2：A1存的是选项的显示文本（比如"કચ્છ"），就用下面这段替换上面的循环
    ' For x = 0 To drp.Options.Length - 1
    '     If Trim(drp.Options(x).Text) = Trim(dname) Then
    '         drp.selectedIndex = x
    '         Call IE.document.parentWindow.execScript("document.getElementById('ddlDistrict').onchange()")
    '         Exit For
    '     End If
    ' Next
    
    ' 后续操作其他三个下拉框的逻辑可以在这里继续添加
    ' ...
    
End Sub

关键改动说明 #

• 明确元素类型：把drp定义为HTMLSelectElement，需要确保你的VBA项目引用了Microsoft HTML Object Library（在VBE的「工具」→「引用」里勾选）。
• 增强等待逻辑：点击按钮后增加了超时等待循环，确保下拉框元素加载完成后再操作，避免空引用。
• 添加错误保护：判断drp是否为Nothing，避免后续代码因为找不到元素报错。
• 触发 onChange 事件：很多网页的下拉框选择后需要触发onchange事件才会加载后续的关联下拉选项，所以添加了执行脚本的代码。
• 双匹配逻辑：根据你的A1单元格内容提供了两种匹配方式，选对应的即可。

额外注意事项 #

• 确保你的VBA项目同时引用了Microsoft Internet Controls和Microsoft HTML Object Library，否则会出现类型未定义的错误。
• 如果网站加载较慢，可以适当调整等待时间（比如把00:00:08改成更长的时间）。

内容的提问来源于stack exchange，提问作者bhagvat dave