一、_壓縮檔案

"Shell函式

"Shell執行一個可執行檔案.返回一個 Variant (Double)，如果成功的話，代表這個程式的任務 ID，若不成功，則會返回 0。

"語法：

"Shell("可執行程式的路徑 檔名或命令列",視窗的顯示方式)

Sub 用繪圖程式開啟圖片()

Dim mysh

mysh = Shell("mspaint.exe " & ThisWorkbook.path & "\pic.jpg", vbMaximizedFocus)

End Sub。

"WinRar命令的命令列表示方法

" WinRar程式路徑 命令 開關1 開關2 開關3..開關N 壓縮包路徑 壓縮的檔案路徑

"命令是指要進行怎麼樣的操作，如A是壓縮，X是解壓縮

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 = ThisWorkbook.path & "\A.rar" "壓縮後的檔名

Myfile = ThisWorkbook.path & "\B*.xls" " 指定要壓縮的檔案

FileString = Rarexe & " A " & myRAR & " " & Myfile "rar程式的A命令壓縮檔案的字串

Result = Shell(FileString, vbHide) "執行壓縮

End Sub

"如果檔名使用萬用字元,可以對同類的檔案進行和壓縮,

"如果只有路徑沒有檔名,則會把這個資料夾進行壓縮

Sub RarFile2() "多個檔案壓在一起

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 = ThisWorkbook.path & "\B.rar" "壓縮後的檔名

" Myfile = ThisWorkbook.path & "\B\*.xls" " 指定要壓縮的檔案型別

Myfile = ThisWorkbook.path & "\B\" " 指定要壓縮的資料夾路徑

FileString = Rarexe & " A " & myRAR & " " & Myfile "rar程式的A命令壓縮檔案的字串

Result = Shell(FileString, vbHide) "執行壓縮

End Sub。