Excel实例下载
  VBA  应用教程
    数据库SQL知识
设为首页
利用VBA与WinRAR来压缩文件
作者:佚名 | 来源:eNet论坛 | 时间:2009-05-06 | 阅读权限:游客 | 会员币:0 | 【

在论坛中 http://www.excelba.com/BBs/Show.asp?bid=1&aid=2638 有朋友问到怎么用VBA来压缩文件,因此就在搜索中找一下相关的内容,感觉有点用处,就收录于此。

整个过程就是利用WinRAR的压缩命令来完成,而在VBA中利用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

看完了上面的介绍,你应该了解怎么在VBA是压缩文件了吧!

文章录入:admin | 浏览次数:
相关评论(以下网友评论只代表其个人观点,不代表Excel吧的观点或立场)
相关信息

关于本站 | 留言本站 | 友情连接 | 后台管理
Copyright © 2005 - 2008 Excel吧 Inc. All Rights Reserved.
HxCms Ver9.0  闽ICP备06001689号
关闭此窗口