Vba 错误：不支持的授权类型

我正在尝试使用MS Excel VBA连接到API。登录所需的参数包括授权类型、用户名和密码

我已经想出了下面的代码，但是我得到了错误：

{“错误”：“不支持的授权类型”}

谁能告诉我哪里做错了

Sub test()

Dim objHttp As Object
Dim json As String
Dim user, password As String

user = "user1"
password = "password1"
json = "{""grant_type"":""password"",""username"":""" & user & """,""password"":""" & password & """}"

MsgBox json

Dim result As String

Set objHttp = CreateObject("MSXML2.XMLHTTP")
url = "http://dummywebsite.com"
objHttp.Open "POST", url, False

objHttp.SetRequestHeader "Content-type", "application/json"
objHttp.Send (json)
result = objHttp.ResponseText

MsgBox result

End Sub

代码实际上正在工作，这是由于使用另一个用户帐户测试后的用户权限

试试看：

标题： -内容类型：application/x-www-form-urlencoded -接受字符集：UTF-8 -授权：[您的授权代码]

正文：

---

username=[username]&password=[password]&grant\u type=password

您是否定义了“grant\u type”？您的意思是在我的代码或后端中？我已经直接在我的代码中输入了授权类型。我刚刚看到定义了用户和密码，但没有授权类型，如果我误解了，很抱歉。授权类型是密码，我将它放在代码中。显然，代码正在运行，我借用了另一个用户帐户来尝试。将就用户权限与管理员联系。谢谢你@Solar Mike