表格怎么导出json文件

在日常工作学习中,我们经常需要将表格数据进行转换，以便在不同的场景下使用，我们需要将表格导出为json格式的文件，那么如何操作呢？我将为大家详细介绍表格导出json文件的方法，希望能对大家有所帮助。

我们需要明确一点,表格文件有多种格式，如Excel、CSV等，这里，我会分别介绍这两种常见格式表格导出json文件的步骤。

Excel表格导出json文件

使用Excel打开需要导出的表格文件。
在Excel中,找到“开发者”工具栏，如果找不到，可以点击“文件”-“选项”-“自定义功能区”，在右侧勾选“开发者”复选框，然后点击“确定”按钮。
在“开发者”工具栏中，点击“Visual Basic for Applications”（VBA）。
在VBA编辑器中,右键点击“VBAProject（你的工作簿名称）”，选择“插入”-“模块”。
在模块窗口中,复制以下代码：

Sub ExcelToJson()
    Dim ws As Worksheet
    Dim rng As Range
    Dim dict As Object
    Dim key As Variant
    Dim jsonStr As String
    Set ws = ActiveSheet
    Set rng = ws.UsedRange
    Set dict = CreateObject("Scripting.Dictionary")
    ' 遍历列标题
    For i = 1 To UBound(rng, 2)
        dict.Add rng(1, i), rng(2, i)
    Next
    ' 将字典转换为JSON字符串
    jsonStr = ConvertToJson(dict)
    ' 保存JSON字符串到文本文件
    SaveJsonToFile jsonStr, "C:\path\to\your\file.json"
End Sub
Function ConvertToJson(dict As Object) As String
    Dim key As Variant
    Dim jsonStr As String
    jsonStr = "{"
    For Each key In dict.Keys
        jsonStr = jsonStr & """" & key & """:""" & dict(key) & ""","
    Next
    ' 去掉最后一个逗号
    jsonStr = Left(jsonStr, Len(jsonStr) - 1)
    jsonStr = jsonStr & "}"
    ConvertToJson = jsonStr
End Function
Sub SaveJsonToFile(jsonStr As String, filePath As String)
    Dim fso As Object
    Dim file As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set file = fso.CreateTextFile(filePath, True)
    file.WriteLine jsonStr
    file.Close
End Sub

修改上述代码中的“C:\path\to\your\file.json”为实际需要保存的json文件路径。
运行ExcelToJson过程,即可将Excel表格导出为json文件。

CSV表格导出json文件

表格怎么导出json文件

使用记事本或其他文本编辑器打开CSV文件。
将以下Python代码保存为.py文件，csv_to_json.py。

import csv
import json
# 读取CSV文件
def csv_to_json(csv_file, json_file):
    data = []
    with open(csv_file, 'r') as f:
        reader = csv.DictReader(f)
        for row in reader:
            data.append(row)
    # 将数据写入JSON文件
    with open(json_file, 'w') as f:
        json.dump(data, f, indent=4)
# 调用函数
csv_to_json('your_csv_file.csv', 'your_json_file.json')