如何使用凭据通过VBA代码/宏连接SharePoint站点？及System.UnauthorizedAccessException报错排查求助

看起来你在通过VBA调用SharePoint REST API时碰到了System.UnauthorizedAccessException，我帮你梳理几个常见的排查点和解决方案：

1. 先修正API端点的语法错误 #

你的URL里getByTitle(LIB_NAME)的写法有问题，SharePoint REST API要求列表名称必须用单引号包裹，正确的格式是getByTitle('LIB_NAME')。这个语法错误会导致SharePoint无法识别目标列表，可能返回看似未授权的错误。修正后的URL应该是：

Const sUrl As String = "https://MY_SITE/_api/Web/Lists/getByTitle('LIB_NAME')/files"

2. 验证认证方式是否匹配你的SharePoint站点 #

WinHttpRequest的SetCredentials方法主要支持基本认证或NTLM认证，但现在很多现代SharePoint站点（尤其是Online版本）已经禁用了基本认证，改用OAuth2（Modern Auth）。你可以先做以下检查：

• 直接在浏览器中访问修正后的API URL，用相同的账号登录，如果能正常返回JSON数据，说明权限没问题，但认证方式不匹配；
• 如果你的站点是SharePoint Online，建议改用OAuth2获取访问令牌，然后在请求头中携带令牌：

  ' 假设你已经通过MSAL/ADAL获取到了accessToken
  .setRequestHeader "Authorization", "Bearer " & accessToken
  

• 如果是本地SharePoint服务器（支持NTLM），可以尝试调整认证范围参数，比如把HTTPREQUEST_SETCREDENTIALS_FOR_SERVER换成HTTPREQUEST_SETCREDENTIALS_FOR_PROXY，或者检查本地域账号的权限。

3. 补充必要的请求头 #

SharePoint REST API对请求头有一定要求，缺少Accept头可能导致服务器返回异常。建议添加以下请求头：

.setRequestHeader "Accept", "application/json;odata=verbose"

另外，有些服务器会拒绝非浏览器标识的请求，可以设置User-Agent模拟浏览器：

.Option(HTTPREQUEST_OPTION_USERAGENT) = "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/114.0.0.0 Safari/537.36"

4. 确认账号权限 #

确保你使用的USERNAME和PASSWORD对应的账号，对目标SharePoint列表有读取权限。最简单的验证方式就是用该账号在浏览器中打开列表页面，确认能正常查看文件。

修正后的完整示例代码 #

Const sUrl As String = "https://MY_SITE/_api/Web/Lists/getByTitle('LIB_NAME')/files"
Dim oRequest As WinHttp.WinHttpRequest
Dim sResult As String

Set oRequest = New WinHttp.WinHttpRequest
With oRequest
    .Open "GET", sUrl, True
    ' 补充必要的请求头
    .setRequestHeader "Accept", "application/json;odata=verbose"
    .setRequestHeader "Content-Type", "application/json"
    ' 设置浏览器UA
    .Option(HTTPREQUEST_OPTION_USERAGENT) = "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/114.0.0.0 Safari/537.36"
    ' 设置凭据（适用于支持基本/NTLM认证的站点）
    .SetCredentials USERNAME, PASSWORD, HTTPREQUEST_SETCREDENTIALS_FOR_SERVER
    .send
    .waitForResponse
    
    ' 检查请求状态码，方便排查问题
    If .Status = 200 Then
        sResult = .responseText
        MsgBox sResult
    Else
        MsgBox "请求失败，状态码: " & .Status & vbCrLf & "响应信息: " & .responseText
    End If
End With
Set oRequest = Nothing

如果尝试以上方法后仍然报错，建议先通过浏览器访问API URL，确认返回的具体错误信息，这会帮助你更精准地定位问题。

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