【工具】Excel 表格数据转换成Json格式的实用工具 excel2json

介绍

excel2json工具是用C# 语言开发的能够把 Excel 表转换成 json 的工具

主要功能:

  • 支持读取 Excel 97-2003的 .xls格式和2007的 .xlsx格式;

  • 支持多个表单导出;

  • 把Excel表单转换成Json对象,并保存到一个文本文件中。支持将表中内容转换成Array,或者以第一列为ID的字典对象;

支持GUI模式和命令行模式

GUI模式方便预览;而命令行式,方便将多个表格转换工作写成一个批处理文件(.bat或者.sh),一键处理几十个表格。例如,使用下面这个.bat批处理文件,可以一次性转换”.\excel”目录下所有的.xlsx文件到”.\json”目录:

 @SET EXCEL_FOLDER=.\excel

 @SET JSON_FOLDER=.\json

 @SET EXE=.\excel2json.exe

 @ECHO Converting excel files in folder %EXCEL_FOLDER% ...

 for /f "delims=" %%i in ('dir /b /a-d /s %EXCEL_FOLDER%\*.xlsx') do (

     @echo   processing %%~nxi

     @CALL %EXE% --excel %EXCEL_FOLDER%\%%~nxi --json %JSON_FOLDER%\%%~ni.json --header 3

 )


编辑搜图

请点击输入图片描述

命令行参数

  • -e, –excel Required. 输入的Excel文件路径.

  • -j, –json 指定输出的json文件路径.

  • -h, –header (Default: 3)表格中有几行是表头.

  • -c, –encoding (Default: utf8-nobom) 指定编码的名称.

  • -l, –lowcase (Default: false) 自动把字段名称转换成小写格式.

  • -a 序列化成数组

  • -d, –date:指定日期格式化字符串,例如:dd / MM / yyy hh: mm:ss

例如:excel2json –excel test.xlsx –json test.json –header 3 –array true,其中的输入和输出文件,都在当前目录下;

Excel表单格式约定

编辑搜图

请点击输入图片描述

  • 第一行固定作为列名(用来构造json字段名称);

  • 第一列固定作为对象的ID;

  • 读取Excel Workbook中的第一个sheet;

  • 对于SQL导出模式:第二行固定为字段类型

  • 使用表头生成C#数据定义代码

在Mac、Linux上运行

这个小工具使用C#编写,编译出来的.exe通过Mono即可在Mac或者Linux上运行。

  • Mono下载地址:http://www.mono-project.com/download

  • 运行GUI模式:mono ./excel2json.exe

  • 运行命令行模式:mono ./excel2json.exe 命令行参数

获取方式

在GitHub上搜索excel2json ,就可以去到excel2json的仓库中下载软件。如果你对下载使用软件有什么问题,可以给我留言哈,也可以关注微信公众号“Github开源工具”,回复excel2json然后阅读原文,获得对应的下载地址,更多有趣开源软件信息欢迎关注公众号。

有些工具或者工具的有些版本小编也没有一一试过,一般的功能应该都是支持的,不过也有意外原因导致工具使用的效果不是很好,希望大家也不要见怪,有问题可以评论私聊我,能解决的都会尽力帮大家解决的。

你点的每个赞,我都当成喜欢

  • 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、付费专栏及课程。

余额充值