手动使用Jira Rest API与编程方式有区别吗？

新手到Jira Rest API …我想用VBA程序login到我的本地Jira服务器。 我可以login和手动使用REST api与URL并得到我正在寻找的Json响应，但每次我尝试使用VBA（Excel）来做到这一点，我得到以下错误“{”errorMessages“：[ “您无权查看指定的问题”，“需要login”，“错误”：{}}“。 我正在使用基本授权。 还有什么我需要做的吗？ （我使用下面的代码，我可以从其他职位复制）。 感谢任何帮助。 也许吉拉看到我的代码作为一个不同的用户比我的login？

Sub JiraRestGetCall() Call JiraRest End Sub Private Function UserPassBase64() As String Dim objXML As MSXML2.DOMDocument60 Dim objNode As MSXML2.IXMLDOMElement Dim arrData() As Byte arrData = StrConv("MyUserName:MyPassword", vbFromUnicode) Set objXML = New MSXML2.DOMDocument60 Set objNode = objXML.createElement("b64") objNode.DataType = "bin.base64" objNode.nodeTypedValue = arrData UserPassBase64 = objNode.Text End Function Public Function JiraRest() Dim JiraService As New MSXML2.XMLHTTP60 With JiraService .Open "Get", "http://localhost:8080/rest/api/2/issue/NP-1.json", False .SetRequestHeader "Content-Type", "application/json" .SetRequestHeader "Authorization", "Basic " & UserPassBase64 .Send "" If .Status = "401" Then MsgBox "Not authorized of invalid username/password" Else Set MyRequest = CreateObject("WinHttp.WinHttpRequest.5.1") MyRequest.Open "Get", "http://localhost:8080/rest/api/2/issue/NP-1.json" MyRequest.Send MsgBox MyRequest.ResponseText End If End With End Function