VBA壓縮與解壓縮源碼

VBA本身沒有壓縮和解壓縮的函數，但可調用zip.dll  unzip.dll 或 winrar.exe 命令行方式來實現對文件的壓縮與解壓縮

Sub UnRarFile()   '解壓縮程序
  Dim Rarexe As String
  Dim RAR As String
  Dim Myadd As String
  Dim FileString As String
  Dim Result As Long
    Rarexe = "C:\program files\winrar\winrar.exe" 'rar程序路徑
    myRAR = "D:\工資錶\*.rar"  '需要解壓縮的rar文件,用通配符可以解壓所有文件
    Myadd = "D:\工資錶"     ' 解壓後的文件存放路徑
    FileString = Rarexe & " X " & myRAR & " " & Myadd 'rar程序的X命令，用來解壓縮文件的字符串
    Result = Shell(FileString, vbHide) '執行解壓縮
End Sub

Sub RarFile()   '壓縮程序
  Dim Rarexe As String
  Dim myRAR As String
  Dim Myfile As String
  Dim FileString As String
  Dim Result As Long
    Rarexe = "C:\program files\winrar\winrar.exe" 'rar程序路徑
    myRAR = "D:\工資錶\工資錶.rar"  '壓縮後的文件名
    Myfile = "D:\工資錶\*.xls"    ' 指定要壓縮的文件
    FileString = Rarexe & " A " & myRAR & " " & Myfile 'rar程序的A命令壓縮文件的字符串
    Result = Shell(FileString, vbHide) '執行壓縮
End Sub

Set oba = CreateObject("Wscript.shell")
'[壓縮]
oba.Run "winrar a c:\test.rar c:\*.txt",0,True
'[解壓縮]
oba.Run "winrar x -o+ C:\test.rar *.txt C:\test",0,True
Set oba = Nothing