如何通过Excel VBA宏调用WinHTTP验证在线PDF文档是否存在

你的代码始终返回False和是否校验PDF无关，核心是代码逻辑和调用方式存在缺陷，WinHttp完全支持HEAD方法，可按以下方式调整：

原有代码问题点 #

• 公式调用时URL未加双引号，属于文本参数未按字符串格式传入，函数无法拿到正确的链接地址
• 原代码使用GET方法会拉取整个PDF文件内容，大文件场景下极易触发超时导致返回False，且效率极低
• 仅通过StatusText = "OK"判断结果鲁棒性极差，部分服务器返回的状态文本存在自定义配置，会导致误判
• 未处理重定向、HTTPS证书校验、超时等常见场景，错误处理逻辑直接吞掉所有异常，无法定位问题

修正后完整代码 #

Function URLExists(url As String) As Boolean
    Dim Request As Object
    On Error GoTo ErrHandler
    
    Set Request = CreateObject("WinHttp.WinHttpRequest.5.1")
    
    With Request
        ' 设置10秒超时，避免请求卡死Excel
        .SetTimeouts 10000, 10000, 10000, 10000
        ' 使用HEAD方法，仅请求响应头，不下载PDF实体内容
        .Open "HEAD", url, False
        ' 开启自动重定向，最多跟随10次跳转
        .Option(6) = True
        .Option(7) = 10
        ' 忽略HTTPS自签名证书错误，适配非常规证书站点
        .Option(4) = &H3300
        ' 可按需设置UA，避免被站点反爬拦截
        ' .Option(2) = "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/125.0.0.0 Safari/537.36"
        .Send
        
        ' HTTP状态码200-299区间均代表资源可正常访问
        ' 如需严格校验资源为PDF，可追加判断Content-Type头
        If .Status >= 200 And .Status < 300 Then
            ' 严格PDF校验可放开下方注释
            ' If InStr(1, .GetResponseHeader("Content-Type"), "application/pdf", vbTextCompare) > 0 Then
                URLExists = True
            ' End If
        Else
            URLExists = False
        End If
    End With

Cleanup:
    Set Request = Nothing
    Exit Function
ErrHandler:
    URLExists = False
    Resume Cleanup
End Function

正确的公式调用方式 #

URL属于文本参数，必须用双引号包裹后传入函数，正确写法：

=URLExists("http://www.whatever.bleh/thepdfname.pdf")

特殊场景适配 #

如果目标站点拦截HEAD请求，可将.Open方法的第一个参数从"HEAD"改为"GET"，同时放开代码中UA设置的注释，模拟普通浏览器请求即可正常返回结果。

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