作者：绿色风
分类：
时间：2022-08-17
浏览：139
楼主
chrisfang |
Q：如何调用WinRar进行文件压缩?
A：可以使用Shell函数调用。假设winrar程序安装在C:\Program Files\目录下，可以使用以下代码将D盘的test.xls文件压缩为test.rar文档：
- Shell "C:\Program Files\WinRAR\WinRAR.exe a -r " & "D:\test.rar D:\test.xls"
|
2楼
laoyebin |
- Sub zipFile()
- Dim winrarPath$, fullname$, filename$, filePath
- winrarPath = "c:\program files\winrar\winrar.exe a -afzip "
- filePath = Application.GetOpenFilename
- If filePath <> False Then
- fullname = StrReverse(Split(StrReverse(filePath), "\")(0))
- filename = Split(fullname, ".")(0)
- Shell winrarPath & filename & " " & fullname
- End If
- End Sub
|
3楼
sam.tan |
多谢分享. |
4楼
donghan |
发现VBA好像是万能的 |
5楼
wise |
Q:如何用VBA调用RAR压缩成ZIP文件?
A:ALT+F11→插入模块→输入以下代码：
- Sub zipfile()
- Dim rarway As String
- Dim Source As String ' 源文件
- Dim myfile As String ' 目标文件
- Dim Arrname, FilenameX As Variant
- rarway = "C:\Program files\Winrar\Winrar.exe a -afzip "
- FilenameX = Application.GetOpenFilename("待压缩的文件 (*.xls*),*.xls*")
- If FilenameX <> False Then
- Arrname = Split(FilenameX, "\") '取得文件名
- myfile = Arrname(UBound(Arrname))
- Source = Replace(FilenameX, myfile, "")
- Shell rarway & Mid(FilenameX, Len(FilenameX) - 6, 3) & " " & myfile
- End If
- End Sub
 压缩zip.rar
|
6楼
lrlxxqxa |
越来越感受到vba应用的强大了 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一