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
Vous devez vous connecter pour publier un commentaire.
JSON peuvent être très sensibles à la façon dont elle est formatée, je voudrais donc assurez-vous que tout ce qui est cité correctement avant de l'envoyer. Je recommande de fractionner
Body
dans une variable distincte et le débogage de la valeur avec http://jsonformatter.curiousconcept.com/ avant de l'envoyer.J'ai rencontré de nombreux problèmes semblables lorsque l'on travaille avec Salesforce API REST et le combiné de mon travail dans une bibliothèque qui peut être utile pour vous: https://github.com/VBA-tools/VBA-Web. L'utilisation de cette bibliothèque, votre exemple serait:
OriginalL'auteur Tim Hall