office交流网--QQ交流群号

Access培训群:792054000         Excel免费交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

VBA使用Shell调用winrar进行压缩和解压缩

2017-09-10 09:50:00
zstmtony
原创
1342


调用Winrar压缩文件

Private Sub gf_ZipOrRar()
'将D盘的 Access交流网文件夹 压缩为AccessCn.rar文件
Shell App.Path + "\WinRar.exe M C:\AccessCn.rar D:\Access交流网"
End Sub


调用Winrar解压缩文件

Private Sub gf_UnZipOrRar()
'将AccessCn.rar压缩文件解压缩在C盘下
Shell App.Path + "\WinRar.exe X C:\AccessCn.rar C:"
End Sub

分享