excel通过宏来导出json数据

Sub 导出JSON()

    Dim s As String
    Dim FullName As String, rng As Range
    Dim row As Integer, column As Integer, maxrow As Integer
    Dim strContent As String
    Application.ScreenUpdating = False
    
    FullName = (ThisWorkbook.Path & "/" & Cells(1, 2) & ".txt") ' Cells(1, 2) 表示第1行，第二列的内容

    '配置区域
    proline = 5 '程序名定义行
    begindatalen = 6 '数据起始行
    row = ActiveSheet.UsedRange.Rows.Count '最大行
    column = ActiveSheet.UsedRange.Columns.Count '最大列

    strContent = "{" & """" & Cells(1, 2) & """" & ":["  'json组成部分
    For m = begindatalen To row
        If Cells(m, 1) <> "" Then
            
            strContent = strContent & "{"
            
            For n = 1 To column
                If n = column Then
                    strContent = strContent & """" & Cells(proline, n) & """" & ":" & """" & Cells(m, n) & """"
                Else
                    strContent = strContent & """" & Cells(proline, n) & """" & ":" & """" & Cells(m, n) & """" & ","
                End If
            Next n
            
            If m = row Then
                
                strContent = strContent & "}"
                
            Else
                
                strContent = strContent & "},"
                
            End If
            

        End If
    Next m
    
    strContent = strContent & "]}"


    WriteUTF8File strContent, FullName, False
    Application.ScreenUpdating = True
    MsgBox "数据已导出"

End Sub

PS:在excel中插入一个宏安钮，然后编辑该宏代码即可。