401从Excel VBA进行API调用时

Question

我们有一个内部网站，它也支持使用API​​。当我在浏览器中访问API URI时，我得到JSON response，但如果我从Excel拨打同一个电话，我将获得401, invalid credentials。请在下面找到我的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

注意：提供的网址是示例数据。

非常感谢提前!!!