Excel VBA网页抓取：AJAX自动补全下拉列表无法触发

我碰到过不少类似的前端交互问题，这个AFL俱乐部搜索页面的自动补全组件明显是依赖真实的用户输入行为（比如键盘按键输入）来触发AJAX请求的，单纯修改value属性或者触发change事件根本骗不过它。下面给你几个可行的解决方案：

方案1：模拟逐个字符输入（最贴近真实用户操作） #

很多现代自动补全组件会监听input、keydown这类细粒度的事件，我们可以通过VBA模拟逐个字符输入，再手动触发input事件来激活自动补全：

Sub get_data()
    Const myURL As String = "http://play.afl/club-finder/?"
    Dim c As Range
    Dim appIE As Object
    Dim searchBar As Object, myInput As Object
    
    Set appIE = CreateObject("internetexplorer.application")
    With appIE
        .Navigate myURL
        .Visible = True
    End With
    
    ' 等待页面完全加载（建议加上超时判断，避免无限等待）
    Do While appIE.Busy Or appIE.ReadyState <> 4
        DoEvents
    Loop
    
    For Each c In Range("MY_SEARCH")
        Set searchBar = appIE.document.getElementsByClassName("program-filters")(0)
        Set myInput = searchBar.getElementsByTagName("INPUT")(0)
        
        ' 先清空输入框
        myInput.Value = ""
        ' 模拟逐个字符输入，每输入一个字符触发一次input事件
        Dim char As Variant
        For Each char In Split(c.Value, "")
            If char <> "" Then
                myInput.Value = myInput.Value & char
                ' 用标准的dispatchEvent触发input事件，比FireEvent更可靠
                appIE.document.parentWindow.execScript _
                    "var evt = new Event('input'); arguments[0].dispatchEvent(evt);", _
                    "JScript", myInput
                ' 给AJAX留一点加载时间，根据网络情况调整
                Application.Wait Now + TimeValue("00:00:01")
            End If
        Next char
        
        ' 循环等待自动补全列表出现
        Dim myAutoComplete As Object
        Do
            On Error Resume Next
            Set myAutoComplete = searchBar.getElementsByClassName("autocomplete")(0)
            On Error GoTo 0
            DoEvents
        Loop While myAutoComplete Is Nothing
        
        ' 选择第一个匹配的条目（如果需要精准匹配，可遍历列表项文本）
        Dim autoItems As Object, targetItem As Object
        Set autoItems = myAutoComplete.getElementsByTagName("li") ' 假设列表项是<li>标签
        If autoItems.Length > 0 Then
            ' 模拟点击条目，同样用dispatchEvent更可靠
            appIE.document.parentWindow.execScript _
                "var evt = new Event('click'); arguments[0].dispatchEvent(evt);", _
                "JScript", autoItems(0)
        End If
        
        ' 点击GO按钮提交搜索
        searchBar.getElementsByClassName("in-map-btn btn btn-primary btn-go btn-mobile-fixed")(0).Click
        
        ' 等待搜索结果加载完成
        Do While appIE.Busy Or appIE.ReadyState <> 4
            DoEvents
        Loop
        
        ' 这里添加你的数据收集逻辑，比如抓取页面上的俱乐部信息
        ' ...
        
    Next c
    
    appIE.Quit
    Set appIE = Nothing
End Sub

方案2：直接调用前端的搜索触发函数 #

如果能找到页面绑定的JavaScript触发函数，直接调用它会更高效。你可以打开浏览器开发者工具（F12），查看输入框的事件监听器，找到对应的搜索函数（比如可能叫triggerLocationSearch之类的），然后用VBA执行：

' 赋值后直接调用前端搜索函数（替换成你找到的真实函数名）
appIE.document.parentWindow.execScript _
    "triggerLocationSearch('" & c.Value & "');", "JScript"

几个关键注意事项 #

• 等待时间不能省：AJAX请求需要时间返回数据，所以必须加入等待逻辑，要么用Application.Wait，要么循环等待目标元素出现，不然代码会因为元素还没加载完而报错。
• 优先用dispatchEvent：旧的FireEvent在现代浏览器兼容性很差，标准的dispatchEvent能触发更完整的事件流，更容易被前端组件识别。
• 确认自动补全列表结构：你需要自己检查页面的自动补全列表是用什么标签写的（比如<ul>包裹的<li>，还是<div>），然后调整代码中获取列表项的方式。

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