Vba post request json

'https://github.com/VBA-tools/VBA-Web. 
'Using this library, it would look like:

Sub sendPostRequest()
  Dim Body As New Dictionary
  Dim Client As New WebClient
  Dim Response As WebResponse

  Body.Add "mType", "OPEN_SYSTEM_TRADE"
  Body.Add "systemOwnerId", 10
  'Equal to Body = "{""mType"":""OPEN_SYSTEM_TRADE"",""systemOwnerId"":10}"

  Set Response = Client.PostJson("somewebsite.com", Body)

  Worksheets("Sheet1").Range("A1").Value = Response.Content
End Sub

Source: stackoverflow.com

Similar codes

31 votes310 views1 answer
Excel vba function to convert column number to letter
VBA
3 votes255 views1 answer
Excel vba get the workbook full filename with path
VBA
0 vote253 views1 answer
Vba find last column in a row with data
VBA
0 vote248 views1 answer
Vbscript for loop
VBA
0 vote245 views1 answer
Vba min
VBA
25 votes326 views3 answers
String to date vb
VBA
0 vote251 views2 answers
Excel vba copy paste after last row
VBA
0 vote249 views1 answer
Vba add shape oval
VBA
4 votes246 views2 answers
Vba create folder if not exist
VBA
1 vote269 views1 answer
Excel vba get column number from column name
VBA