无效语法 VBA

Question

我正在尝试创建一个执行 API 请求的 VBA 脚本。每次我运行代码时都会显示无效语法。

我的代码是这样的：

With CreateObject("MSXML2.XMLHTTP")
.Open "POST", "http://example.com" , False
.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
.send "grant_type=value&client_id=value&client_secret=value&username=value&password=value&response_type=token"
End With

错误指向第 4 行。 如果我在邮递员中执行这个请求，它是这样的：

Answer 1

对于我们使用过的所有类似代码，它都与 v6:

CreateObject("MSXML2.XMLHTTP60")

尽管我们始终使用早期绑定并设置了对以下内容的引用：Microsoft XML，v6.0