我们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文稿:点击下载此附件