首页 文章 精选 留言 我的

精选列表

搜索[AI填充],共10002篇文章
优秀的个人博客,低调大师

VBA反序列化Json并填充

VBA部分 Function JsonToObject(str) Set myJs = CreateObject("MSScriptControl.ScriptControl") myJs.Language = "javascript" Set myObject = myJs.Eval("eval(" & str & ")") Set myJs = Nothing Set JsonToObject = myObject End Function Sub FillingData() Set mySheet = ActiveSheet Let myIndex = 1 Let lieming = Array("c1", "c2", "c3") For Each a In lieming mySheet.Cells(1, myIndex) = CStr(a) myIndex = myIndex + 1 Next a Let myIndex = 1 Let str1 = "[{'c1':'服务品质','c2temp':[{'c3':'IRR','c2temp':['投诉处理平均时长','保全变更完成率','保全处理平均时长','理赔服务时效']},{'c3':'服务评价','c2temp':['投诉处理平均时长','保全变更完成率','保全处理平均时长','理赔服务时效']}]},{'c1':'保单品质','c2temp':[{'c3':'IRR','c2temp':['投诉处理平均时长','保全变更完成率','保全处理平均时长','理赔服务时效']},{'c3':'服务评价','c2temp':['投诉处理平均时长','保全变更完成率','保全处理平均时长','理赔服务时效']}]}]" Set object1 = JsonToObject(str1) With mySheet For Each a In object1 For Each b In a.c2temp For Each c In b.c2temp myIndex = myIndex + 1 .Cells(myIndex, 1) = a.c1 .Cells(myIndex, 2) = CStr(c) .Cells(myIndex, 3) = b.c3 ' Debug.Print a.c1&; b.c3&; c Next c Next b Next a End With Set object1 = Nothing Set mySheet = Nothing End Sub JS部分 JSON.stringify(object);

资源下载

更多资源
Mario

Mario

马里奥是站在游戏界顶峰的超人气多面角色。马里奥靠吃蘑菇成长,特征是大鼻子、头戴帽子、身穿背带裤,还留着胡子。与他的双胞胎兄弟路易基一起,长年担任任天堂的招牌角色。

腾讯云软件源

腾讯云软件源

为解决软件依赖安装时官方源访问速度慢的问题,腾讯云为一些软件搭建了缓存服务。您可以通过使用腾讯云软件源站来提升依赖包的安装速度。为了方便用户自由搭建服务架构,目前腾讯云软件源站支持公网访问和内网访问。

Sublime Text

Sublime Text

Sublime Text具有漂亮的用户界面和强大的功能,例如代码缩略图,Python的插件,代码段等。还可自定义键绑定,菜单和工具栏。Sublime Text 的主要功能包括:拼写检查,书签,完整的 Python API , Goto 功能,即时项目切换,多选择,多窗口等等。Sublime Text 是一个跨平台的编辑器,同时支持Windows、Linux、Mac OS X等操作系统。

WebStorm

WebStorm

WebStorm 是jetbrains公司旗下一款JavaScript 开发工具。目前已经被广大中国JS开发者誉为“Web前端开发神器”、“最强大的HTML5编辑器”、“最智能的JavaScript IDE”等。与IntelliJ IDEA同源,继承了IntelliJ IDEA强大的JS部分的功能。

用户登录
用户注册