Excel超链接点击跳转错误页面，求批量检测验证方案

原函数仅通过请求的StatusText判断链接是否正常，无法识别初始请求返回200但实际跳转到错误页面的情况。要解决这个问题，需要从两个维度优化检测逻辑：

• 确认请求最终跳转的目标URL是否为错误页
• 检查响应内容中是否包含错误标识

以下是修改后的VBA函数，可批量检测这类超链接：

Function URLIsValid(url As String) As Boolean
    Dim Request As Object
    Dim finalUrl As String
    Dim responseText As String
    
    On Error GoTo ErrorHandler
    Set Request = CreateObject("WinHttp.WinHttpRequest.5.1")
    
    ' 显式设置跟随重定向（默认已开启，此处确保生效）
    Request.Option(6) = True ' WinHttpRequestOption_EnableRedirects
    
    With Request
        .Open "GET", url, False
        .Send
        ' 获取最终跳转后的URL
        finalUrl = .ResponseURL
        ' 获取响应文本
        responseText = .ResponseText
    End With
    
    ' 判断逻辑：状态码正常、最终URL不是错误页、响应文本不含错误关键词
    If Request.Status = 200 _
        And InStr(finalUrl, "/Error") = 0 _
        And InStr(responseText, "错误") = 0 Then ' 可根据实际错误页内容调整关键词
        URLIsValid = True
    Else
        URLIsValid = False
    End If
    
Cleanup:
    Set Request = Nothing
    Exit Function
    
ErrorHandler:
    URLIsValid = False
    GoTo Cleanup
End Function

优化说明： #

• 重定向跟随：确保捕获最终跳转的目标URL，避免只检测初始请求
• 双重验证：既检查最终URL是否为错误页，又通过响应文本中的关键词进一步确认页面有效性
• 异常处理：任何请求失败的情况直接标记为无效

使用方法和原函数一致，在Excel单元格中输入=URLIsValid(A1)（A1为超链接所在单元格）即可批量检测。

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