如何运行VBA Excel to JSON生成多个报表？

Sub ExcelToJson()
    Dim ws As Worksheet
    Dim dataRange As Range
    Dim jsonData As String
    Dim jsonFile As String
    Dim i As Integer
    
    ' 遍历所有工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 设置数据范围，根据实际情况修改
        Set dataRange = ws.Range("A1:C10")
        
        ' 将数据转换为JSON格式
        jsonData = ConvertRangeToJson(dataRange)
        
        ' 生成JSON文件名，根据实际情况修改
        jsonFile = "报表" & i & ".json"
        
        ' 保存JSON文件
        SaveJsonToFile jsonData, jsonFile
        
        i = i + 1
    Next ws
End Sub

Function ConvertRangeToJson(rng As Range) As String
    Dim arr() As Variant
    Dim jsonArr() As String
    Dim i As Integer
    Dim j As Integer
    
    arr = rng.Value
    
    ReDim jsonArr(1 To UBound(arr, 1))
    
    For i = 1 To UBound(arr, 1)
        jsonArr(i) = "{"
        
        For j = 1 To UBound(arr, 2)
            jsonArr(i) = jsonArr(i) & """" & arr(i, j) & """: """ & arr(i, j) & """"
            
            If j < UBound(arr, 2) Then
                jsonArr(i) = jsonArr(i) & ","
            End If
        Next j
        
        jsonArr(i) = jsonArr(i) & "}"
    Next i
    
    ConvertRangeToJson = Join(jsonArr, ",")
End Function

Sub SaveJsonToFile(jsonData As String, fileName As String)
    Dim filePath As String
    
    ' 设置保存路径，根据实际情况修改
    filePath = "C:\Reports\" & fileName
    
    Open filePath For Output As #1
    Print #1, "[" & jsonData & "]"
    Close #1
End Sub