将Excel中的数据转换成JSON格式

将Excel中的数据转换成JSON格式

第一步:下载jxl.jar包

<dependency> 
<groupId>net.sourceforge.jexcelapi</groupId> 
<artifactId>jxl</artifactId> 
<version>2.6.12</version> 
</dependency>

第二步:代码编写(注意:jxl依赖包只能获取文件名后缀为“.xls"的文件

@GET
@Path("/changeExcel")
public Response changeExcel(){
    Sheet sheet;
    Workbook book;
    Cell cell1, cell2, cell3, cell4, cell5,cell6,cell7,cell8;
    JSONArray array = new JSONArray();
    try {
        //为要读取的excel文件名
        book = Workbook.getWorkbook(new File("D:\\Rule\\rule.xls"));

        //获得第一个工作表对象(ecxel中sheet的编号从0开始,0,1,2,3,....)
        sheet = book.getSheet(0);

        for (int i = 1; i < sheet.getRows(); i++) {
            //获取每一行的单元格
            cell1 = sheet.getCell(0, i);//(列,行)
            cell2 = sheet.getCell(1, i);
            cell3 = sheet.getCell(2, i);
            cell4 = sheet.getCell(3, i);
            cell5 = sheet.getCell(4, i);
            cell6 = sheet.getCell(5, i);
            cell7 = sheet.getCell(6, i);
            cell8 = sheet.getCell(7, i);
            /*if ("".equals(cell1.getContents())) {//如果读取的数据为空
                break;
            }*/
            JSONObject object = new JSONObject();
            object.put("Category",cell1.getContents());
            object.put("No",cell2.getContents());
            object.put("DomainOld",cell3.getContents());
            object.put("DomainNew",cell4.getContents());
            object.put("DomainChangeType",cell5.getContents());
            object.put("ComponentOld",cell6.getContents());
            object.put("ComponentNew",cell7.getContents());
            object.put("ComponentChangeType",cell7.getContents());
            array.put(object);
            //array.add(object);
        }
        System.out.println(array.toString());
        book.close();
    } catch (Exception e) {
        e.printStackTrace();
    }
    System.out.println(array.toString());
    return Response.ok(array.toString()).build();
}
  • 0
    点赞
  • 2
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
格式的方法是什么? 可以使用 VBA 编写代码将 Excel 表格数据转换成 JSON 格式。具体操作步骤见下文: 1. 对 Excel 表格数据进行读取; 2. 将读取的数据转换成 JSON 格式的字符串; 3. 将字符串写到输出文件。 你可以参考以下代码: Sub Excel2JSON() Dim objWorksheet As Worksheet Set objWorksheet = ThisWorkbook.Worksheets("Sheet1") ' Sheet1 为要操作的表格名 Dim intLastRow As Long intLastRow = objWorksheet.Cells(Rows.Count, "A").End(xlUp).Row ' 获取表格最后一行的行号 Dim intLastCol As Long intLastCol = objWorksheet.Cells(1, Columns.Count).End(xlToLeft).Column ' 获取表格最后一列的列号 Dim dictData As Object Set dictData = CreateObject("Scripting.Dictionary") Dim intRow As Long Dim intCol As Long For intRow = 2 To intLastRow ' 从第 2 行开始遍历 Dim dictRowData As Object Set dictRowData = CreateObject("Scripting.Dictionary") For intCol = 1 To intLastCol dictRowData(objWorksheet.Cells(1, intCol).Value) = objWorksheet.Cells(intRow, intCol).Value ' 获取每一行数据 Next intCol dictData(intRow - 1) = dictRowData ' 将每一行数据存入字典 Next intRow Dim objJSON As Object Set objJSON = CreateObject("Scripting.Dictionary") objJSON.Add "data", dictData ' 将数据存入 JSON Dim strOutput As String strOutput = JsonConverter.ConvertToJson(objJSON) ' 将 JSON 转换成字符串 Debug.Print strOutput ' 输出字符串到控制台 End Sub 注意:需要先安装 VBA-JSON 模块才能使用 JsonConverter。可以在 https://github.com/VBA-tools/VBA-JSON 下载最新版。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值