vb 读取比较复杂的json

最新推荐文章于 2024-01-22 09:41:02 发布

原创

最新推荐文章于 2024-01-22 09:41:02 发布 · 7.7k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#VB

这篇博客介绍了如何使用VB来读取和解析结构复杂的JSON数据，特别是从网络源获取的数据，如http://bbs.youkuaiyun.com/topics/390485808。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

用Ｅｘｃｅｌ读取比较复杂的json

数据源在：

http://bbs.youkuaiyun.com/topics/390485808

Private Sub CommandButton2_Click()    '比较复杂的json
    On Error Resume Next
    bt = Split("order_id,order_sn,type,extension,seller_id,seller_name,buyer_id,buyer_name,buyer_email,status,add_time,payment_id,payment_name,payment_code,out_trade_sn,pay_time,pay_message,ship_time,invoice_no,finished_time,goods_amount,discount,order_amount,evaluation_status,evaluation_time,anonymous,postscript,pay_method,is_print,sms_code,conpon", ",")
    ct = Split("user_id,user_name,email,password,real_name,gender,birthday,phone_tel,phone_mob,im_qq,im_msn,im_skype,im_yahoo,im_aliww,reg_time,last_login,last_ip,logins,ugrade,portrait,outer_id,activation,code,audit,alipay_account,taobao_shop_url,taobao_shop_name,is_anonymous,cardID_p1,cardID_p2,shop_photo,shop_name,cardID_num,is_authentication,user_type,operator,openid,reg_from,