Excel矩整转换成JSON数组

Public Function GetJSON(range As range)
    GetJSON = GetJSON & "["
    For Each Row In range.Rows
        GetJSON = GetJSON & "["
        For Each cell In Row.Cells
            GetJSON = GetJSON & "'" & cell & "',"
        Next
        GetJSON = Mid(GetJSON, 1, Len(GetJSON) - 1)
        GetJSON = GetJSON & "],"
    Next
    GetJSON = Mid(GetJSON, 1, Len(GetJSON) - 1)
    GetJSON = GetJSON & "]"
    
End Function