Получение времени выполнения Ошибка 13: Несоответствие типов (VBA) - PullRequest
Новая
       18

Получение времени выполнения Ошибка 13: Несоответствие типов (VBA)

0 голосов
/ 24 мая 2019

Я работаю над созданием JIRA API Request через Excel Macro.Однако я получаю ошибку runtime error13: несоответствие типов для строки ActiveSheet.Cells (i, 1) = j ("Issues") (I) ("Key").У меня есть часть проверки подлинности, но я не могу получить результаты.

Я попытался изменить типы данных, но это бесполезно. 

Option Explicit

Private Sub CommandButton1_Click()

Call testAuthen

End Sub

Private Function UserPassBase64() As String
Dim objXML       As MSXML2.DOMDocument60
Dim objNode      As MSXML2.IXMLDOMElement
Dim arrData()    As Byte

arrData = StrConv("username:1234567", vbFromUnicode)

Set objXML = New MSXML2.DOMDocument60
Set objNode = objXML.createElement("b64")
objNode.DataType = "bin.base64"
objNode.nodeTypedValue = arrData

UserPassBase64 = objNode.Text

End Function

Sub testAuthen()

 Dim JiraService As New MSXML2.XMLHTTP60
 Dim Json$

 With JiraService
.Open "GET", "https://abc.atlassian.net/rest/api/latest/search?jql=project%20%3D%20ETM%20AND%20createdDate%20%3E%3D%20startOfMonth()%20AND%20issuetype%20%3D%20Task", False
.setRequestHeader "Content-Type", "application/json"
.setRequestHeader "Accept", "application/json"
.setRequestHeader "Authorization", "Basic " & UserPassBase64
.send
Json = .responseText

 Dim j As Object
 Set j = JsonConverter.ParseJson(Json)

 Dim i As Integer
 For i = 1 To 10
     ActiveSheet.Cells(i, 1) = j("issues")(i)("key")
 Next i

 End With
 End Sub

Ожидаемые результаты - отобразить 5 столбцов JIRA(вопрос-ключ, резюме, аналитика, статус обновлено).Однако я не могу выйти за рамки аутентификации.Так как мои запросы выходят за рамки 1000 проблем, я хочу написать строку кода, которая создала бы цикл из 50 результатов с каждым циклом, начиная с последнего выпуска предыдущего цикла.

...