MSXML2.XMLHTTP送信メソッドは事前バインディングで機能しますが、遅延バインディングで失敗します

Question

以下のコードは機能します。しかし、行 Dim objRequest As MSXML2.XMLHTTP をコメントアウトし、行 Dim objRequest As Object のコメントを外すと、エラーメッセージで失敗します：

  

パラメーターが正しくありません

なぜ、どうすればそれができますか？

Public Function GetSessionId(strApiId, strUserName, strPassword) As String

    Dim strPostData As String

    Dim objRequest As MSXML2.XMLHTTP
    'Dim objRequest As Object '

    strPostData = "api_id=" & strApiId & "&user=" & strUserName & "&password=" & strPassword

    Set objRequest = New MSXML2.XMLHTTP
    With objRequest
        .Open "POST", "https://api.clickatell.com/http/auth", False
        .setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
        .send strPostData
        GetSessionId = .responseText
    End With

End Function

---

Corey、はい、MSXMLタイプライブラリへの参照なしでコードが機能するためには、そうする必要があることを知っています。ここでは問題ではありません。

を使用するかどうかに関係なく、 Dim objRequest As Object を使用するとコードが失敗する

Set objRequest = NEW MSXML2.XMLHTTP 参照、または

Set objRequest = CreateObject（＆quot; MSXML2.XMLHTTP＆quot;）参照なし。

Answer 1

何らかの理由で、これは機能します：

Dim strPostData As String
Dim objRequest As Object

strPostData = "api_id=" & strApiId & "&user=" & strUserName & "&password=" & strPassword

Set objRequest = New MSXML2.XMLHTTP
With objRequest
  .Open "POST", "https://api.clickatell.com/http/auth", False
  .setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
  .send (strPostData)
   GetSessionId = .responseText
End With

文字列の連結によってURLエンコードされた strPostData を構築する代わりに、URLエンコード関数を使用することを強くお勧めします：

strPostData = "api_id=" & URLEncode(strApiId) & _
              "&user=" & URLEncode(strUserName) & _
              "&password=" & URLEncode(strPassword)

VBAの URLEncode（）関数の選択肢は、次のスレッドにあります： Excel VBAで文字列をURLエンコードするにはどうすればよいですか

Answer 2

Dim objRequest As Objectを使用する場合は、コーディングする必要があります：
    Set objRequest = CreateObject（＆quot; MSXML2.XMLHTTP＆quot;）

Answer 3

これは上記のトマレクのコードとほぼ同じであることがわかります（すべてあなたの功績です！） ...だからこれが他の誰かの助けになる場合：

Sub Button1_Click2()

Dim objXMLSendDoc As Object
Set objXMLSendDoc = New MSXML2.DOMDocument
objXMLSendDoc.async = False
Dim myxml As String
myxml = "<?xml version='1.0'?><Request>Do Something</Request>"
If Not objXMLSendDoc.LoadXML(myxml) Then
    Err.Raise objXMLSendDoc.parseError.ErrorCode, , objXMLSendDoc.parseError.reason
End If

Dim objRequest As MSXML2.XMLHTTP
Set objRequest = New MSXML2.XMLHTTP
With objRequest
    .Open "POST", "http://localhost/SISADraftCalcs/Test2.php", False
    .setRequestHeader "Content-Type", "application/xml;charset=UTF-16"
    .setRequestHeader "Cache-Control", "no-cache"
    .send objXMLSendDoc
End With

Dim objXMLDoc As MSXML2.DOMDocument
Set objXMLDoc = objRequest.responseXML
If objXMLDoc.XML = "" Then
    objXMLDoc.LoadXML objRequest.responseText
    If objXMLDoc.parseError.ErrorCode <> 0 Then
        MsgBox objXMLDoc.parseError.reason
    End If
End If

Dim rootNode As IXMLDOMElement
Set rootNode = objXMLDoc.DocumentElement

MsgBox rootNode.SelectNodes("text").Item(0).text

End Sub