I have the following code that extracts part of JSON file
Code: Select all
Sub Test()
Dim s As String, json As Object
s = CreateObject("Scripting.FileSystemObject").OpenTextFile(ThisWorkbook.Path & "\Sample.json").ReadAll
Set json = JSONConverter.ParseJson(s)("result")
ActiveCell.Value = json("sID")
End Sub
This is the JSON content
Code: Select all
{"result":{"found":true,"id":"12","sID":"\u00d8\u00a7\u00d9\u0084\u00d8\u00ad\u00d9\u0085\u00d8\u00af \u00d9\u0084\u00d9\u0084\u00d9\u0087","hexValue":"d8a7d984d8add985d8af20d984d984d987","hits":1,"sysmsg":[],"credit":{"name":"hed","link":"https:\/\/www.example.net\/db\/"}}}