将范围转换为json数组

相关文章推荐

大方的香烟 · JavaScript Array ...· 1 月前 ·

跑龙套的单杠 · 分享6个对象数组去重的方法开发者社区· 1 月前 ·

刚失恋的黄瓜 · 为什么C数组下标从0开始，而不是从1开始_c ...· 1 月前 ·

冷冷的草稿本 · txt文件转数组_python读取txt为数组· 1 月前 ·

道上混的创口贴 · Array.prototype.some() ...· 2 周前 ·

小眼睛的帽子 · 7. ...· 1 年前 ·

高大的春卷 · WPF中使用TabControl为每个页签添 ...· 1 年前 ·

好帅的签字笔 · Scratch3.0二次开发｜补充-2：解决 ...· 2 年前 ·

打酱油的小蝌蚪 · Array join() 方法 - 掘金· 2 年前 ·

俊秀的松球 · 单击AdMob广告后，我无法按后退按钮返回我 ...· 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 & ","

推荐文章

大方的香烟 · JavaScript Array filter() 方法 |

1 月前

跑龙套的单杠 · 分享6个对象数组去重的方法开发者社区

1 月前

刚失恋的黄瓜 · 为什么C数组下标从0开始，而不是从1开始_c语言数组从0开始还是从1开始

1 月前

冷冷的草稿本 · txt文件转数组_python读取txt为数组

1 月前

道上混的创口贴 · Array.prototype.some() - JavaScript | MDN

2 周前

小眼睛的帽子 · 7. Jackson用树模型处理JSON是必备技能，不信你看（上）-阿里云开发者社区

1 年前

高大的春卷 · WPF中使用TabControl为每个页签添加不同窗体的方法。_wpf tab-CSDN博客

1 年前

好帅的签字笔 · Scratch3.0二次开发｜补充-2：解决windows上scratch-blocks构建失败 - 知乎

2 年前

打酱油的小蝌蚪 · Array join() 方法 - 掘金

2 年前

俊秀的松球 · 单击AdMob广告后，我无法按后退按钮返回我的Android应用程序。 - 问答 - 腾讯云开发者社区-腾讯云

2 年前

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

2 个回答