在VBA中使用JAVASCRIPT和VBSCRIPT（2）

0031126

好贴，谢谢，学习了

yrystlt

figfig 发表于 2009-9-16 23:54
Sub figjson4()
aa = "{ ""people"": [{ ""firstName"": ""Brett"", ""lastName"":""McLaughlin"", ""emai ...

{"Data":{"Table":[{"ProdCode":"Ag(T+D)","CurrentPrice":"4210.00","UpLowDirection":"0","UpLowRate":"-0.38%","SuccessAmount":"4654558","OpenPrice":"4221.00","YesterdayPrice":"4228.00","HighestPrice":"4245.00","LowestPrice":"4190.00","Kind":"001DZYH","UpdateTime":"2016-09-30 15:45:00","ShowOrder":"1","BuyUrl":"http://ewealth.abchina.com/Gold/client/201501/t20150109_661266.htm"},{"ProdCode":"Au(T+D)","CurrentPrice":"284.80","UpLowDirection":"0","UpLowRate":"0.09%","SuccessAmount":"48292","OpenPrice":"283.92","YesterdayPrice":"284.38","HighestPrice":"284.94","LowestPrice":"283.20","Kind":"001DZYH","UpdateTime":"2016-09-30 15:45:00","ShowOrder":"2","BuyUrl":"http://ewealth.abchina.com/Gold/client/201501/t20150109_661266.htm"},{"ProdCode":"Au(T+N1)","CurrentPrice":"286.25","UpLowDirection":"0","UpLowRate":"-0.43%","SuccessAmount":"80366","OpenPrice":"287.50","YesterdayPrice":"287.55","HighestPrice":"287.90","LowestPrice":"286.25","Kind":"001DZYH","UpdateTime":"2016-09-30 15:45:00","ShowOrder":"3","BuyUrl":"http://ewealth.abchina.com/Gold/client/201501/t20150109_661266.htm"},{"ProdCode":"Au(T+N2)","CurrentPrice":"284.90","UpLowDirection":"0","UpLowRate":"0.04%","SuccessAmount":"82000","OpenPrice":"284.30","YesterdayPrice":"284.65","HighestPrice":"286.50","LowestPrice":"284.10","Kind":"001DZYH","UpdateTime":"2016-09-30 15:45:00","ShowOrder":"4","BuyUrl":"http://ewealth.abchina.com/Gold/client/201501/t20150109_661266.htm"},{"ProdCode":"mAu(T+D)","CurrentPrice":"284.99","UpLowDirection":"0","UpLowRate":"0.09%","SuccessAmount":"44768","OpenPrice":"284.11","YesterdayPrice":"284.51","HighestPrice":"285.05","LowestPrice":"283.50","Kind":"001DZYH","UpdateTime":"2016-09-30 15:45:00","ShowOrder":"5","BuyUrl":"http://ewealth.abchina.com/Gold/client/201501/t20150109_661266.htm"},{"ProdCode":"Au100g","CurrentPrice":"285.00","UpLowDirection":"0","UpLowRate":"0.18%","SuccessAmount":"162","OpenPrice":"284.50","YesterdayPrice":"284.50","HighestPrice":"286.49","LowestPrice":"284.50","Kind":"002DZYH","UpdateTime":"2016-09-30 15:45:00","ShowOrder":"6","BuyUrl":"http://ewealth.abchina.com/Gold/client/201501/t20150109_661266.htm"},{"ProdCode":"Au99.95","CurrentPrice":"284.69","UpLowDirection":"0","UpLowRate":"0.30%","SuccessAmount":"1490","OpenPrice":"284.00","YesterdayPrice":"283.84","HighestPrice":"285.00","LowestPrice":"283.80","Kind":"002DZYH","UpdateTime":"2016-09-30 15:45:00","ShowOrder":"7","BuyUrl":"http://ewealth.abchina.com/Gold/client/201501/t20150109_661266.htm"},{"ProdCode":"Au99.99","CurrentPrice":"284.95","UpLowDirection":"0","UpLowRate":"0.14%","SuccessAmount":"833860","OpenPrice":"284.99","YesterdayPrice":"284.54","HighestPrice":"285.20","LowestPrice":"283.01","Kind":"002DZYH","UpdateTime":"2016-09-30 15:45:00","ShowOrder":"8","BuyUrl":"http://ewealth.abchina.com/Gold/client/201501/t20150109_661266.htm"}],"Table1":[{"ProdCode":"9101","ProdName":"人民币账户黄金","UpLowDirection":"0","CustomerSell":"272.79","CustomerBuy":"273.29","LowSell":"271.44","HighBuy":"274.22","UpdateTime":"2016-10-05 20:13:40","ShowOrder":"1","BasePrice":"273.960000","CurrentPrice":"273.040000","BuyUrl":""},{"ProdCode":"9201","ProdName":"人民币账户白银","UpLowDirection":"0","CustomerSell":"3.82","CustomerBuy":"3.84","LowSell":"3.79","HighBuy":"3.89","UpdateTime":"2016-10-05 20:13:38","ShowOrder":"2","BasePrice":"3.880000","CurrentPrice":"3.830000","BuyUrl":""},{"ProdCode":"9114","ProdName":"美元账户黄金","UpLowDirection":"0","CustomerSell":"1271.18","CustomerBuy":"1274.18","LowSell":"1265.32","HighBuy":"1278.95","UpdateTime":"2016-10-05 20:13:40","ShowOrder":"3","BasePrice":"1277.400000","CurrentPrice":"1272.680000","BuyUrl":""},{"ProdCode":"9214","ProdName":"美元账户白银","UpLowDirection":"0","CustomerSell":"17.79","CustomerBuy":"17.94","LowSell":"17.65","HighBuy":"18.17","UpdateTime":"2016-10-05 20:13:38","ShowOrder":"4","BasePrice":"18.085000","CurrentPrice":"17.865000","BuyUrl":""}]},"ErrorCode":"0","ErrorMsg":"","Url":null}
我得到的JSON是是样的，我解不了，可以帮我看看吗

hu-xiaolin

开眼界了，学学习！

hu-xiaolin

学习了，大神！！！

xdwy81129

ccwan 发表于 2010-1-13 17:03
谢谢老师分享。
例子2运行到MsgBox y.Email这句时出错。

E会自动大写，所以该其他词，我也正在看例子

Kaohsing

xdwy81129 发表于 2016-11-26 01:03
E会自动大写，所以该其他词，我也正在看例子

忘了那个大神说的定义一下，dim email  就可以啦

qinyun

好贴，好好学习，留个脚印

peterzhu0810

我去,还有这用法.不懂得东西还很多啊.

文刀天可

学习了，谢谢

文刀天可

太棒了，收藏了，谢谢分享！