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

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


调用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

分享