VBA解压缩ZIP文件00

记录下自己学习使用VBA实现解压ZIP的过程，主要参考文章： http://www.cnblogs.com/esingchan/p/3958962.html

只使用VBA语言本身的一些东西：

• Sub、Function：这个肯定是少不了的！
• Open、Get、Write：文件的读写操作
• Type：结构体
• Enum：枚举
• Class：类模块
• Array：数组
• For、While：循环语句
• If：判断语句

都是VBA中比较基础的东西，没有使用外部对象（字典等）以及调用API等。

什么是ZIP

使用过电脑的应该都接触过ZIP文件，比如Windows系统，选择文件或者文件夹，右键点击发送到压缩(zipped)文件夹，这个就是完成了对文件的压缩，所使用的压缩文件格式就是ZIP，生成的文件后缀就是.zip。

基本上所有的压缩软件都支持这种格式的压缩和解压缩，比如7z压缩软件：

更为常见的应该就是2007版本以上的Office文件了，包括Excel、Word、PPT等，默认都是使用ZIP格式保存文件的，可以将文件的后缀修改为.zip后，直接双击打开，Windows系统也是自带了压缩和解压缩ZIP功能的：

有什么作用

实现这么一个功能其实没什么很大作用，而且支持ZIP压缩和解压缩的东西应该非常的多，但是个人认为通过这么一个学习过程，对本身VBA的学习还是很有帮助的。

另外可以使用VBA代码在内存中解压缩ZIP数据，在某些场合还是可以用到的。