引言

工作中常常用到压缩文件或将文件压缩的问题，为了提高工作效率，这次来分享一下vba中的文件压缩和解压缩的代码，需要用到的软件winrar的命令行命令。

重点

shell函数

它是vba自带的函数，是应用程序和系统之间的桥梁。用法就是执行一个可执行文件。与开始菜单的运行功能一样。

语法：Shell(pathname[,windowstyle])
- pathname 是要执行的程序名，可能还包括目录或文件夹
- Windowstyle 表示在程序运行时窗口的样式
e.g.
```
'给出路径直接执行Winamp.exe程序。
Shell("C:\Program Files\Winamp\Winamp.exe", 1)  
```

winrar命令行

语法： rar <命令> -<开关 1> -<开关 N> <压缩文件> <文件...>
<@列表文件...> <解压路径/>

参数说明：

<命令>
  a             添加文件到压缩文件
  c             添加压缩文件注释
  cf            添加文件注释
  cw            写入压缩文件注释到文件
  d             删除压缩文件中的文件
  e             解压压缩文件到当前目录
  f             刷新压缩文件中的文件
  i[参数]=<串>  在压缩文件中查找字符串
  k             锁定压缩文件
  l[t,b]        列出压缩文件[技术信息,简洁]
  m[f]          移动到压缩文件[仅对文件]
  p             打印文件到标准输出设备
  r             修复压缩文件
  rc            重建丢失的卷
  rn            重命名压缩文件
  rr[N]         添加数据恢复记录
  rv[N]         创建恢复卷
  s[名字|-]     转换压缩文件为自解压格式或转换回压缩文件
  t             测试压缩文件
  u             更新压缩文件中的文件
  v[t,b]        详细列出压缩文件[技术信息,简洁]
  x             用绝对路径解压文件

<开关>
  -             停止扫描
  ac            压缩或解压后清除存档属性
  ad            添加压缩文件名到目标路径
  ag[格式]      使用当前日期生成压缩文件名
  ao            添加具有压缩属性的文件
  ap<格式>      添加路径到压缩文件中
  as            同步压缩文件内容
  av            添加用户身份校验(仅注册版本可用)
  av-           禁用用户身份校验
  c-            禁用注释显示
  cfg-          禁用读取配置
  cl            名称转换为小写
  cu            名称转换为大写
  df            压缩后删除文件
  dh            打开共享文件
  ds            对固实压缩文件禁用名称排序
  e[+]<属性>    设置文件排除和包括属性
  ed            不添加空目录
  en            不添加"压缩文件结束"标志
  ep            从名称中排除路径
  ep1           从名称中排除基本目录
  ep2           展开为完整路径
  ep3           扩展路径为包含盘符的完全路径
  f             刷新文件
  hp[密码]      同时加密文件数据和文件头
  id[c,d,p,q]   禁用消息
  ieml[属性]    用 E-mail 发送压缩文件
  ierr          发送所有消息到标准错误设备
  ilog[名称]    把错误写到日志文件(只有注册版本可用)
  inul          禁用所有消息
  ioff          完成一个操作后关闭 PC 电源
  isnd          启用声音
  k             锁定压缩文件
  kb            保留损坏的已解压文件
  m<0..5>       设置压缩级别(0-存储...3-默认...5-最大)
  mc<参数>      设置高级压缩参数
  md<大小>      以KB为单位的字典大小(64,128,256,512,1024,2048,4096 or A-G)
  ms[ext;ext]   指定存储的文件类型
  n<文件>       仅包含指定的文件
  n@            从标准输入设备读取文件名到包括
  n@<列表>      在指定的文件列表包括文件
  o+            覆盖已存在文件
  o-            不覆盖已存在文件
  oc            设置 NTFS 压缩属性
  os            保存 NTFS 流
  ow            保存或恢复文件所有者和组
  p[密码]       设置密码
  p-            不询问密码
  r             递归子目录
  r0            仅递归通配符名称的子目录
  ri<P>[:<S>]   设置优先级(0-默认,1-最小..15-最大)和以毫秒为单位的休眠时间
  rr[N]         添加数据恢复记录
  rv[N]         创建恢复卷
  s[<N>,v[-],e] 创建固实压缩文件
  s-            禁用固实压缩文件
  sfx[名称]     创建自解压压缩文件
  st[名称]      从标准输入设备读取数据(stdin)
  t             压缩后测试文件
  ta<日期>      添加日期 <日期> 后修改的文件,日期格式 YYYYMMDDHHMMSS
  tb<日期>      添加日期 <日期> 前修改的文件,日期格式 YYYYMMDDHHMMSS
  tk            保留原始压缩文件时间
  tl            设置压缩文件时间为最新文件时间
  tn<时间>      添加 <时间> 以后的文件
  to<时间>      添加 <时间> 以前的文件
  ts<m,c,a>[N]  保存或恢复文件时间(修改,创建,访问)
  u             更新文件
  v             自动检测创建卷的大小或者列出所有的卷
  v<大小>[k,b]  创建卷大小=<大小>*1000 [*1024, *1]
  vd            创建容量前清除磁盘内容
  ver[n]        文件版本控制
  vn            使用旧风格的卷命名方案
  vp            每卷之前暂停
  w<路径>       指定工作目录
  x<文件>       排除指定的文件
  x@            从标准输入设备读取要排除的文件名
  x@<列表>      排除指定列表文件中的文件
  y             假设对全部询问都回答是
  z<文件>       从文件读取压缩文件注释

e.g.

::解压缩f:\test.rar到文件夹f:\test\
C:\program files\winrar\winrar.exe X f:\test.rar f:\test\
::将f:\test\文件夹内容压缩成f:\test.rar
C:\program files\winrar\winrar.exe A f:\test\ f:\test.rar

代码

批量解压缩

将D:\test下的所有rar文件解压到D:\test。

Sub UnRarFile()   '解压缩程序
    Dim rarexe As String
    Dim rarfile As String
    Dim rarpath As String
    Dim rarcmd As String
    Dim result As Long
    'rar程序路径
    rarexe = "C:\program files\winrar\winrar.exe" 
    '需要解压缩的rar文件,用通配符可以解压所有文件
    rarfile = "D:\test\*.rar"  
    ' 解压后的文件存放路径
    rarpath = "D:\test\"     
    'rar程序的X命令，用来解压缩文件的字符串
    rarcmd = rarexe & " X " & rarfile & " " & rarpath 
    result = Shell(rarcmd, vbHide) '执行解压缩
End Sub

批量压缩文件

将D:\test下的所有文件压缩到D:\test.rar。

Sub RarFile()   '压缩程序
    Dim rarexe As String
    Dim rarfile As String
    Dim rarpath As String
    Dim rarcmd As String
    Dim result As Long
    'rar程序路径
    rarexe = "C:\program files\winrar\winrar.exe"
    '压缩后的文件名
    rarfile = "D:\test\test.rar"
    ' 指定要压缩的文件
    rarpath = "D:\test\*.*"
    'rar程序的A命令压缩文件的字符串
    rarcmd = rarexe & " A " & rarfile & " " & rarpath 
    result = Shell(rarcmd, vbHide) '执行压缩
End Sub