VBA解压缩ZIP文件01——实现的功能

实现功能：

Parse

'解析zip文件，获取zip的压缩文件信息
'FileName   ZIP文件完整路径
'Return     返回出错信息
Function Parse(FileName As String) As String

这个函数是基础，只有先执行了这个函数，后面的函数才能正确执行。

UnZipAll

'解压缩所有文件，并保存为文件
'SavePath   保存文件的路径
'Return     返回出错信息
Function UnZipAll(SavePath As String) As String

UnZipFile

'解压某一个文件
'FileName   需要解压的文件名称，是ZIP压缩文件包中的文件名称
'RetByte    返回解压后的数据Byte数组
'Return     返回出错信息
Function UnZipFile(FileName As String, ByRef RetByte() As Byte) As String

UnZipIndex

'解压某一个文件
'IndexZeroBase  需要解压的文件下标，是ZIP压缩文件包中的文件下标
'RetByte        返回解压后的数据Byte数组
'Return         返回出错信息
Function UnZipIndex(IndexZeroBase As Long, ByRef RetByte() As Byte) As String

支持Mac版本Office：

因为是抱着学习的态度去做的，所以对于效率什么的就没有去考虑，能不用API和外部对象就尽量没有去使用，所以只要是支持VBA语言的都是可以使用的：