请求将基于Internet Explorer的VBA自动化脚本转换为Edge浏览器适配版本

首先得提一句，IE已经被微软正式弃用啦，换成Edge的话我们可以用Selenium Basic来实现自动化操作，这也是目前适配Edge浏览器自动化的主流方案之一。下面是具体的步骤和转换后的代码：

准备工作 #

• 先安装Selenium Basic：这是一个能让VBA调用浏览器自动化的工具，安装完成后记得重启Excel
• 下载对应版本的Edge WebDriver：要和你电脑上Edge浏览器的版本完全匹配，下载后把它放到Selenium Basic的安装目录（一般是C:\Program Files\SeleniumBasic）或者系统的环境变量PATH里，这样VBA才能找到它

转换后的VBA代码 #

Sub CHECK_STATUS_EDGE()
    Dim cell As Range
    Dim edgeDriver As Object
    Dim wait As Object
    
    ' 初始化Edge驱动和等待对象
    Set edgeDriver = CreateObject("Selenium.EdgeDriver")
    Set wait = CreateObject("Selenium.WebDriverWait")
    
    ' 设置等待超时（这里设为10秒，可根据需要调整）
    wait.Timeout = 10
    edgeDriver.Visible = False ' 设为True可以看到Edge窗口运行过程
    
    On Error Resume Next ' 捕获可能的错误，避免单个URL失败导致整个脚本中断
    For Each cell In Range("A2:A20000")
        If Left(cell.Value, 4) = "http" Then
            ' 导航到目标URL
            edgeDriver.Navigate cell.Text
            
            ' 等待页面加载完成，等待document.readyState变为complete
            wait.Until (Function(d) d.ExecuteScript("return document.readyState") = "complete")
            
            ' 尝试获取类名为box-content的元素文本
            Dim targetElement As Object
            Set targetElement = Nothing
            On Error Resume Next
            Set targetElement = edgeDriver.FindElementByCss(".box-content")
            On Error GoTo 0
            
            If Not targetElement Is Nothing Then
                cell.Offset(, 1).Value = targetElement.Text
            Else
                cell.Offset(, 1).Value = "未找到目标元素"
            End If
        End If
    Next cell
    On Error GoTo 0
    
    ' 关闭Edge驱动并释放对象
    edgeDriver.Quit
    Set edgeDriver = Nothing
    Set wait = Nothing
    
    MsgBox "URL检查完成！", vbInformation
End Sub

关键变化说明 #

• 替换了原来的IE COM对象，改用Selenium的EdgeDriver来控制Edge浏览器
• 用WebDriverWait来等待页面加载和元素出现，比原来的Do While IntExp.Busy更稳定可靠，避免因页面加载慢导致的脚本卡住
• 添加了错误处理逻辑，单个URL加载失败或者找不到元素时，脚本不会中断，还会给对应的单元格标记提示
• 用FindElementByCss来定位元素，比原脚本的getElementsByClassName更符合现代自动化的写法

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