会员登录 - 用户注册 - 网站地图 Office中国(office-cn.net),专业Office论坛
当前位置:主页 > 技巧 > Access技巧 > 编程心得绝招 > 经验泛谈 > 正文

获取ACCESS安装路径的二法(分享)

时间:2009-07-17 10:42 来源:www.office-cn.net 作者:江羽 阅读:
我们VBA编程中,有时需要获取 Msaccess.exe 安装路径,如:用 shell 方法启动带工作组mdb项目时,就必须指定 Msaccess.exe 的安装路径。下面介绍两种方法: 方法一:通过SysCmd函数 debug.print SysCmd(acSysCmdAccessDir) 方法二:通过注册表键值获取 Private ER_CrpShell As Object ’------------------------------------------------------ '功 能: 读取注册表指路径键值 '输 入: strRegKey 字符串变量,指定注册表键值路径 '输 出:  RegRead 字符串变量,输出所获得路径Office中国社区门户6]Y:mg*N9j+Pb ’------------------------------------------------------ Public Function RegRead(strRegKey As String) As String On Error Resume Next Set ER_CrpShell = CreateObject("WScript.Shell") RegRead = ER_CrpShell.RegRead(strRegKey) Set ER_CrpShell = Nothing End Function debug.print RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\msaccess.exe\path")

(责任编辑:admin)

顶一下
(0)
0%
踩一下
(0)
0%
发表评论
请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
评价: