vba学习：文件的压缩与解压缩 |
您所在的位置：网站首页 › 如何解压单个文件夹 › vba学习：文件的压缩与解压缩 |
| 引言
工作中常常用到压缩文件或将文件压缩的问题，为了提高工作效率，这次来分享一下vba中的文件压缩和解压缩的代码，需要用到的软件winrar的命令行命令。 重点shell函数 它是vba自带的函数，是应用程序和系统之间的桥梁。用法就是执行一个可执行文件。与开始菜单的运行功能一样。 语法：Shell(pathname[,windowstyle]) pathname 是要执行的程序名，可能还包括目录或文件夹 Windowstyle 表示在程序运行时窗口的样式e.g. '给出路径直接执行Winamp.exe程序。 Shell("C:\Program Files\Winamp\Winamp.exe", 1) winrar命令行 语法： rar - - 参数说明： 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-存储...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[:] 设置优先级(0-默认,1-最小..15-最大)和以毫秒为单位的休眠时间 rr[N] 添加数据恢复记录 rv[N] 创建恢复卷 s[,v[-],e] 创建固实压缩文件 s- 禁用固实压缩文件 sfx[名称] 创建自解压压缩文件 st[名称] 从标准输入设备读取数据(stdin) t 压缩后测试文件 ta 添加日期 后修改的文件,日期格式 YYYYMMDDHHMMSS tb 添加日期 前修改的文件,日期格式 YYYYMMDDHHMMSS tk 保留原始压缩文件时间 tl 设置压缩文件时间为最新文件时间 tn 添加 以后的文件 to 添加 以前的文件 ts[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 参考资料http://club.excelhome.net/thread-1034804-1-1.html http://club.excelhome.net/thread-219468-1-1.html https://www.cnblogs.com/fetty/p/4769279.html |
今日新闻 |
点击排行 |
|
推荐新闻 |
图片新闻 |
|
专题文章 |
| CopyRight 2018-2019 实验室设备网 版权所有 win10的实时保护怎么永久关闭 |