objHTTP.Open не удалось скомпилировать

Question

Я пытаюсь отправить сообщение POST-URL из MS Access VBA. Когда я пытаюсь запустить код, он говорит мне, что не может скомпилировать следующий оператор. Кто-нибудь знает, где я ошибаюсь в своем синтаксисе? Заранее благодарю вас за помощь.

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, но, надеюсь, эти изменения позволят код компилировать и делать то, что вам нужно.