使用selenium vba从网页查找img标题到excel的vba代码

Sub FindImgTitles()
    ' 引用 Selenium 类库
    Dim driver As New SeleniumWrapper.WebDriver
    
    ' 启动浏览器
    driver.Start "chrome"
    
    ' 打开网页
    driver.Get "https://example.com"
    
    ' 查找所有的 img 元素
    Dim imgElements As SeleniumWrapper.WebElements
    Set imgElements = driver.FindElementsByTag("img")
    
    ' 遍历每个 img 元素并将标题写入 Excel
    Dim imgElement As SeleniumWrapper.WebElement
    Dim row As Integer
    row = 1
    
    For Each imgElement In imgElements
        Dim title As String
        title = imgElement.GetAttribute("title")
        
        ' 将标题写入 Excel
        Worksheets("Sheet1").Cells(row, 1).Value = title
        
        row = row + 1
    Next imgElement
    
    ' 关闭浏览器
    driver.Stop
End Sub