3

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
4

1 に答える 1

2

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が、これらの変更により、コードがコンパイルされ、必要なことを実行できるようになることを願っています。

于 2013-07-12T22:08:38.600 に答える