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 정말 익숙하지 않다 그러나 희망 이러한 변경 사항은 코드를 컴파일하고 당신이 필요로 할 수 있습니다.