excel表格数据转换成json数据的小工具

最近常遇到这样的需求:把Excel表格中人员角色等数据,转换成json格式的数据,然后把json数据导入到mongodb数据库中。

在寻找快速解决办法的时候,发现一款C#写的工具,虽然不是C#开发人员,但是很好用,特此记录。

使用方法

1.下载解压到文件夹,尽量不要有中文路径;
如图:
这里写图片描述

2.新建一个Excel文件,Excel表格后缀必须为xlsx。并且填入相关数据;
如图:
这里写图片描述

3.windows命令行打开,执行下面的命令:
这里写图片描述

excel2json –excel F:\order-gy.xlsx –json F:\ex.json –header 1

–excel 后面跟随Excel文件路径;–json 后面跟随转换的json文件之后保存路径;–header 后面为Excel表格中头占据多少行

4.执行结果如图:
这里写图片描述

得到的json文件稍作修改,便可直接导入mongodb数据库,也可做其他处理。

格式的方法是什么? 可以使用 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 下载最新版。
评论 3
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值