!
开头的废话
在软件项目的开发过程中
为了提高开发效率和减少人工操作带来的错误
项目在开发过程中常常会使用各种工具
去生成各种设计书以及代码
所有工具中比较常见的就是
使用Excel 内置VBA开发的各种小工具
因为Excel基本上是所有电脑都会安装的软件
而VBA已经内置于其中
如果用VBA开发各种小工具的话
不再额外需要的别的软件许可，减少开发成本
而且VB语言易学易上手
如果在现场你能用VBA做一些小的工具
去提高生产性和准确率的话
我相信就会得到很高的评价
尤其在如今非常残酷的就业环境下
大大提高让自己留下来的几率
印象深刻的就是之前的一个项目，客户从最终用户那里接项目的时候，因为对项目需要对应内容严重预计不足，1期70几个画面的详细设计，代码，以及测试的对应期限只有2个月，预算就3人。
常规的开发方式根本不可能保质保量地完成这个项目，最终笔者申请了一周的时间，用VBA做了一个小工具，一键生成了70多本详细设计书和代码的自动生成小工具。保质保量地完成这个项目，而且后面顺利地接到了2期，3期的项目。笔者也在那个现场呆了好长时间。
笔者现在在现场担当RPA机器人的作业，在机器人稼动过程中会访问别的网站。比如交通费精算机器人，我们会访问Yahoo路线去查询出发点到终点的价格，而网址，存储出发点和终点的Excel文件的文件名和路径等等可能后期会改变的内容，我们把这些信息外置到一个Json文件里面。而这个Json文件，就是用VBA工具从Excel的设计书自动生成的。
言归正传，那接下来一起做一个Json文件自动生成的工具吧。
正文
(1)新建一个带宏的Excel文件，命名为Robot_JSON.xlsm。
(2)在Sheet1里面，做成如下图的表格
(3)在这个Sheet内添加一个按钮用来生成Json。点击属性按钮，修改按钮的名称为Json文件生成
※添加按钮的方法:开发工具＞插入＞命令按钮(ActiveX控件)
※Excel默认是没有开发工具的菜单，可以通过如下的方法添加
文件＞选择＞自定义功能区＞选中主选项卡中开发工具选项＞确定
(4)在设计模式中(开发工具＞启动设计模式)双击JSON文件生成按钮，打开VBA编辑界面
(5)编辑如下主程序。
(6)启动测试
解除设计模式(开发工具＞解除设计模式)后，点击JSON文件生成。处理完成后，弹出OK！
查看工具所在的文件夹，RobotConf.json文件生成。
打开RobotConf.json文件
最后
用简单的几行的VBA代码，就将设计书里的内容生成了Json文件。
感谢您看到最后，如果发现本文有错误之处欢迎留言批评指正。如果您有别的好的效率化的点子欢迎留言。我们会在后面的系列中推出相关的文章。
小GO有话说：感谢这位RPA童鞋把他自己项目中的经验分享给我们。欢迎大家来ITgo技术者之家投稿，而且我们稿费不菲哦5000～20000日元！可以是学习的经验分享，可以是技术知识共享，也可以是工作中的趣事，也可以是在日生活的点滴。也无需担心自己的文采不好，真实的就是最棒的！等你来投稿哦！

	

!
开头的废话
在软件项目的开发过程中
为了提高开发效率和减少人工操作带来的错误
项目在开发过程中常常会使用各种工具
去生成各种设计书以及代码
所有工具中比较常见的就是
使用Excel 内置VBA开发的各种小工具
因为Excel基本上是所有电脑都会安装的软件
而VBA已经内置于其中
如果用VBA开发各种小工具的话
不再额外需要的别的软件许可，减少开发成本
而且VB语言易学易上手
如果在现场你能用VBA做一些小的工具
去提高生产性和准确率的话
我相信就会得到很高的评价
尤其在如今非常残酷的就业环境下
大大提高让自己留下来的几率
印象深刻的就是之前的一个项目，客户从最终用户那里接项目的时候，因为对项目需要对应内容严重预计不足，1期70几个画面的详细设计，代码，以及测试的对应期限只有2个月，预算就3人。
常规的开发方式根本不可能保质保量地完成这个项目，最终笔者申请了一周的时间，用VBA做了一个小工具，一键生成了70多本详细设计书和代码的自动生成小工具。保质保量地完成这个项目，而且后面顺利地接到了2期，3期的项目。笔者也在那个现场呆了好长时间。
笔者现在在现场担当RPA机器人的作业，在机器人稼动过程中会访问别的网站。比如交通费精算机器人，我们会访问Yahoo路线去查询出发点到终点的价格，而网址，存储出发点和终点的Excel文件的文件名和路径等等可能后期会改变的内容，我们把这些信息外置到一个Json文件里面。而这个Json文件，就是用VBA工具从Excel的设计书自动生成的。
言归正传，那接下来一起做一个Json文件自动生成的工具吧。
正文
(1)新建一个带宏的Excel文件，命名为Robot_JSON.xlsm。
(2)在Sheet1里面，做成如下图的表格
(3)在这个Sheet内添加一个按钮用来生成Json。点击属性按钮，修改按钮的名称为Json文件生成
※添加按钮的方法:开发工具＞插入＞命令按钮(ActiveX控件)
※Excel默认是没有开发工具的菜单，可以通过如下的方法添加
文件＞选择＞自定义功能区＞选中主选项卡中开发工具选项＞确定
(4)在设计模式中(开发工具＞启动设计模式)双击JSON文件生成按钮，打开VBA编辑界面
(5)编辑如下主程序。
(6)启动测试
解除设计模式(开发工具＞解除设计模式)后，点击JSON文件生成。处理完成后，弹出OK！
查看工具所在的文件夹，RobotConf.json文件生成。
打开RobotConf.json文件
最后
用简单的几行的VBA代码，就将设计书里的内容生成了Json文件。
感谢您看到最后，如果发现本文有错误之处欢迎留言批评指正。如果您有别的好的效率化的点子欢迎留言。我们会在后面的系列中推出相关的文章。
小GO有话说：感谢这位RPA童鞋把他自己项目中的经验分享给我们。欢迎大家来ITgo技术者之家投稿，而且我们稿费不菲哦5000～20000日元！可以是学习的经验分享，可以是技术知识共享，也可以是工作中的趣事，也可以是在日生活的点滴。也无需担心自己的文采不好，真实的就是最棒的！等你来投稿哦！

什么是JSON?
JSON(JavaScript Object Notation) 是一种及其轻量级的数据交换格式，它是 ECMAScript (欧洲计算机协会制定的JavaScript规范)的一个子集，它使用完全独立于任何编程语言的文本格式来表示数据。

由于JSON天然具备了简洁和清晰的层次结构，易于机器解析和生成，从2005年前后开始JSON成为主流的网络数据传输格式。进行网页数据抓取的时候，很多页面请求的返回结果都是JSON格式的。

详细的JSON标准规范请参考：

http://json.com/specs/

JSON是什么样的？
JSON 本质是一个字符串（由花括号{}包裹起来），它是JavaScript对象的字符串表示法。例如：

{“applySn”: “粤G妆网备字2017050113”, “applySnTT”: “”, “apply_enter_address”: “”, “enterpriseName”: “广州市金日精细化工有限公司”, “enterpriseNameTT”: “”, “is_off”: “N”, “newProcessid”: “20170421153208vq3fu”, “off_date”: “”, “org_name”: “”, “processid”: “20170421153208vq3fu”, “productName”: “悠莅雅柔美亮肤按摩霜”, “productNameTT”: “”, “provinceConfirm”: “2017-05-17”}

如何解读JSON？
据说JSON易于人阅读和编写，我怎么看出来，只看到一堆字符，完全不知道包含什么信息。那么来看看下面这段JSON，是不是顿时觉得清爽了很多，其实内容和上一段完全相同，只是进行了相应的格式化显示。
{
      "applySn": "粤G妆网备字2017050113",
      "applySnTT": "",
      "apply_enter_address": "",
      "enterpriseName": "广州市金日精细化工有限公司",
      "enterpriseNameTT": "",
      "is_off": "N",
      "newProcessid": "20170421153208vq3fu",
      "off_date": "",
      "org_name": "",
      "processid": "20170421153208vq3fu",
      "productName": "悠莅雅柔美亮肤按摩霜",
      "productNameTT": "",
      "provinceConfirm": "2017-05-17"
}

KEY和VALUE都由半角双引号包裹，二者之间由冒号做为间隔（冒号之后可能有空格），也就是如下格式，类似于VBA中字典对象。
"KEY": "VALUE"

例如：provinceConfirm的VALUE为2017-05-17，不难看出此部分数据包含13组KEY和VALUE。

有很多在线工具可以帮助我们实现JSON的格式转换，这是编程过程中一个非常重要的工具。例如：

http://jsonviewer.stack.hu/

除了转换为上面的格式外，还可以转换为表格格式，如下图，有些Excel单元格的味道了。


VBA解析JSON
非常可惜的是VB流行的年代JSON没出现，所以VBA也不支持JSON对象。但是既然JSON数据本质是一个字符串，VBA中丰富的字符串处理函数应该也可以胜任解析JSON这个工作。下面就以上面的JSON数据为例，演示如何在VBA中进行解析。
Sub JSON_Split()
    Dim Res(100, 1 To 2)
    Dim objRegEx As Object
    Dim iRow, myStr, arrLine, arrItem
    myStr = Trim([A1].Value)
    Range("A3:B3").Value = Array("Key", "Value")
    myStr = Replace(myStr, """", "")
    myStr = Replace(myStr, " ", "")
    arrLine = Split(Mid(myStr, 2, Len(myStr) - 2), ",")
    iRow = 4
    For i = LBound(arrLine) To UBound(arrLine)
        arrItem = Split(Trim(arrLine(i)), ":")
        Cells(iRow, 1).Resize(1, 2).Value = arrItem
        iRow = iRow + 1
    Next
End Sub

代码解析

第5行代码读取保存在工作表A1单元格的JSON字符串。

第6行代码写入第3行的表头。

由于KEY和VALUE中没有空格个引号，因此第7行和第8行代码去除JSON字符串中的引号和空格，便于后续拆分。

第9行使用对号做为分隔符，把JSON字符串进行拆分，结果为"KEY":"VALUE"形式。其中MID函数是为了去除字符串首尾的花括号。

第12行代码冒号做为分隔符再次拆分。

第13行代码将结果写入相应行的单元格中。
运行示例代码，结果如下，妥妥的写入了我们熟悉的单元格，可以很方便使用这些数据了。


JSON中一个KEY也可以对应多个VALUE，对于这类数据，需要再多使用一次SPLIT函数进行拆分。

相关博文链接：

VBA解析JSON数据（1）-- Split函数

VBA解析JSON数据（2）–正则表达式

VBA解析JSON数据（3）–JavaScript

VBA解析JSON数据（4）–JavaScript进阶

VBA解析JSON数据（5）–JavaScript回写Excel

Sub ToJson() '创建UTF8文本文件
myrange = Worksheets("sheet1").UsedRange  '通过有效数据区来选择数据
'myrange = ActiveWorkbook.Names("schoolinfo").RefersToRange '通过定义的名称来选择数据
'myrange = Range(Worksheets("sheet1").Range("a1").End(xlDown), Worksheets("sheet1").Range("a1").End(xlToRight)) '通过标题行的最大行最大列来选择数据
Total = UBound(myrange, 1) '获取行数
Fields = UBound(myrange, 2) '获取列数
Dim objStream As Object
Set objStream = CreateObject("ADODB.Stream")
With objStream
.Type = 2
.Charset = "UTF-8"
.Open
.WriteText "{""total"":" & Total & ",""contents"":["
For i = 2 To Total
.WriteText "{"
For j = 1 To Fields
.WriteText """" & myrange(1, j) & """:""" & Replace(myrange(i, j), """", "\""") & """"
If j <> Fields Then
.WriteText ","
End If
Next
If i = Total Then
.WriteText "}"
Else
.WriteText "},"
End If
Next
.WriteText "]}"
.SaveToFile ActiveWorkbook.FullName & ".json", 2
End With
Set objStream = Nothing
End Sub