VBA中Application.FollowHyperlink如何发送User-Agent等HTTP请求头

报错原因 #

你遇到的运行时错误'8'，核心原因是HeaderInfo参数要求传入的所有HTTP请求头必须以vbCrLf（VBA内置的回车换行常量）结尾，即使仅传递单个User-Agent头也需要遵守这个规则，否则Office会无法正确解析请求头结构，抛出请求错误。

正确写法示例 #

' 已引用Office类型库的写法
Application.FollowHyperlink _
    Address:="https://www.example.com", _
    SubAddress:="", _
    NewWindow:=False, _
    AddHistory:=False, _
    ExtraInfo:="", _
    Method:=msoMethodGet, _
    HeaderInfo:="User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/88.0.4324.182 Safari/537.36" & vbCrLf

' 未引用Office类型库时，直接用数值0代替msoMethodGet即可
Application.FollowHyperlink "https://www.example.com", "", False, False, "", 0, _
  "User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/88.0.4324.182 Safari/537.36" & vbCrLf

多请求头写法 #

如果目标网站还需要校验Referer、Accept等其他请求头，可以按以下格式拼接，每个请求头末尾都要加vbCrLf：

Dim headerStr As String
' 拼接所有需要的请求头，每个末尾加vbCrLf
headerStr = "User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/88.0.4324.182 Safari/537.36" & vbCrLf
headerStr = headerStr & "Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8" & vbCrLf
headerStr = headerStr & "Referer: https://www.example.com" & vbCrLf

Application.FollowHyperlink _
    Address:="https://www.example.com", _
    Method:=0, _
    HeaderInfo:=headerStr

额外注意事项 #

Application.FollowHyperlink的请求逻辑是：Office内置HTTP客户端先携带你配置的请求头发起首次校验请求，校验通过后才会将链接传递给系统默认浏览器打开。如果目标网站会校验后续浏览器请求的UA，你需要手动调整默认浏览器的UA标识，这部分逻辑不属于VBA可控范围。

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