问题背景
大家好，我是永恒君！
最近和一位小学语文老师聊天，他日常需要教小朋友们汉字的一些基本知识。
比如汉字的拼音、部首、笔画等等。那备课的时候自然会要提前准备相关的内容，如下图：
每次准备都需要找十个到几十个常用汉字的信息，虽说在网上挨个去找不难，但就是感觉很繁琐。
其实这个也是可以用VBA来实现批量操作的，但前提是需要有网络。
今天的文章就来分享一下VBA一键批量查询汉字拼音、部首、笔画等信息的实例。
效果展示
最终的查询结果：
简要分析
这个实例和之前的查询基金信息的类似，需要使用VBA的请求网页的功能。
网上有很多网站可以查询汉字的信息，各个网站的结构都不完全相同。永恒君选择了一个相对简单的网站：
http://zidian.miaochaxun.com/
网站查询的效果如下：
但是这里和之前的实例（39）查询基金信息的还有点不一样：
基金查询网址信息如下图，打开网址可以直接看到信息。
而本例需要在另外一个网页提取到每个汉字的一个特定编码，通过这个编码来构造出查询汉字信息的网址。
有了以上，我们就可以开始操作了。大致过程就是：
1、遍历A5以下每一个汉字的单元格，查找出对应汉字的编码；
2、接着构造出每个汉字对应的汉字信息的网址，VBA对每个网址进行请求，获得服务器返回的信息；
3、对服务器返回的信息进行筛选，提取我们需要汉字的信息，填入到相应的的单元格当中。本例使用的最笨的split()方法。
因为涉及到网络请求，还是那句话，该实例不能保证任何时候都有效，有时候会因为网络、网站等问题出现异常情况，有时候可能会出现异常，需要多次尝试。
好了，以上就是今天的全部分享内容。
-什么，看不太懂？
-没事，会用鼠标点击就行。
感兴趣的话，可以在公号内回复「汉字」或者点击这里获取vba文件，鼠标一键搞定~~
欢迎交流！
