excel表格数据转换成json

格式的方法是什么？

可以使用 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 下载最新版。