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

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


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

分享