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，但希望這些變化將使代碼編譯，做你所需要的。