Как исправить "{" error: "invalid_request", "error_description": "Тип запроса не был указан в запросе"} "в vba? - PullRequest
Новая
       40

Как исправить "{" error: "invalid_request", "error_description": "Тип запроса не был указан в запросе"} "в vba?

0 голосов
/ 17 июня 2019

Я хочу подключить лист Excel с vba через API к онлайн-анкете. Что я получу, если анкета будет заполнена тестируемым человеком.

Я знаю немного Python и Matlab, но это мой первый проект VBA. Но сейчас я получаю некоторые ошибки для типа гранта. Перепробовал много форумов.

{"error:" invalid_request "," error_description ":" Тип запроса не указан в запросе "}

Я использую версию Excel 2016 "для дома и бизнеса" от Microsoft 

Sub API_test()

' API_test Makro

 Dim winHttpReq As Object

    Dim Username As String
    Dim Password As String
    Dim PasswordnUsername As String
    Dim argumentString As String

    Username = "xxxx" 'client_id
    Password = "xxxx" 'client_secret



    PasswordnUsername = Password & ":" & Username

    argumentString = "?grant_type=client_credentials&client_id=Username&client_secret=Password"

    'Set winHttpReq = CreateObject("Microsoft.XMLHTTP")
    Set winHttpReq = CreateObject("WinHttp.WinHttpRequest.5.1")


    winHttpReq.Open "POST", url, False

    winHttpReq.SetRequestHeader "client_id", Username
    winHttpReq.SetRequestHeader "client_secret", Password
    winHttpReq.SetRequestHeader "response_type", "code"
    winHttpReq.SetRequestHeader "grant_type", "client_credentials"


    winHttpReq.Send (argumentString) '"grant_type=client_credentials"

    MsgBox winHttpReq.StatusText
    MsgBox winHttpReq.responseText

    GetData = winHttpReq.responseText


    results = "HallO!"




    MsgBox results
    End Sub

Я хочу получить успешный ответ от winHttpReq

Заранее спасибо

...