I want to have a button in an excel document (using VBA) which, takes in the data on the sheet and outputs a file (.json). Which I can then use later on within a web page.
I my excel data looks like this:
Note I would like to have more than one instance of data. I want it to generate a json file in the format of:
{
"Excel_test": [
{
"name" : "tesintg1",
"age" : 15
},
{
"name" : "testng2",
"age" : 1
},
{
"name" : "testing3",
"age" : 435
}
]
}
ThanksThe open-source VBA-JSON project helps with this.
Once you have installed it in your workbook's VBA project, you can do something like this:
Sub convertJson()
Dim c As Collection
Dim d As Dictionary 'Add reference to scripting runtime
Dim v As Dictionary
Dim json As String
Set c = New Collection
Set d = New Dictionary
d.Add "ExcelTest", c
For Each cell In Range("A2:A4") 'Adapt as you need
Set v = New Dictionary
v.Add "name", cell.Value
v.Add "age", cell.Offset(0, 1).Value
c.Add v
Next
json = JsonConverter.ConvertToJson(d)
Debug.Print json
End Sub
Outputs:
{"ExcelTest":[{"name":"test1","age":15},{"name":"test2","age":1},{"name":"test3","age":435}]}
