Call UnRarFile("D:\压缩文件\")
Sub UnRarFile(myPath) '解压缩程序
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 = myPath & "*.zip " '需要解压缩的rar文件,用通配符可以解压所有文件
' Debug.Print myrar
FileString = Rarexe & " X -o+ " & myrar & myPath 'rar程序的X命令,用来解压缩文件的字符串,-o- 跳过已存在的文件,-o+ 直接覆盖己存在文件
' Debug.Print FileString
Result = Shell(FileString, vbHide) '执行解压缩
' Kill myrar
End Sub