vba 解析json 获取数据

neilhu · 发表于 2016-8-29 14:40

本帖最后由 neilhu 于 2016-8-29 15:46 编辑

大神们，请问如何解析来自网页中json数据如图中标红色数据，谢谢了

我是来讨说法的 · 发表于 2016-8-29 15:14

...............

Sub x()
S = Range("A1").Value
A1 = Split(Split(S, """sellCount"":")(1), ",")(0)
A2 = Split(Split(S, """startTime"":")(1), ",")(0)
A3 = Split(Split(S, """isSuccess"":")(1), ",")(0)
Debug.Print A1
Debug.Print A2
Debug.Print A3
End Sub

复制代码

neilhu · 发表于 2016-8-29 15:24

我是来讨说法的发表于 2016-8-29 15:14
...............

谢谢，不过我想知道如何用 ScriptControl对象的javascript脚本语句来解析

liu-aguang · 发表于 2016-8-29 15:34

neilhu 发表于 2016-8-29 15:24
谢谢，不过我想知道如何用 ScriptControl对象的javascript脚本语句来解析

json文本有错,最后那个逗号不能要.

liu-aguang · 发表于 2016-8-29 15:35

Sub test()
Set oDom = CreateObject("htmlfile")
Set oWindow = oDom.parentWindow
oWindow.execScript "var o=" & Range("a1")
MsgBox oWindow.o.defaultModel.sellCountDO.sellCount '1756
MsgBox oWindow.o.tradeResult.startTime '1472118171000
MsgBox oWindow.o.isSuccess 'true
End Sub

neilhu · 发表于 2016-8-29 15:57

liu-aguang 发表于 2016-8-29 15:35
Sub test()
Set oDom = CreateObject("htmlfile")
Set oWindow = oDom.parentWindow

谢谢，请问如果用 ScriptControl对象的javascript脚本语句来解析改如果做呢？

liu-aguang · 发表于 2016-8-29 16:05

neilhu 发表于 2016-8-29 15:57
谢谢，请问如果用 ScriptControl对象的javascript脚本语句来解析改如果做呢？

给你的方式就是用javaScript解析JSON. 俺不喜欢用scriptcontrol控件,该控件在64位win下不可用.

neilhu · 发表于 2016-8-29 16:30

liu-aguang 发表于 2016-8-29 16:05
给你的方式就是用javaScript解析JSON. 俺不喜欢用scriptcontrol控件,该控件在64位win下不可用.

谢谢感觉还是得好好学习下 javascript

翛然若尘 · 发表于 2017-3-20 14:30

liu-aguang 发表于 2016-8-29 15:35
Sub test()
Set oDom = CreateObject("htmlfile")
Set oWindow = oDom.parentWindow

前辈请问宏在调用需要jwt认证的接口时需要怎么调用呢

liu-aguang · 发表于 2017-3-20 20:26

翛然若尘发表于 2017-3-20 14:30
前辈请问宏在调用需要jwt认证的接口时需要怎么调用呢

对不起,不太懂你说的.

		自动登录	找回密码
密码			免费注册

[求助] vba 解析json 获取数据