问题原因分析 #

你遇到的情况其实是两种XMLHTTP组件的会话隔离导致的：

• 最初用的Microsoft.XMLHTTP是客户端组件，会共享IE浏览器的Cookie会话，但可能因为SharePoint的身份验证策略更新（比如强化了安全校验）或者IE的安全设置限制，触发了"访问被拒绝"错误。
• 换成MSXML2.ServerXMLHTTP.6.0后，这个组件是服务器端运行的，不会共享你当前浏览器的登录Cookie——哪怕你已经在浏览器里登录了SharePoint，这个组件的会话是完全独立的，所以SharePoint会把它当成未登录用户，返回需要启用Cookie的登录提示（本质是缺少登录会话Cookie，系统判定你未完成身份验证）。

解决方法 #

根据你的使用场景，推荐两种可靠的修改方案：

方案1：改用客户端XMLHTTP组件（共享浏览器会话）

换回客户端类型的XMLHTTP组件，比如MSXML2.XMLHTTP.6.0，它会继承当前用户浏览器的登录Cookie，不需要手动处理身份验证：

修改代码中的对象创建部分：

' 替换原来的CreateObject行
Set HttpReq = CreateObject("MSXML2.XMLHTTP.6.0")

同时可以去掉Open方法里的用户名和密码参数（如果是域账号登录，会自动使用当前用户身份）：

HttpReq.Open "GET", URL, False ' 去掉username和password参数

方案2：配置ServerXMLHTTP使用集成身份验证

如果你必须使用MSXML2.ServerXMLHTTP.6.0，可以开启自动身份验证选项，让组件使用当前Windows用户的域身份访问SharePoint：

修改后的完整代码如下：

Public Sub Download(ByVal URL As String, ByVal FilePath As String, Optional ByVal Overwrite As Boolean = True)
    Dim iOverwrite, oStrm
    If (IsNull(Overwrite) Or Overwrite) Then
        iOverwrite = 2
    Else
        iOverwrite = 1
    End If
    Dim HttpReq As Object
    Set HttpReq = CreateObject("MSXML2.ServerXMLHTTP.6.0")
    
    ' 关键设置：启用自动NTLM/Kerberos身份验证
    HttpReq.setOption 8, 1
    ' 可选：设置浏览器UA，避免被SharePoint识别为非浏览器客户端
    HttpReq.setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/114.0.0.0 Safari/537.36"
    
    ' 去掉手动指定的用户名密码，使用当前Windows身份
    HttpReq.Open "GET", URL, False
    On Error GoTo ErrorHandler
    HttpReq.send
    On Error GoTo 0
    If HttpReq.Status = 200 Then
        Set oStrm = CreateObject("ADODB.Stream")
        oStrm.Open
        oStrm.Type = 1
        oStrm.Write HttpReq.responseBody
        oStrm.SaveToFile FilePath, iOverwrite ' 1 = no overwrite, 2 = overwrite
        oStrm.Close
    Else
        ' 新增：打印状态码，方便排查
        Debug.Print "HTTP Status Code: " & HttpReq.Status & " - " & HttpReq.StatusText
    End If
    Exit Sub
ErrorHandler:
    MsgBox "The file could not be downloaded. Verify that you are logged in SharePoint with word and browser.", vbCritical, "Download error"
    Debug.Print "Download - Error Downloading file will not be downloaded - Error #: '" & Err.Number & "'. Error description: " & Err.description
End Sub

额外注意事项 #

• 确保当前运行VBA的用户账号拥有该SharePoint文件的访问权限；
• 如果SharePoint使用的是Forms身份验证（而非域集成验证），你需要先模拟登录获取有效的Cookie，再通过setRequestHeader "Cookie", "你的Cookie内容"传递给组件；
• 可以打开浏览器的开发者工具（F12），查看访问该主题文件时的请求头，确认身份验证方式后再调整代码。

你遇到的错误提示截图如下：

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