Json code maken en met POST naar een website sturen

[rik111]

Ik heb een string in cell B7 op blad Open1 : {"mType":"OPEN","systemOwnerId":1,"systemId":2,"quantity":5,"autoSync":false,"symbol":"BAR"}
Ik had verwacht dat ik dat eenvoudig met

Dim sURL As String, sHTML As String, sAllPosts As String
    Dim oHttp As Object
    Dim sPostData As String
    Workbooks("Test1.xlsm").Worksheets("Open1").Activate
    sPostData = Range("B7")
    Set oHttp = CreateObject("MSXML2.XMLHTTP")
    sURL = "http://website.com"
    oHttp.Open "POST", sURL, False
    oHttp.setRequestHeader "Content-type", "application/json"
    oHttp.setRequestHeader "Accept", "application/json"
    oHttp.Send (sPostData)
    sHTML = oHttp.ResponseText

naar die website zou kunnen sturen en het antwoord lezen in sHTML,
maar die website verwacht een json formaat, terwijl ik waarschijnlijk gewoon tekst opstuur ...

Weet iemand hoe ik van die tekst een echte json kan maken (in excel of vba)
en met welk commando ik die json dan moet opsturen naar de website ?
alvast bedankt !

 

[alphamax]

blijkbaar wordt je hier, zie http://www.excelforum.com/excel-pro...54-produce-json-code-and-post-to-website.html, al geholpen

 

[rik111]

blijkbaar wordt je hier, zie http://www.excelforum.com/excel-pro...54-produce-json-code-and-post-to-website.html, al geholpen

Probleem is dat niemand de reden vindt waarom het niet werkt, site geeft foutboodschap "Error 406 Not Acceptable" ...

 

[alphamax]

{"mType":"OPEN","systemOwnerId":1,"systemId":2,"quantity":5,"autoSync":false,"symbol":"BAR"} komt op mij nogal slordig over.
Hoeven 1,2 en 5 niet tussen aanhalingstekens?
true en false worden in de ene programmeert taal vertaald naar 1 en 0 en in een andere taal naar -1 ten 0.
Misschien moeten er nog aanhelingstekens rondom?
Maar zonder vermelding van de site met een testaccount is het koffiedik kijken.

 

[rik111]

{"mType":"OPEN","systemOwnerId":1,"systemId":2,"quantity":5,"autoSync":false,"symbol":"BAR"} komt op mij nogal slordig over.
Hoeven 1,2 en 5 niet tussen aanhalingstekens?
true en false worden in de ene programmeert taal vertaald naar 1 en 0 en in een andere taal naar -1 ten 0.
Misschien moeten er nog aanhelingstekens rondom?
Maar zonder vermelding van de site met een testaccount is het koffiedik kijken.

 

[rik111]

Probleem is opgelost dank zij reactie van de eigenaars van de website :
in de doorgestuurde JSON was ik 1x een " vergeten
en de lijn
oHttp.setRequestHeader "Accept", "application/json"
moet weg, of vervangen worden door
oHttp.setRequestHeader "Accept", "*"
dan werkt het feilloos !