如何通过脚本从URL列表批量提取页面版本并填入Excel指定单元格范围

你需要从Excel A列存储的URL批量提取对应页面的版本信息，写入同工作表B列对应单元格，具体实现方案如下：

• 调用IE内核加载目标URL，等待页面完全加载后再提取信息，避免返回空值或报错
• 对不符合URL格式（非http开头）的单元格直接跳过，减少无效请求
• 增加错误捕获机制，遇到无法访问、加载超时的URL时，直接在对应B列标注错误提示，不会中断整体任务
• 提取到的版本信息直接写入当前URL行对应的B列单元格，全部处理完成后自动关闭IE进程释放资源

Sub CheckPageData()
    Dim cell As Range
    Dim IntExp As Object
    ' 关闭屏幕更新提升运行速度
    Application.ScreenUpdating = False
    Set IntExp = CreateObject("InternetExplorer.Application")
    ' 可设置为False后台运行，进一步提升运行速度
    IntExp.Visible = True
    
    For Each cell In Range("A2:A144")
        ' 跳过非http开头的无效链接
        If Left(cell.Value, 4) = "http" Then
            On Error Resume Next ' 开启错误捕获
            ' 跳转目标URL
            IntExp.Navigate cell.Value
            ' 等待页面加载完成
            Do While IntExp.Busy Or IntExp.ReadyState <> 4
                DoEvents
            Loop
            ' 错误处理：加载失败则填异常提示
            If Err.Number <> 0 Then
                cell.Offset(0, 1).Value = "页面加载失败"
                Err.Clear
                GoTo NextUrl ' 跳过当前URL处理下一个
            End If
            On Error GoTo 0
            
            ' ---------------此处修改为你实际的版本信息提取逻辑---------------
            ' 示例1：如果版本信息在id为"version"的元素文本中
            Dim versionText As String
            versionText = IntExp.Document.getElementById("version").innerText
            ' 示例2：如果版本信息在name为"version"的meta标签content属性中
            ' versionText = IntExp.Document.querySelector("meta[name='version']").getAttribute("content")
            ' --------------------------------------------------------------
            
            ' 将提取到的版本信息写入B列对应单元格
            cell.Offset(0, 1).Value = versionText
        End If
NextUrl:
    Next cell
    
    ' 清理资源
    IntExp.Quit
    Set IntExp = Nothing
    Application.ScreenUpdating = True
    MsgBox "所有URL处理完成！"
End Sub

• 代码里的版本信息提取逻辑需要你根据实际目标页面的HTML结构调整，你可以打开任意目标页面按F12打开开发者工具，定位版本信息对应的元素标签、属性后修改对应提取代码即可
• 如果IE内核兼容性不好，也可以换成XMLHTTP请求的方式实现，不需要启动IE进程，运行速度更快，适合大量URL的处理场景
• 如果需要设置超时时间，可以在等待页面加载的循环里增加计时判断，避免单个页面卡住过长时间

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