使用VBA+Selenium Edge Driver获取Redfin搜索结果URL异常求助

你遇到的核心问题是提交搜索后页面尚未完成跳转，就提前获取了当前URL，导致拿到的依然是Redfin首页地址。另外，搜索框的定位选择器可能失效、缺少可靠的等待机制，也是关键诱因。

关键修复点 #

• 启用显式等待替代固定等待，确保页面跳转完成或目标元素加载后再获取URL
• 更新搜索框的CSS选择器（Redfin页面元素可能存在更新，改用更稳定的测试ID选择器）
• 改用模拟回车的方式触发搜索，更贴合页面原生交互逻辑
• 优化WebDriver实例的生命周期，避免全局变量潜在问题

修改后的完整代码 #

Sub FetchRedfinURL()
    Dim driver As New WebDriver
    Dim cellValue As String
    Dim searchBox As WebElement
    Dim pageURL As String
    
    ' 获取活动单元格的地址内容，去除首尾空格
    cellValue = Trim(ActiveCell.Value)
    If cellValue = "" Then
        MsgBox "活动单元格不能为空！", vbExclamation
        Exit Sub
    End If
    
    ' 初始化Edge浏览器（无需指定驱动路径，若驱动已配置到环境变量）
    driver.Start "Edge"
    driver.Get "https://www.redfin.com"
    
    ' 显式等待搜索框加载，超时10秒
    Set searchBox = driver.FindElementByCss("input[data-rf-test-id='search-box-input']", timeout:=10000)
    
    ' 清空搜索框、输入地址并触发搜索（模拟回车）
    searchBox.Clear
    searchBox.SendKeys cellValue
    searchBox.SendKeys Keys.Enter
    
    ' 等待URL离开首页，确保跳转完成，超时15秒
    driver.Wait Until (Not driver.Url = "https://www.redfin.com"), timeout:=15000
    
    ' 获取搜索结果页的最终URL
    pageURL = driver.Url
    
    ' 为活动单元格添加超链接，保留原有内容
    ActiveCell.Hyperlinks.Add Anchor:=ActiveCell, Address:=pageURL, TextToDisplay:=cellValue
    
    ' 可选：若需关闭浏览器，取消注释下方代码
    ' driver.Quit
    Set driver = Nothing
End Sub

代码说明 #

1. 空值校验：避免因单元格为空导致的无效搜索请求
2. 显式等待：通过timeout参数设置等待时长，确保元素加载完成，比固定等待更高效可靠
3. 稳定选择器：使用Redfin官方标注的测试ID选择器，比class选择器更不易受页面更新影响
4. 回车触发搜索：模拟用户手动回车的交互逻辑，避免Submit()方法可能存在的兼容性问题
5. URL跳转校验：确保页面完全跳转到搜索结果页后再获取URL，解决核心问题

额外注意事项 #

• 确保本地msedgedriver.exe版本与Edge浏览器版本一致，否则会出现启动失败
• 若搜索结果直接跳转到房源详情页，代码依然能正确获取最终URL
• 若遇到验证码或反爬机制，需额外添加人机验证的处理逻辑

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