一. 这种方式比较复杂,因为office版本的原因,所以要加其它函数

 Private Function parseScript(strJson As String)

 Dim objJson As Object

 'With CreateObject("msscriptcontrol.scriptcontrol") '在64位office里可能无法创建此对象,所以使用x86的方法

 With CreateObjectx86("msscriptcontrol.scriptcontrol")

 .Language = "javascript"

 .addcode "var mydata =" & strJson

 Set objJson = .codeobject

 End With

 Set parseScript = objJson

 End Function

 Function parseJson()

 Dim objJson As Object

 Set objJson = parseScript("[{""name"":""choco"",""age"":21},{""name"":""anne"",""age"":27}],{""name"":""heming"",""age"":44}]")

 Dim objItem

 For Each objItem In objJson.mydata

 Debug.Print CallByName(objItem, "name", VbGet)

 Debug.Print CallByName(objItem, "age", VbGet)

 Next

 End Function

 Function CreateObjectx86(Optional sProgID, Optional bClose = False)

 Static oWnd As Object

 Dim bRunning As Boolean

 #If Win64 Then

 bRunning = InStr(TypeName(oWnd), "HTMLWindow") >

 If bClose Then

 If bRunning Then oWnd.Close

 Exit Function

 End If

 If Not bRunning Then

 Set oWnd = CreateWindow()

 oWnd.execScript "Function CreateObjectx86(sProgID): Set CreateObjectx86 = CreateObject(sProgID): End Function", "VBScript"

 End If

 Set CreateObjectx86 = oWnd.CreateObjectx86(sProgID)

 #Else

 Set CreateObjectx86 = CreateObject("MSScriptControl.ScriptControl")

 #End If

 End Function

 Function CreateWindow()

 Dim sSignature, oShellWnd, oProc

 On Error Resume Next

 sSignature = Left(CreateObject("Scriptlet.TypeLib").GUID, )

 CreateObject("WScript.Shell").Run "%systemroot%\syswow64\mshta.exe about:""about:<head><script>moveTo(-32000,-32000);document.title='x86Host'</script><hta:application showintaskbar=no /><object id='shell' classid='clsid:8856F961-340A-11D0-A96B-00C04FD705A2'><param name=RegisterAsBrowser value=1></object><script>shell.putproperty('" & sSignature & "',document.parentWindow);</script></head>""", , False

 Do

 For Each oShellWnd In CreateObject("Shell.Application").Windows

 Set CreateWindow = oShellWnd.GetProperty(sSignature)

 If Err.Number =  Then Exit Function

 Err.Clear

 Next

 Loop

 End Function

Json解析方式汇总 excel vba的更多相关文章

  1. XML解析方式汇总

    XML解析方式汇总 分类: XML2011-08-23 19:19 167人阅读 评论(0) 收藏 举报 xmlstringexceptionattributesclassiterator DOM解析 ...

  2. JAVA中的四种JSON解析方式详解

    JAVA中的四种JSON解析方式详解 我们在日常开发中少不了和JSON数据打交道,那么我们来看看JAVA中常用的JSON解析方式. 1.JSON官方 脱离框架使用 2.GSON 3.FastJSON ...

  3. 复杂json解析方式[GsonFormat]

    针对开发人员来讲,善于用工具,事半功倍. 干货: 1.IntelliJ IDEA 通过GsonFormat插件将JSONObject格式的String 解析成实体 插件地址:https://plugi ...

  4. Json解析方式

    http://blog.sina.com.cn/s/blog_628cc2b70101dydc.html

  5. Json解析工具Jackson（简单应用）

    原文http://blog.csdn.net/nomousewch/article/details/8955796 概述 Jackson库(http://jackson.codehaus.org),是 ...

  6. C#调用Excel VBA宏

    近日的一系列工作是做网站的营运维护,因此做了大量的支持工具.有Excel中写VBA的,也有直接C#做的工具.有时需要在C#中执行Excel VBA宏,甚至有时还需要在执行了VBA宏之后,获取返回值再进 ...

  7. 【代码笔记】iOS-json文件的两种解析方式

    一,工程图. 二,代码. #import "ViewController.h" #import "SBJson.h" @interface ViewContro ...

  8. C#调用Excel VBA宏[转载]

    原文地址:https://www.cnblogs.com/heekui/archive/2008/03/30/1129355.html 近日的一系列工作是做网站的营运维护,因此做了大量的支持工具.有E ...

  9. iOS - 分析JSON、XML的区别和解析方式的底层是如何实现的(延伸实现原理)

    <分析JSON.XML的区别,JSON.XML解析方式的底层是如何实现的(延伸实现原理)> (一)JSON与XML的区别: (1)可读性方面:基本相同,XML的可读性比较好: (2)可扩展 ...

随机推荐

  1. Kafka和SpringBoot

    事先必备: kafka已安装完成 1.目录结构 2.父pom <project xmlns="http://maven.apache.org/POM/4.0.0" xmlns ...

  2. Python os.ftruncate() 方法

    概述 os.ftruncate() 裁剪文件描述符fd对应的文件, 它最大不能超过文件大小.高佣联盟 www.cgewang.com Unix, Windows上可用. 语法 ftruncate()方 ...

  3. PHP substr_compare() 函数

    实例 比较两个字符串: <?php高佣联盟 www.cgewang.comecho substr_compare("Hello world","Hello worl ...

  4. Linux的VMWare中Centos7文件目录类命令

    1.)ls命令简介 ls   ---列出目前工作目录所含之文件及子目录 语法    ls [-alrtAFR] [name...]   参数 : -a 显示所有文件及目录 (ls内定将文件名或目录名称 ...

  5. SpringSceurity(6)---JWT详解

    SpringSceurity(6)---JWT详解 在JWT之前我们在做用户认证的时候,基本上会考虑session 和 token,所以在讲jwt之前,我们先来回顾下这个两个 一.传统的session ...

  6. 深入理解mysql-进阶知识点，启动项、系统变量、字符集介绍！

    mysql数据库是当前应用最为的广泛的数据库,在实际工作中也经常接触到.真正用好mysql也不仅仅是会写sql就行,更重要的是真正理解其内部的工作原理.本文先从宏观角度介绍一些mysql相关的知识点, ...

  7. java进阶(2)--抽象类

    一.抽象类集刺虎: 1.概念 类与类之前有共同特征,将这些共同特征提取出来,行为抽象类   2.抽象类的数据类型: 引用数据类型   3.语法 [修饰符列表]abstract Class 类型{类体} ...

  8. Android 的Glide、TabLayout、RecyclerView（下一章补充）。

    今天的内容主要和一些依赖有关, //Glide依赖implementation 'com.github.bumptech.glide:glide:4.11.0'//Google Design依赖//n ...

  9. LinuX操作系统基础------>初始并安装系统

    b了解LinuX操作系统的来历和发展史 掌握虚拟机(Vbox)的安装方法 掌握CentOS6.5的安装方法 操作系统: 操作系统简称OS ,是管理计算机硬件与软件资源的计算机程序,同时也是计算机系统的 ...

  10. JS 移动端轮播图案例

    body { margin:; } .hearder { width: 100%; height: 150px; position: relative; } ul { list-style: none ...