Post JSON web en vba excel

Je veux POSTER quelques JSON avec VBA:

Dim sURL As String, sHTML As String, sAllPosts As String
Dim oHttp As Object
Dim blWSExists As Boolean
Set oHttp = CreateObject("MSXML2.XMLHTTP")
sURL = "some webste.com"
oHttp.Open "POST", sURL, False
oHttp.setRequestHeader "Content-type", "application/json"
oHttp.setRequestHeader "Accept", "application/json"
oHttp.Send (mType = OPEN_SYSTEM_TRADE & systemOwnerId = 10)
sHTML = oHttp.ResponseText
Worksheets("Open1").Range("A1").Value = sHTML

Le format prédéfini pour être envoyé sur le site d'une description dans json comme suit :
{"mType":"OPEN_SYSTEM_TRADE","systemOwnerId":10,"systemId":16, etc}

Mon oHttp.Send ligne doit être mal, dès que j'ai ajouter d'autres arguments, j'obtiens une erreur du compilateur
Je publie ce (pas de travail) code de cause c'est le meilleur que j'ai pu trouver sur le web jusqu'à présent (tous les autres me coincé sur d'autres choses que je ne comprends pas ...

J'ai aussi essayé de mettre le code json dans une cellule, mettre la cellule en une chaîne de caractères, et l'envoyer à la chaîne comme ceci : oHttp.Send (chaîne de caractères), ce qui résulte en une Error 406 Not Acceptable réponse à partir du site web.

OriginalL'auteur Veronique | 2014-01-09