怎么用VBA压缩文件 及 解压

如何用VBA压缩文件 及 解压如何对C盘下的文件“C:\测试.xls”压缩变为“C:\测试.rar”（如何进行相反操作，即解压“C:\测试.rar”变为“C:\测试.xls”）。请高人指点！！——最佳解决方案——————————————————–

本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/northwolves/archive/2005/09/25/489106.aspx预备知识:1.Shell函数执行一个可执行文件，返回一个Variant(Double)，如果成功的话，代表这个程序的任务ID，若不成功，则会返回0。语法Shell(pathname[,windowstyle])Shell函数的语法含有下面这些命名参数：部分描述pathname必要参数。Variant(String)，要执行的程序名，以及任何必需的参数或命令行变量，可能还包括目录或文件夹，以及驱动器。Windowstyle可选参数。Variant(Integer)，表示在程序运行时窗口的样式。如果windowstyle省略，则程序是以具有焦点的最小化窗口来执行的。windowstyle命名参数有以下这些值：常量值描述vbHide0窗口被隐藏，且焦点会移到隐式窗口。VbNormalFocus1窗口具有焦点，且会还原到它原来的大小和位置。VbMinimizedFocus2窗口会以一个具有焦点的图标来显示。VbMaximizedFocus3窗口是一个具有焦点的最大化窗口。VbNormalNoFocus4窗口会被还原到最近使用的大小和位置，而当前活动的窗口仍然保持活动。VbMinimizedNoFocus6窗口会以一个图标来显示。而当前活动的的窗口仍然保持活动。说明如果Shell函数成功地执行了所要执行的文件，则它会返回程序的任务ID。任务ID是一个唯一的数值，用来指明正在运行的程序。如果Shell函数不能打开命名的程序，则会产生错误。注意缺省情况下，Shell函数是以异步方式来执行其它程序的。也就是说，用Shell启动的程序可能还没有完成执行过程，就已经执行到Shell函数之后的语句。2.WINRAR命令行语法从命令行也可以运行WinRAR命令，常规的命令行语法描述如下:WinRAR<命令>-<开关1>-<开关N><压缩文件><文件...><@列表文件...><解压路径\&;命令要WinRAR运行的字符组合代表功能开关切换操作指定类型，压缩强度，压缩文件类型，等等的定义。压缩文件要处理的压缩文件名。文件要处理的文件名。列表文件列表文件是包含要处理文件名称的纯文本。文件名应该在第一卷启动。可以在列表文件中使用//字符后添加注释。例如，你可以包含两列字符串创建backup.lst:c:\work\doc\*.txt//备份文本文档c:\work\image\*.bmp//备份图片c:\work\misc并接着运行:winrarabackup@backup.lst你可以在命令行中同时指定普通的文件名和列表文件名。解压路径只与命令e和x，搭配使用。指出解压文件添加的位置。如果文件夹不存在时，会自动创建。注意事项a)如果未指定文件或是列表文件时，WinRAR将会以缺省的*.*运行全部的文件;b)如果未指定压缩文件扩展名时，WinRAR将会使用在压缩配置中选定的默认压缩文件格式。但你可以指定.RAR或.ZIP扩展名来替换它们;c)在命令行所输入的开关会替换相同的配置设置值;d)在命令c、e、s、t、rr、k和x可在压缩文件名中使用通配符。如此可以用单个的命令来进行超过一个以上的压缩文件，除此之外，如果你指定-r开关于这些命令时，它们将会搜索在子文件夹中的压缩文件;e)某些命令和开关只应用在RAR压缩文件，有些则在RAR和ZIP都可使用，而某些则可应用在全部的压缩文件格式。这一些都得看压缩文件格式所提供的特性而定;f)命令和开关的大小写是相同意思的，你可以用大写或者小写来下命令均可。命令A-添加文件到压缩文件添加指定的文件和文件夹到压缩文件中。此命令行等同于添加。注意:因为分卷压缩文件修改是禁用的，此命令无法应用来更新分卷压缩文件，只用于创建时。示例:a)从当前文件夹添加全部*.hlp文件到压缩文件help.rar中WinRARahelp*.hlpb)从当前文件夹和子文件夹压缩全部文件成为362000字节大小、固实的、分卷自解压文件save.part1.exe，save.part2.rar，save.part3.rar等，并在每一个分卷中添加恢复记录WinRARa-r-v362-s-sfx-rrsave因为未指定文件名，全部文件(*.*)将会被添加。c)如果指定了文件夹名，并结合引用参数开关-r，这时整个文件夹和子文件夹的全部内容都会被添加到压缩文件中。下面的命令将会把文件夹Bitmaps中全部的文件添加到RAR压缩文件Pictures中WinRARa-rPictures.rarBitmaps当然这也可以使用常规格式用Bitmaps来代替Bitmaps\*.*。命令X-以完整路径名称从压缩文件解压压缩以完整路径解压文件和文件夹。保存在压缩文件中的文件夹架构，将会完整的还原恢复。此命令行等同于压缩文件管理命令解压类似的方法有命令e，此命令可以解压文件到当前文件夹或者指定的文件夹。例如，命令:WinRARxFonts*.ttf任何业绩的质变都来自于量变的积累。