VBA解压压缩文件。

VBA解压压缩文件调用的是WinRAR的命令。我们可以参考WinRAR帮助。解压文件的命令以及例子如下图：

vba里面使用shell运行命令。

代码很简单如下：

Sub jieya()
Shell "D:\Program Files\WinRAR\WinRAR.exe  X-Y C:\Users\FanXiaoLei\Desktop\京客隆销售数据.rar C:\Users\FanXiaoLei\Desktop\"
End Sub

      shell前面一段是winrar的完整路径，当然你可以加入环境变量。不过我没这么干。直接使用WinRAR的完整路径。下面解释一下代码中参数的意思。x就是一个J解压命令了。-Y开关表示对提示的问题都选择'是'。在解压一次后如果再次运行程序就会提示是否覆盖已经存在文件。这个开关Y就是消除提示的。直接覆盖了之前解压过的旧文件。然后后面加上要解压文件的完整路径，再敲一个空格，输入解压后的文件要存放的位置。这样就可以了。上面的代码的意思就是解压桌面上的"京客隆销售数据.rar"文件到桌面上。

------ending------