Hiii. After running this coding, I still did not get authorization from Jira . Any solution to fix this problem?
In addition, how to exceed the maxResult 50 by displaying the total issues into excel sheet?
Public Function UserPassBase64() As String
Dim objXML As Variant
Dim objNode As MSXML2.IXMLDOMElement
Dim arrData() As Byte
Dim UserNameP As String
UserNameP = "userName:password"
arrData = StrConv(UserNameP, vbFromUnicode)
Set objXML = CreateObject("MSXML2.DOMDocument")
Set objNode = objXML.createElement("b64")
objNode.DataType = "bin.base64"
objNode.nodeTypedValue = arrData
UserPassBase64 = objNode.text
Public Sub testAuthen()
Set ws = ThisWorkbook
Dim userName, password As String
userName = ActiveSheet.OLEObjects("txtUserNameIn").Object.text
password = ActiveSheet.OLEObjects("txtPasswordIn").Object.text
Dim JiraService As New MSXML2.XMLHTTP60
UserNameP = UserPassBase64
.Open "GET", query
.setRequestHeader "Content-Type", "application/json"
.setRequestHeader "Accept", "application/json"
.setRequestHeader "Authorization", "Basic " & UserNameP
If .Status = "401" Then
MsgBox "Not authorized or invalid username/password"
MsgBox "Correct credential!!"
Set ws = ThisWorkbook
Dim Json As Object
Dim j As Integer
'Dim i As Integer
Set Json = JsonConverter.ParseJson(.responseText)
j = 2
For j = j To 50
ActiveSheet.Cells(j, 1) = Json("issues")(j)("fields")("customfield_10400")
ActiveSheet.Cells(j, 2) = Json("issues")(j)("key")
The Username field must be the e-mail address that is used to login to Jira, not the username.
For the maxResult, it is determined by what your personal setting is. Click on your icon in the top right hand corner and choose Profile, then scroll down to the Preferences section. You'll see below that I have my Page size set to 200, which allows me to get 200 items at a time. click on the Edit icon (pen) to change yours
This community is celebrating its one-year anniversary and Atlassian co-founder Mike Cannon-Brookes has all the feels.Read more
Hey Atlassian Community! Today we are launching a bunch of customer stories about the amazing work teams, like Dropbox and Twilio, are doing with Jira. You can check out the stories here. The thi...
Connect with like-minded Atlassian users at free events near you!Find a group
Connect with like-minded Atlassian users at free events near you!
Unfortunately there are no AUG chapters near you at the moment.Start an AUG
You're one step closer to meeting fellow Atlassian users at your local meet up. Learn more about AUGs