将范围转换为json数组 - 问答

link之家

链接快照平台

输入网页链接，自动生成快照
标签化管理网页链接

相关文章推荐

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

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

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

瘦瘦的棒棒糖 · OpenCV 4基础篇| ...· 1 月前 ·

豪爽的大海 · ggplot2-气泡图（控制点的大小范围） ...· 2 月前 ·

爱笑的热带鱼 · HTTP Session ...· 4 月前 ·

强健的皮带 · LoLo屋 » 收录全网Coser网红写真视频资源· 7 月前 ·

留胡子的柑橘 · 四嫁03 - 三民網路書店· 7 月前 ·

干练的打火机 · Original research: ...· 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 & ","

推荐文章

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

3 月前

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

3 月前

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

2 月前

瘦瘦的棒棒糖 · OpenCV 4基础篇| OpenCV图像基本操作开发者社区

1 月前

豪爽的大海 · ggplot2-气泡图（控制点的大小范围） - 组学大讲堂问答社区

2 月前

爱笑的热带鱼 · HTTP Session Subsystem Messages

4 月前

强健的皮带 · LoLo屋 » 收录全网Coser网红写真视频资源

7 月前

留胡子的柑橘 · 四嫁03 - 三民網路書店

7 月前

干练的打火机 · Original research: IL1R2 increases regulatory T cell population in the tumor microenvironment by enh

1 年前

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

2 个回答