officeba > 单独文章

---

利用VBA实现压缩文件

有些朋友想过用VBA来实现压缩文件，但不知如何弄，其实这个就VBA利用WINRAR的一些命令通过 SHELL这个函数来实现!
先来为大家说说Shell函数：
    Shell函数是VB中的内部函数，它负责执行一个可执行文件，返回一个Variant(Double)，如果成功的话，代表这个程序的进程ID，若不成功，则会返回0。(PS:Excel吧: http;//www.excelba.com，这个函数也可以在VBA中使用。)
    Shell的语法是：Shell(PathName[，WindowStyle])。
    PathName：为必需参数。类型为String，它指出了要执行的程序名，以及任何需要的参数或命令行变量，也可以包括路径名。
    WindowStyle：为可选参数。Integer类型，指定在程序运行时窗口的样式。WindowStyle有以下这些值。
    常量值 描述
    VbHide  0  窗口被隐藏，且焦点会移到隐式窗口。
    VbNormalFocus  1  窗口具有焦点，且会还原到它原来的大小和位置。
    VbMinimizedFocus  2  窗口会以一个具有焦点的图标来显示（缺省值）。
    VbMaximizedFocus  3  窗口是一个具有焦点的最大化窗口。
    VbNormalNoFocus  4  窗口会被还原到最近使用的大小和位置，而当前活动的窗口仍然保持活动。
    VbMinimizedNoFocus  6  窗口会以一个图标来显示，而当前活动的窗口仍然保持活动。
再介绍下所需要结合运用的WinRar的用法
    主要介绍以下如何在WinRar中用命令行来压缩和解压缩文件?
　　压缩：WINRAR A [-switches] [Files] [@Filelists]
　　例如你想把try.mdb压缩到C盘下，可以WINRAR A C:\try.rar C:\try.mdb
      解压缩：如果带目录解压缩
　　WINRAR X [-switches] [Files] [@Filelists] [destionationfolder]
　　如果在当前目录解压缩，即解压缩时不写目录名
　　WINRAR E [-switches] [Files] [@Filelists] [destionationfolder]
　　例如你想把try.rar解压缩到C盘下，可以WINRAR X C:\try.rar C:\try.mdb
最后以一个实际例子给大家一个参考
　　在VBA中新建一个模块，在模块中添加两个子程序压缩文件和解压缩文件。

    压缩文件子程序是把文件try.mdb压缩成try.rar。
    Sub 压缩文件()
        Dim Rarexe As String 'WINRAR执行文件的位置
        Dim Source As String '压缩前的原始文件
        Dim Target As String '压缩后的目标文件
        Dim FileString As String 'Shell指令中的字符串
        Dim Result As Long
        Rarexe = "C:\program files\winrar\winrar"
        Source = "C:\try.mdb"
        Target = "C:\try.rar"
        FileString = Rarexe & " a " & Target & " " & Source
        Result = Shell(FileString, vbHide)
    End Sub

　　解压的过程类似，解压缩文件子过程是把try.rar解压生成try.mdb。在执行了上面的压缩过程后，可以删除文件try.mdb，来解压缩重新生成try.mdb。
    Sub 解压缩文件()
        Dim Rarexe As String 'WINRAR执行文件的位置
        Dim Source As String '解压缩前的原始文件
        Dim Target As String '解压缩后的目标文件
        Dim FileString As String 'Shell指令中的字符串
        Dim Result As Long
        Rarexe = "C:\program files\winrar\winrar"
        Source = "C:\try.rar"
        Target = "C:\try.mdb"
        FileString = Rarexe & " X " & Source & " " & Target
        Result = Shell(FileString, vbHide)
    End Sub

声明：欢迎各大网站转载本站文章，还请保留一条能直接指向本站的超级链接，谢谢！

时间:2009-05-09 21:13:53,点击:65824