Excel to Json and output to file

Let’s say you want to do Excel JSON conversion and output the result to a file. Here’s how
Sub ExCelToWebFile()
    Dim dSet As New cDataSet
    
    openNewHtml ActiveWorkbook.Path & "\yourfile.json", _
        dSet.populateData( _
        Range("jSon2!$a$1"), , , , , , True _
        ).jObject.serialize

End Sub

What’s happening?

  • a data table, delimited by blank row and column, is loaded into a cDataset
  • The jObject property of that cDataSet is converted to jSon with the serialize method
  • openNewHtml writes the jSon result to a file in the same directory as the workbook
For more like this see One Liners. Why not join our forum,follow the blog or follow me on twitter to ensure you get updates when they are available.