VBA壓縮與解壓縮源碼

VBA本身沒有壓縮和解壓縮的函數(shù)，但可調(diào)用zip.dll  unzip.dll 或 winrar.exe 命令行方式來實(shí)現(xiàn)對文件的壓縮與解壓縮

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) '執(zhí)行解壓縮
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) '執(zhí)行壓縮
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