Sub ExCelToWebFile() Dim dSet As New cDataSet openNewHtml ActiveWorkbook.Path & "\yourfile.json", _ dSet.populateData( _ Range("jSon2!$a$1"), , , , , , True _ ).jObject.serialize End Sub
bruce mcpherson is licensed under a Creative Commons Attribution-ShareAlike 4.0 International License. Based on a work at http://www.mcpher.com. Permissions beyond the scope of this license may be available at code use guidelines