office交流網--QQ交流群號

Access培訓群:792054000         Excel免費交流群群:686050929          Outlook交流群:221378704    

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

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

2017-09-10 09:50:00
zstmtony
原創
5146


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

分享