NZ10：VBA压缩与解压工具

【分享成果，随喜正能量】万事万物皆有宿命，因果有轮回，善恶终有报。为人善良，会得到善果；为人恶毒，会得到恶果。人世间的因果报应，只是早晚的事。。

我的教程一共九套及VBA汉英手册一部，分为初级、中级、高级三大部分。是对VBA的系统讲解，从简单的入门，到数据库，到字典，到高级的网抓及类的应用。大家在学习的过程中可能会存在困惑，这么多知识点该如何组织成自己的程序呢？VBA可否能组织一个大型的程序呢？如何让VBA形成一个工具，拿来就用呢？在我的教程完结后，我陆续推出这类技术工具资料，这类工具整合了若干多的VBA知识点，让大家感受到VBA之强大。工具资料共两个系列，一个是YZ系列，一个是NZ系列。今日给大家介绍的是NZ系列工具：NZ10：VBA压缩与解压工具

NZ10 VBA压缩与解压工具

这个应用工具将展现给大家如何利用VBA代码将文件压缩与解压。由于VBA是一种寄生语言，这个压缩工具，使用默认的 Windows zip 解压缩文件程序。工具共提供两个程序文件，一个用于压缩VBA-ZIP.XLSM文件，一个用于解压VBA-UnZIP.XLSM文件。在工具中，我同时提供给大家一个用于测试的TestFolder文件夹，这个文件夹中有各种类型的随意文件。

工具是开放源码的（注意VBE的打开密码是123456789，但强烈建议您不要轻易打开代码窗口，即使打开也要留有备份）。

这个工具的相关内容用手工也可以完成，但我们可以利用VBA更加简单，同时代码可以加入其它代码中，完成更复杂的工作。

一文件的压缩

对于文件的压缩我提供了四个小项工具，如下图：

这四个小项分别是：1：压缩所选项的一个或多个文件 2： 压缩所选择的文件夹 3：压缩所设置的固定文件夹 4： 压缩当前工作簿。

下面就各个小项逐一说明。

1压缩所选项的一个或多个文件

我们点击相应的压缩按钮：

这个时候会弹出如下的对话框：

在这个界面我们可以选择将要压缩的文件：

我们选择测试文件夹下面的两个文件，点击“打开”按钮。

文件压缩 完成后，会有下面的提示：

回到当前文件，我们会看到相应的压缩文件：

2 压缩所选择的文件夹

第二个压缩选项是压缩所选择的文件夹，我们点击相应的压缩按钮：

步骤和第一个压缩选项的步骤类似，当我们选择给出的测试文件夹后，最后可以得到下面的压缩文件：

3压缩所设置的固定文件夹

第三个压缩文件选项是将要压缩的文件夹名称放在了程序中，这样可以省略选择的过程，当然，这项操作要求文件夹名称及位置必须是固定的。在这个工具中，程序中设定的是测试文件夹。

点击压缩按钮后，可以得到下面的压缩文件：

4 压缩当前工作簿

这个选项是将当前的工作簿压缩，点击压缩按钮后可以得到下面的压缩文件：

二文件的解压

这个工具，我提供了两个选项，1是浏览文件，选择要压缩的单个文件2 是浏览文件，选择要压缩的多个文件：

1浏览文件，选择要解压的单个文件

我们仍是先点击按钮：

这个时候会弹出下面的对话框：

此时我们可以选择要解压的文件，我们任意选择一个刚才测试后形成的文件：

点击打开，最后会有解压完成的提示：

在文件夹中我们可以找到这个文件：

2浏览文件，选择要解压的多个文件

这个解压工具选项和上一个基本是类似的，只不过是可以选择多个文件，我们测试一下，在弹出选择文件的窗口中我们选择多个文件：

最后会提示形成一个解压后的文件夹：

打开这个文件夹，我们会看到解压后的文件了：

三技术总结

NZ10工具利用到的技术总结如下：

1 文件的选择及复制

2文件夹的指定及创建

3shell函数的利用

4文件是否打开的判断

5split函数的替代方案

6文件名不重复的解决方案

【分享成果，随喜正能量】

下面是NZ系列VBA应用工具：

【分享成果，随喜正能量】真正能给你撑腰的，是丰富的知识储备，足够的经济基础，持续的情绪稳定，可控的生活节奏，和那个打不败的自己。。