VBA Selenium提取网页Href链接重复问题求助

代码错误点 #

• 嵌套循环逻辑错误：外层的For i循环完全冗余，内层For Each已经负责遍历所有<a>标签；同时内层循环里每次找到第一个匹配data-testid="product-detail-title"的元素就执行Exit For，导致每次都只输出第一个符合条件的链接，外层循环重复这个操作，最终出现重复输出同一链接的情况。
• 遍历范围冗余：遍历所有<a>标签效率低下，没必要对所有链接做判断，可直接定位目标元素。

修正方案 #

方案1：修正原有循环逻辑

保留遍历所有<a>标签的方式，移除冗余循环并去掉错误的Exit For：

Option Explicit
Private chr As Selenium.ChromeDriver
Sub Test()
    Set chr = New Selenium.ChromeDriver
    chr.Start
    chr.Get "https://www.grainger.com/category/pumps/rotary-pumps/rotary-gear-pump-heads?categoryIndex=1"
    chr.Wait 1000

    Dim mylinks As Selenium.WebElements
    Dim mylink As Selenium.WebElement

    Set mylinks = chr.FindElementsByTag("a")
    ' 移除多余的外层For i循环，直接遍历所有链接
    For Each mylink In mylinks
        ' 去掉Exit For，找到所有符合条件的链接都输出
        If LCase(mylink.Attribute("data-testid")) = "product-detail-title" Then
            Debug.Print mylink.Attribute("href")
        End If
    Next mylink
    
    ' 关闭浏览器释放资源
    chr.Quit
    Set chr = Nothing
End Sub

方案2：直接定位目标元素（更高效）

利用data-testid属性直接定位所有目标链接，无需遍历全部<a>标签：

Option Explicit
Private chr As Selenium.ChromeDriver
Sub Test()
    Set chr = New Selenium.ChromeDriver
    chr.Start
    chr.Get "https://www.grainger.com/category/pumps/rotary-pumps/rotary-gear-pump-heads?categoryIndex=1"
    chr.Wait 1000

    Dim productLinks As Selenium.WebElements
    Dim link As Selenium.WebElement

    ' 直接定位所有data-testid为product-detail-title的a标签
    Set productLinks = chr.FindElementsByCss("a[data-testid='product-detail-title']")
    
    For Each link In productLinks
        Debug.Print link.Attribute("href")
    Next link
    
    chr.Quit
    Set chr = Nothing
End Sub

关键修正说明 #

1. 移除冗余的外层循环，避免重复执行内层遍历逻辑。
2. 删除Exit For语句，确保所有符合条件的链接都会被输出，而不是仅第一个。
3. 通过CSS选择器直接定位目标元素，减少不必要的遍历，提升代码执行效率。
4. 添加了chr.Quit和对象释放语句，避免浏览器进程残留占用系统资源。

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