如何用Excel VBA解析JSON数据（这个对我真的好难！）

coby001

hai167 发表于 2015-9-6 17:26
With CallByName(y, "1", VbGet)

他的数据行数不固定，"1"这个变量可以通过循环吗？而不是指定某个固 ...

这么基础的问题

Sub bluejson()    '方法二
    Dim aa, y As Object, x As Object
    Dim name, id   ' 这里重新定义 json 中的 key，避免vba自动改大小写而失败。
    Set x = CreateObject("ScriptControl")
    x.Language = "JScript"
    aa = Sheets("Sheet1").Range("A5").Value
    'aa = Me.[a1]
    Set y = x.eval("a=" & aa)
    Dim iRow&
    For iRow = 1 To 2
        With CallByName(y, iRow, VbGet)
            Debug.Print .id, .pid, .name
        End With
    Next
End Sub

hai167

onlycxb 发表于 2015-9-6 17:27

学习了.

这个需要转置一下，否则结果不对。
.[a10].Resize(UBound(arr, 1), 1) = Application.Transpose(arr)

hai167

coby001 发表于 2015-9-6 17:37
这么基础的问题

Sub bluejson()    '方法二

调试不过，你试过了吗？

coby001

hai167 发表于 2015-9-6 17:43
调试不过，你试过了吗？

我前面贴了2张图你看了没有？

onlycxb

hai167 发表于 2015-9-6 17:42
学习了.

这个需要转置一下，否则结果不对。

更正一下，一维数组

1. Sub bluejson()                                             '方法二
   
2.     Dim aa, y As Object, arr, x
   
3.     Set x = CreateObject("ScriptControl"): x.Language = "JScript"
   
4.     aa = Sheets("Sheet1").Range("A1").Value
   
5.     arr = Split(x.eval("var a=" & aa & ";s='';for(x in a){ for(y in a[x]){s+=a[x][y]+'\t';}s+='\r'}"), vbCr)
   
6.     With Sheet1
   
7.     .[a10].Resize(UBound(arr), 1) = Application.WorksheetFunction.Transpose(arr)
   
8.     [a10].Resize(UBound(arr), 1).TextToColumns Destination:=.[a10]
   
9.     End With
   
10. End Sub

复制代码

hai167

coby001 发表于 2015-9-6 17:45
我前面贴了2张图你看了没有？

我知道，那个可以调试成功。

我是说你加了这个iRow循环，不行。
Dim iRow&
    For iRow = 1 To 2
        With CallByName(y, iRow, VbGet)
            Debug.Print .id, .pid, .name
        End With
    Next

coby001

hai167 发表于 2015-9-6 17:49
我知道，那个可以调试成功。

我是说你加了这个iRow循环，不行。

看 17 楼

这种小问题 你自己弄一下就好了，。。

hai167

coby001 发表于 2015-9-6 17:53
看 17 楼

这种小问题 你自己弄一下就好了，。。

唉。。。。。。。。。，现在iRow已经是变量，问题不在17楼那里，这不是问题小不小的事情，不是什么基础问题，是运行不通过。我也只是想学习一下，对JScript不是很了解，如有冒犯请谅解。

coby001

hai167 发表于 2015-9-6 18:02
唉。。。。。。。。。，现在iRow已经是变量，问题不在17楼那里，这不是问题小不小的事情，不是什么基础问 ...

点击图片，你自己看~~

crazy0qwer

hai167 发表于 2015-9-6 18:02
唉。。。。。。。。。，现在iRow已经是变量，问题不在17楼那里，这不是问题小不小的事情，不是什么基础问 ...

出错提示贴出来看下。
callbyname 的作用是把一个对象的属性用字符串的方式组合起来。
比如：
    MsgBox CallByName(Application, "caption", VbGet)        '获取属性
    CallByName Range("a1"), "select", VbMethod              '调用方法
    CallByName Range("A1").Interior, "COLOR", VbLet, vbRed  '设置属性