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
Excel矩整转换成JSON数组
最新推荐文章于 2024-08-12 14:09:57 发布