将范围转换为json数组

相关文章推荐

慷慨大方的麦片 · JavaScript---Dom树详解,节点 ...· 6 天前 ·

另类的核桃 · 海南省药监局贯彻落实全国药品监管工作座谈会精 ...· 8 月前 ·

眼睛小的大葱 · AutoCAD ...· 10 月前 ·

怕老婆的针织衫 · Ubuntu20.04安装gtest - 知乎· 1 年前 ·

坐怀不乱的罐头 · 数次股权激励 ...· 1 年前 ·

神勇威武的灌汤包 · 福田图雅诺风景G5 快运版 160马力 ...· 1 年前 ·

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 & ","

推荐文章

慷慨大方的麦片 · JavaScript---Dom树详解,节点查找方式(直接(id,class,tag),间接(父子,兄弟)),节点操作(增删改查,赋值节点,替换节点,),节点属性操作(增删改查),节点文本的操作(增删

6 天前

另类的核桃 · 海南省药监局贯彻落实全国药品监管工作座谈会精神 -- 图片新闻 -- 海南省药品监督管理局

8 月前

眼睛小的大葱 · AutoCAD 2007软件免费下载及安装教程 cad软件全版本下载-腾讯云开发者社区-腾讯云

10 月前

怕老婆的针织衫 · Ubuntu20.04安装gtest - 知乎

1 年前

坐怀不乱的罐头 · 数次股权激励助推双汇发展攀上千亿市值_管理层_国际_收购

1 年前

神勇威武的灌汤包 · 福田图雅诺风景G5 快运版 160马力汽油封闭货车

1 年前

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

2 个回答