'WINRAR安装路径
Sub GetWINRARPath()
Dim WSH As Object
Set WSH = CreateObject("Wscript.Shell")
MsgBox "WINRAR安装路径：" & WSH.RegRead("HKEY_LOCAL_MACHINE/Software/Microsoft/Windows/CurrentVersion/App Paths/winrar.EXE/Path")
End Sub
'EXCEL安装路径
Sub GetEXCELPath()
Dim WSH As Object
Set WSH = CreateObject("Wscript.Shell")
MsgBox "EXCEL安装路径：" & WSH.RegRead("HKEY_LOCAL_MACHINE/Software/Microsoft/Windows/CurrentVersion/App Paths/EXCEL.EXE/Path")
End Sub