vba - 使用 VBA-Web 从 Excel 访问 JIRA API

Question

我正在尝试JIRA API从 Excel 访问。使用该MSXML2.XMLHTTP.6.0对象可以正常工作，但使用WinHttp.WinHttpRequest.5.1fromVBA-Web WebClient不能。

这工作正常：

Function getJiraSessionId()

Set JiraAuth = CreateObject("MSXML2.XMLHTTP.6.0")

With JiraAuth
    .Open "POST", "https://<our JIRA server>/tracker/rest/auth/1/session", False
    .SetRequestHeader "Content-Type", "application/json"
    .SetRequestHeader "Accept", "application/json"
    .SetRequestHeader "User-Agent", "Jira-Automation"
    .Send " {""username"" : ""...."", ""password"" : ""....""} "
    sErg = .ResponseText
End With
...    
End Function

这不会：

Function JiraLogin()

    Dim JiraClient As New WebClient
    JiraClient.BaseUrl = "https://<our JIRA server>/tracker/"
    JiraClient.Insecure = True
    JiraClient.TimeoutMs = 50000

    Dim Abruf As New WebRequest
    Abruf.Resource = "rest/auth/1/session"
    Abruf.Method = WebMethod.HttpPost
    Abruf.Format = WebFormat.Json
    Abruf.UserAgent = "Jira-Automation"


    Set Body = New Dictionary
    Body.Add "username", "...."
    Body.Add "password", "...."
    Set Abruf.Body = Body

    Dim Response As WebResponse
    Set Response = JiraClient.Execute(Abruf)
    ...
End Function

错误信息是：

错误-WebClient.Execute：-2147210493（11011 / 80042b03），执行期间发生错误-2147012739（80072f7d）：我支持des sicheren Channels ist ein Fehler aufgetreten

我想使用VBA-Web它是因为它的工具很棒，但我不能。知道有什么问题吗？谢谢，曼弗雷德。

标签： vbaexcelrestjira-rest-api