将范围转换为json数组

相关文章推荐

一身肌肉的剪刀 · 调用Karate ...· 4 月前 ·

豁达的圣诞树 · PostgreSQL ...· 4 月前 ·

打酱油的野马 · 如何排序Firebase嵌套对象数组且避免数 ...· 4 月前 ·

苦闷的骆驼 · 如何将列表列表转为DataFrame列？含N ...· 3 月前 ·

独立的树叶 · 求助：FileReader ...· 3 月前 ·

聪明的红薯 · 干货！如何找到靶基因上游的转录因子_如何寻找 ...· 2 年前 ·

大气的警车 · vba打包成exe - 百度· 2 年前 ·

个性的红酒 · javascript 拼接byte数组 ...· 2 年前 ·

卖萌的皮带 · excel vba 循环读取单元格-掘金· 2 年前 ·

兴奋的草稿纸 · WSO2 Axis2 ...· 2 年前 ·

Function to_json(input As Range)
End Function

[
  [4,"foo"],
  ["bar",5]
]

Function to_json(rng As Range)
    Dim ar, v, i As Long, j As Long, qq As String
    Dim js As String, r As String
    qq = Chr(34)
    ar = rng.Value
    For i = 1 To UBound(ar)
        r = "["
        For j = 1 To UBound(ar, 2)
            v = ar(i, j)
            'Debug.Print i, j, v, VarType(v)
            Select Case VarType(v)
                Case vbError
                    v = ""
                Case vbNull, vbEmpty
                    v = "null"
                Case vbDate
                    v = qq & Format(v, "yyyy-mm-dd") & qq
                Case vbString
                    v = qq & Replace(v, qq, "\" & qq) & qq
                Case Else
            End Select
            If Len(r) > 1 Then r = r & ","
            r = r & v
        r = r & "]"
        If Len(js) > 0 Then js = js & ","

推荐文章

一身肌肉的剪刀 · 调用Karate Feature文件时如何传递完整JSON数组，避免逐元素执行

4 月前

豁达的圣诞树 · PostgreSQL 13.3中如何将多组JSON键值对数组作为查询参数传入？

4 月前

打酱油的野马 · 如何排序Firebase嵌套对象数组且避免数据丢失？

4 月前

苦闷的骆驼 · 如何将列表列表转为DataFrame列？含NumPy数组DataFrame转换纠错求助

3 月前

独立的树叶 · 求助：FileReader onload函数无法为预定义数组赋值分割行

3 月前

聪明的红薯 · 干货！如何找到靶基因上游的转录因子_如何寻找转录因子的靶基因-CSDN博客

2 年前

大气的警车 · vba打包成exe - 百度

2 年前

个性的红酒 · javascript 拼接byte数组 js byte数组转图片_mob64ca14122c74的技术博客_51CTO博客

2 年前

卖萌的皮带 · excel vba 循环读取单元格-掘金

2 年前

兴奋的草稿纸 · WSO2 Axis2 JMS传输无法在Websphere MQ队列上设置JMS_DESTINATION-腾讯云开发者社区-腾讯云

2 年前

将范围转换为json数组 内容来源于 Stack Overflow，遵循 CC BY-SA 4.0 许可协议进行翻译与使用。IT领域专用引擎提供翻译支持 腾讯云小微IT领域专用引擎提供翻译支持

2 个回答