json转excel_json数据转换成excel表格

在工作中遇到 一个需要把json数据转换成excel的功能,于是网上去搜索在线的工具,还蛮多的,

找了一大圈都不是特别满意,很多都是转了之后就是一个排列好的数据,需要自己复制到excel,类似下图这样

569d44f487bdc81e01dd9e52763af44a.png

对于小白用户来说非常不友好,完全摸不着头脑,于是想着这东西也不难就直接自己开发一个工具。可以直接转换后让用户下载成型的excel多好,这样免去了小白用户的烦恼,于是花了1天时间整理材料和开发终于搞定

工具地址:

在线JSON转EXCEL文件_json字符转excel格式_免费json转excel_yzc工具网​www.yzcopen.com

c0319068430afdf4592c12f7a86b7eaf.png
  • 0
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 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、付费专栏及课程。

余额充值