VBA使用Shell調用winrar進行壓縮和解壓縮

調用Winrar壓縮文件

Private Sub gf_ZipOrRar()
'將D盤的 Access交流網(wǎng)文件夾 壓縮為AccessCn.rar文件
Shell App.Path + "\WinRar.exe M C:\AccessCn.rar D:\Access交流網(wǎng)"
End Sub

調用Winrar解壓縮文件

Private Sub gf_UnZipOrRar()
'將AccessCn.rar壓縮文件解壓縮在C盤下
Shell App.Path + "\WinRar.exe X C:\AccessCn.rar C:"
End Sub