Jira Rest API 新手...我想使用 VBA 程序登录本地 Jira 服务器。我可以通过 URL 手动登录并使用 REST API 并获取我正在寻找的 JSON 响应,但每次我尝试使用 VBA (Excel) 执行此操作时,都会收到以下错误
{"errorMessages":["You do not have the permission to see the specified issue.","Login Required"],"errors":{}}
我正在使用基本授权。我还需要做些什么吗? (我使用下面的代码,我可以从其他帖子复制该代码)。也许 Jira 将我的代码视为与我的登录名不同的用户?
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
最佳答案
我个人使用VBA-Web连接到 Jira。你的代码看起来还不错。如果您的基本加密工作正常,我看不出错误可能来自何处。
关于json - 手动使用 Jira Rest API 与以编程方式使用 Jira Rest API 有区别吗?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/39028678/