轻松获取Excel安装路径

最新推荐文章于 2023-05-29 10:44:16 发布

taller_2000

最新推荐文章于 2023-05-29 10:44:16 发布

阅读量8.1k

点赞数

分类专栏： VBA Excel 文章标签： Excel VBA 注册表 Wscript 安装路径

本文链接：https://blog.csdn.net/taller_2000/article/details/82624396

版权

VBA 同时被 2 个专栏收录

319 篇文章

订阅专栏

Excel

165 篇文章

订阅专栏

通过一段简单的Wscript代码读取注册表来确定Excel等Office组件的确切安装位置，解决64位Windows系统下寻找安装文件夹的困扰。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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