VBA解壓壓縮檔案呼叫的是WinRAR的命令。我們可以參考WinRAR幫助。解壓檔案的命令以及例子如下圖：

vba裡面使用shell執行命令。

程式碼很簡單如下：

Sub jieya()
Shell "D:\Program Files\WinRAR\WinRAR.exe  X-Y C:\Users\FanXiaoLei\Desktop\京客隆銷售資料.rar C:\Users\FanXiaoLei\Desktop\"
End Sub

      shell前面一段是winrar的完整路徑，當然你可以加入環境變數。不過我沒這麼幹。直接使用WinRAR的完整路徑。下面解釋一下程式碼中引數的意思。x就是一個J解壓命令了。-Y開關表示對提示的問題都選擇'是'。在解壓一次後如果再次執行程式就會提示是否覆蓋已經存在檔案。這個開關Y就是消除提示的。直接覆蓋了之前解壓過的舊檔案。然後後面加上要解壓檔案的完整路徑，再敲一個空格，輸入解壓後的檔案要存放的位置。這樣就可以了。上面的程式碼的意思就是解壓桌面上的"京客隆銷售資料.rar"檔案到桌面上。

------ending------