401使用Excel VBA进行API调用

我们有一个内部网站，也支持API的工作。 当我在浏览器中访问API URI时，我得到了JSON response ，但是如果我从Excel中进行相同的调用，我得到401, invalid credentials 。 请在下面find我的VBA代码。

 Dim Serv2 As New WinHttpRequest Sub Conn() Url = "https://uri/api/nag/" With Serv2 .Open "GET", Url, False .Send MsgBox .Status & " " & .ResponseText End With Set Serv2 = Nothing End Sub 

注意：提供的url是样本数据。

提前谢谢了 ！！！