Foxtable(狐表)用户栏目专家坐堂 → 如何用代码获取office的安装目录?


  共有3573人关注过本帖树形打印复制链接

主题:如何用代码获取office的安装目录?

帅哥哟,离线,有人找我吗?
爱好所有
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:266 积分:3646 威望:0 精华:0 注册:2012/5/25 15:31:00
如何用代码获取office的安装目录?  发帖心情 Post By:2020/9/27 11:06:00 [只看该作者]

 因为电脑同时安装有WPS和Office,默认是WPS,但有些文件有宏要office打开才正常,用绝对路径是没有问题的,但不是每台电脑安装目录都一样,我要怎么用代码获取office的安装目录呢?谢谢了!!

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111390 积分:567014 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/9/27 11:21:00 [只看该作者]

Dim regKey = Microsoft.Win32.Registry.LocalMachine
Dim regSubKey = regKey.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\Winword.exe", False)
Dim objResult = regSubKey.GetValue("Path")
msgbox(objResult )

 回到顶部
帅哥哟,离线,有人找我吗?
爱好所有
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:266 积分:3646 威望:0 精华:0 注册:2012/5/25 15:31:00
  发帖心情 Post By:2020/9/27 14:33:00 [只看该作者]

 谢谢

 回到顶部