Office中国论坛/Access中国论坛

标题: 获取ACCESS安装路径的二法(分享) [打印本页]

作者: tanhong 时间: 2008-10-9 18:31
标题: 获取ACCESS安装路径的二法(分享)
我们VBA编程中，有时需要获取 Msaccess.exe 安装路径，如：用 shell 方法启动带工作组mdb项目时，就必须指定 Msaccess.exe 的安装路径。下面介绍两种方法：

方法一：通过SysCmd函数

debug.print SysCmd(acSysCmdAccessDir)

复制代码

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

Private ER_CrpShell As Object
'------------------------------------------------------
'功能: 读取注册表指路径键值
'输入: strRegKey 字符串变量，指定注册表键值路径
'输出:　　RegRead 字符串变量，输出所获得路径
'------------------------------------------------------
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编辑器中的立即窗口查看结果。（以上方法仅供参考）

作者: ui 时间: 2008-10-9 18:35
我比较喜欢第一种方法

作者: tanhong 时间: 2008-10-9 18:39
那是，我也喜欢上面的方法，可以少打几个字，也不怎么容易出错。哈哈！

作者: tmtony 时间: 2008-10-9 20:29
如果电脑上安装了多个不同版本Access
只能取相应的路径,无法全取

作者: tanhong 时间: 2008-10-10 08:35

原帖由 tmtony 于 2008-10-9 20:29 发表
如果电脑上安装了多个不同版本Access
只能取相应的路径,无法全取

老大,电脑能同时安装多个版本吗? 这个我却没试过. 不知道如何安装.

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)