借助RAR使用Excel批量压缩指定目录下的文件

轩辕轼轲 · 发表于 2011-2-17 11:41

本帖最后由爱疯于 2012-11-5 19:00 编辑

前面我发过一个帖子，介绍如何通过Shell使用RAR来压缩文件。
帖子地址：利用VBA与WinRAR来压缩文件
http://www.excelpx.com/forum.php?mod=viewthread&tid=159899&fromuid=390587
有朋友在回帖中问如何批量压缩文件，现在我就再发一段代码，实现指定目录下的文件批量压缩。
[hide]

Sub 用RAR压缩文件()
'轩辕轼轲编写
Rarexe = "C:\program files\winrar\winrar" 'RAR的路径
SourcePath = "C:\Test" '需要压缩的文件的目录
TargetPath = "C:\Result" '压缩结果的存放目录
Temp = Dir(SourcePath & "*.*") '取文件目录下的文件列表
Do While Len(Temp) '开始循环
Target = TargetPath & Split(Split(Temp, "")(UBound(Split(Temp, ""))), ".")(0) & ".RAR"
'目标文件
Source = SourcePath & Temp
'源文件
FileString = Rarexe & " a -ep1" & Target & " " & Source
'生成压缩命令字符串
Result = Shell(FileString, vbHide)
'用Shell执行压缩
Temp = Dir
'获取下一个文件
Loop '循环标记
'注意：文件名称中不能包含空格、﹟、★之类的特殊符号，否则RAR会压缩失败
End Sub

复制代码

[/hide
]

nothingwmm · 发表于 2011-2-17 12:12

本帖最后由 nothingwmm 于 2011-2-17 12:17 编辑

谢谢车车的代码
Target = TargetPath & Split(Split(Temp, "\")(UBound(Split(Temp, "\"))), ".")(0) & ".RAR"
有点难懂这句。

有个初学者 · 发表于 2011-2-17 12:58

顶贴拿分自力更生等下发新帖大家来帮忙

wiexcel · 发表于 2011-2-17 13:06

学习车版的代码
不知道能不能看懂

轩辕轼轲 · 发表于 2011-2-17 13:59

nothingwmm 发表于 2011-2-17 12:12
谢谢车车的代码
Target = TargetPath & Split(Split(Temp, "\")(UBound(Split(Temp, "\"))), ".")(0) & " ...

这句就是把文件的名字取出来。
比如：C：\Text\测试.xls 把测试两个字从路径里面提取出来。呵呵。

nothingwmm · 发表于 2011-2-18 21:18

轩辕轼轲发表于 2011-2-17 13:59
这句就是把文件的名字取出来。
比如：C：\Text\测试.xls 把测试两个字从路径里面提取出来。呵呵。

哈哈终于看懂了 split了半天

simonguo · 发表于 2011-2-20 08:10

看看呢{:011:}

trainerliulin · 发表于 2011-10-3 19:28

study hard !!

oliversio · 发表于 2012-5-10 22:25

studying thx看看先

Cashios · 发表于 2012-7-27 09:05

不知道能不能实现我想要的。。。

		自动登录	找回密码
密码			注册

[分享] 借助RAR使用Excel批量压缩指定目录下的文件

评分

评分