ms-access - objHTTP.Open 无法编译

Question

我正在尝试从 MS Access VBA 发送 POST URL 消息。当我尝试运行代码时，它告诉我无法编译以下语句。有谁知道我的语法在哪里不正确？预先感谢您的帮助。

objHTTP.Open "POST", "http://kt1.com/apiv2/Configuration.asmx", False

完整的代码是：

Private Sub newKT_WebService_Click()
    Dim objHTTP As String
    Dim replyTXT As String
    Dim AuthCode As String

    objHTTP = CreateObject("MSXML2.ServerXMLHTTP")

    objHTTP.Open "POST", "http://kt1.com/apiv2/Configuration.asmx", False

    objHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    objHTTP.send ("CallingID=12345&token=%20&domain=%20&userName=testuser&password=testpassword")

    MsgBox objHTTP.responseText

End Sub

Answer 1

objHTTP被宣布为String。但后来代码尝试为其分配一个对象引用。所以声明objHTTP为Object. 并且您必须使用Set关键字分配给对象变量。

Dim objHTTP As Object
Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")
objHTTP.Open "POST", "http://kt1.com/apiv2/Configuration.asmx", False

我不是很熟悉，MSXML2.ServerXMLHTTP但希望这些更改将允许代码编译并执行您需要的操作。