轻松获取Excel安装路径

2024-06-16 13:45| 来源: 网络整理| 查看: 265

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\

是不是很简单！

【本文地址】

公司简介

联系我们