如何使用VBA批量验证URL及页面内容并将结果写入B列单元格

功能说明 #

• 读取A列A2起始位置的URL列表，自动访问对应页面，校验指定内容是否存在
• 校验结果自动写入URL对应行的B列单元格，适配你要求的B2起始输出规则
• 支持自定义校验文本、结果提示内容，可灵活适配不同业务场景

优化后带中文注释的可直接使用代码 #

Sub 批量校验页面内容()
 
    Dim cell As Range
    Dim IE浏览器 As Object
    
    ' 创建IE浏览器实例
    Set IE浏览器 = CreateObject("InternetExplorer.Application")
    ' 可修改为False实现后台静默运行，不弹出浏览器窗口
    IE浏览器.Visible = True
 
    ' 遍历A列URL范围，可根据实际URL数量修改A2:A10为你的实际数据区域
    For Each cell In Range("A2:A10")
        
        ' 过滤非http开头的无效内容，仅处理合法URL
        If Left(cell.Value, 4) = "http" Then
            
            ' 访问目标URL
            IE浏览器.Navigate cell.Text
            
            ' 等待页面完全加载后再执行校验，避免内容未加载完成导致校验错误
            Do Until IE浏览器.ReadyState = 4 
            Loop

            ' 替换双引号内的内容为你实际需要校验的目标文本
            If InStr(IE浏览器.Document.body.innerText, _
               "替换为你要搜索验证的目标文本") > 0 Then
               
               ' 匹配到目标文本后输出自定义提示，可自行修改内容
               cell.Offset(, 1).Value = "自定义校验成功提示内容"
 
            Else
               ' 未匹配到目标文本时校验是否为404页面，可替换为对应站点的404提示文本
               If InStr(IE浏览器.Document.body.innerText, _
               "你请求的页面不存在") > 0 Then
                  cell.Offset(, 1).Value = "你请求的页面不存在"
               End If
               ' 如有其他校验逻辑，可在此处新增分支补充
            End If
        End If
    Next cell
 
    ' 关闭浏览器释放系统资源
    IE浏览器.Quit
    Set IE浏览器 = Nothing 
End Sub

使用注意事项 #

• 使用前需要把代码中占位的校验文本、提示文本替换为你实际业务需要的内容
• 如果你的URL区域不是A2到A10，修改Range("A2:A10")对应的单元格范围即可
• 代码依赖IE浏览器运行，若你的环境IE已停用，可将IE对象替换为XMLHTTP请求实现无UI后台校验，运行效率更高

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