網(wǎng)友們可能用過(guò)VBA來(lái)實(shí)現(xiàn)壓縮文件，其實(shí)就是VBA利用WINRAR的一些命令通過(guò) SHELL這個(gè)函數(shù)來(lái)實(shí)現(xiàn)!
先來(lái)為大家說(shuō)說(shuō)Shell函數(shù)：
Shell函數(shù)是VB中的內(nèi)部函數(shù)，它負(fù)責(zé)執(zhí)行一個(gè)可執(zhí)行文件，返回一個(gè)Variant(Double)，如果成功的話，代表這個(gè)程序的進(jìn)程ID，若不成功，則會(huì)返回0。(這個(gè)函數(shù)也可以在VBA中使用。)
Shell的語(yǔ)法是：Shell(PathName[，WindowStyle])。
PathName：為必需參數(shù)。類型為String，它指出了要執(zhí)行的程序名，以及任何需要的參數(shù)或命令行變量，也可以包括路徑名。
WindowStyle：為可選參數(shù)。Integer類型，指定在程序運(yùn)行時(shí)窗口的樣式。WindowStyle有以下這些值。
常量值 描述
VbHide  0  窗口被隱藏，且焦點(diǎn)會(huì)移到隱式窗口。
VbNormalFocus  1  窗口具有焦點(diǎn)，且會(huì)還原到它原來(lái)的大小和位置。
VbMinimizedFocus  2  窗口會(huì)以一個(gè)具有焦點(diǎn)的圖標(biāo)來(lái)顯示（缺省值）。
VbMaximizedFocus  3  窗口是一個(gè)具有焦點(diǎn)的最大化窗口。
VbNormalNoFocus  4  窗口會(huì)被還原到最近使用的大小和位置，而當(dāng)前活動(dòng)的窗口仍然保持活動(dòng)。
VbMinimizedNoFocus  6  窗口會(huì)以一個(gè)圖標(biāo)來(lái)顯示，而當(dāng)前活動(dòng)的窗口仍然保持活動(dòng)。
再介紹下所需要結(jié)合運(yùn)用的WinRar的用法
主要介紹以下如何在WinRar中用命令行來(lái)壓縮和解壓縮文件?
壓縮：WINRAR A [-switches] [Files] [@Filelists]
例如你想把Test.mdb壓縮到C盤下，可以WINRAR A C:\try.rar C:\Test.mdb
解壓縮：如果帶目錄解壓縮
WINRAR X [-switches] [Files] [@Filelists] [destionationfolder]
如果在當(dāng)前目錄解壓縮，即解壓縮時(shí)不寫目錄名
WINRAR E [-switches] [Files] [@Filelists] [destionationfolder]
例如你想把try.rar解壓縮到C盤下，可以WINRAR X C:\try.rar C:\Test.mdb
最后以一個(gè)實(shí)際例子給大家一個(gè)參考
在VBA中新建一個(gè)模塊，在模塊中添加兩個(gè)子程序壓縮文件和解壓縮文件。
壓縮文件子程序是把文件Test.mdb壓縮成try.rar。

Sub 壓縮文件()
Dim Rarexe As String 'WINRAR執(zhí)行文件的位置
Dim Source As String '壓縮前的原始文件
Dim Target As String '壓縮后的目標(biāo)文件
Dim FileString As String 'Shell指令中的字符串
Dim Result As Long
Rarexe = "C:\program files\winrar\winrar"
Source = "C:\Test.mdb"
Target = "C:\try.rar"
FileString = Rarexe & " a " & Target & " " & Source
Result = Shell(FileString, vbHide)
End Sub

解壓的過(guò)程類似，解壓縮文件子過(guò)程是把try.rar解壓生成Test.mdb。在執(zhí)行了上面的壓縮過(guò)程后，可以刪除文件Test.mdb，來(lái)解壓縮重新生成Test.mdb。

Sub 解壓縮文件()
Dim Rarexe As String 'WINRAR執(zhí)行文件的位置
Dim Source As String '解壓縮前的原始文件
Dim Target As String '解壓縮后的目標(biāo)文件
Dim FileString As String 'Shell指令中的字符串
Dim Result As Long
Rarexe = "C:\program files\winrar\winrar"
Source = "C:\try.rar"
Target = "C:\Test.mdb"
FileString = Rarexe & " X " & Source & " " & Target
Result = Shell(FileString, vbHide)
End Sub