版权声明：本文为博主原创文章，转载请注明出处。 https://blog.csdn.net/taller_2000/article/details/82624396
Office软件安装之后，到底安装到哪个目录中了？安装时只记得不停的点Next，根本没有看是哪个目录。如果是64位的Windows操作系统，不但有C:\Program Files，还有C:\Program Files (x86)，着实让用户有些晕。
简单代码一段，就可以轻松找到Excel的藏身之处。利用Wscript读取注册表相关项目可以获取应用程序的安装目录。
Sub GetApplicationPath()
Dim objWSH As Object
Const STR_REG_KEY = "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\App Paths\EXCEL.EXE\Path"
Set objWSH = CreateObject("Wscript.Shell")
Debug.Print "EXCEL安装路径：" & objWSH.RegRead(STR_REG_KEY)
Set objWSH = Nothing
End Sub运行代码，结果如下。
EXCEL安装路径：C:\Program Files (x86)\Microsoft Office\Root\Office16\
是不是很简单！