Using Delphi, from Excel to JSON, then FireDAC[JAPAN]
February 7, 2017
Author: John D7279
////
class function ExcelToJson(cells: TRect; excel_filename, sheet_name: String):TJSONObject;
It is a code for excel to JSON.
////
class function TExcelToFireDAC.ExcelToJson(cells: TRect; excel_filename, sheet_name: String): TJSONObject;
const
def_excel_application = 'Excel.Application';
var
jres: TJSONObject;
jline: TJSONObject;
ExcelApp…