excel数据转换json

可以使用 VBA 在 Excel 中将数据转换为 JSON 格式，以下是一个简单的示例：

Sub ConvertToJSON()
    Dim jsonStr As String
    Dim LastRow As Long, LastCol As Long
    Dim i As Long, j As Long
    
    '获取数据范围
    LastRow = Cells(Rows.Count, 1).End(xlUp).Row
    LastCol = Cells(1, Columns.Count).End(xlToLeft).Column
    
    '构建 JSON 字符串
    jsonStr = "{""data"":["
    For i = 2 To LastRow
        jsonStr = jsonStr & "{"
        For j = 1 To LastCol
            jsonStr = jsonStr & """" & Cells(1, j) & """:""" & Cells(i, j) & """"
            If j < LastCol Then jsonStr = jsonStr & ","
        Next j
        jsonStr = jsonStr & "}"
        If i < LastRow Then jsonStr = jsonStr & ","
    Next i
    jsonStr = jsonStr & "]}"
    
    '输出 JSON 字符串
    Debug.Print jsonStr
End Sub

此代码将 Excel 中的数据转换为以下格式的 JSON：

{
    "data": [
        {
            "列头1": "数据1",
            "列头2": "数据2",
            "列头3": "数据3"
        },
        {
            "列头1": "数据4",
            "列头2": "数据5",
            "列头3": "数据6"
        }
    ]
}

你可以根据自己的需要修改代码以适应不同的数据格式。