获取access安装路径的二法

时　间:2010-03-08 22:34:54
作　者:江羽   ID：3967  城市：南昌
摘　要:获取ACCESS安装路径二法分享
正　文:

我们VBA编程中，有时需要获取 Msaccess.exe 安装路径，如：用 shell  方法启动带工作组mdb项目时，就必须指定 Msaccess.exe 的安装路径。下面介绍两种方法：

方法一：通过SysCmd函数

Debug.print SysCmd(acSysCmdAccessDir)

方法二：通过注册表键值获取

'------------------------------------------------------

' 功  能：读取注册表指路径键值

' 输  入：strRegKey 字符串变量，指定注册表键值路径

' 输  出：RegRead  字符串变量，输出所获得路径

'------------------------------------------------------

Private ER_CrpShell As Object

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")

复制代码以上二种方法可放到按钮单击事件中测试，再按 " Ctrl+G " 在VBA编辑器中的立即窗口查看结果。（以上方法仅供参考）

WORD文稿:点击下载此附件