excel转json

可以使用 VBA 编写一个宏来将 Excel 中的数据转换为 JSON 格式。以下是一个简单的例子：

Sub ExcelToJson()
    Dim data As Variant
    Dim json As String
    Dim i As Long, j As Long, numRows As Long, numCols As Long

    ' 获取数据范围
    numRows = ActiveSheet.UsedRange.Rows.Count
    numCols = ActiveSheet.UsedRange.Columns.Count
    
    ' 转换数据为数组
    data = ActiveSheet.Range("A1").Resize(numRows, numCols).Value
    
    ' 构造 JSON 字符串
    json = "["
    For i = 1 To numRows
        json = json & "{"
        For j = 1 To numCols
            json = json & """" & data(1, j) & """" & ":" & """" & data(i, j) & """"
            If j < numCols Then json = json & ","
        Next j
        json = json & "}"
        If i < numRows Then json = json & ","
    Next i
    json = json & "]"
    
    ' 将 JSON 字符串输出到文本框
    MsgBox json
End Sub

这个宏将当前活动工作表中的数据转换为 JSON 数组，并将结果输出到一个消息框中。你可以根据自己的需求修改代码以适应不同的数据结构和输出方式。