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

tanhong

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

方法一：通过SysCmd函数

1. debug.print SysCmd(acSysCmdAccessDir)

复制代码

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

1. 
   
2. Private ER_CrpShell As Object
   
3. '------------------------------------------------------
   
4. '功  能:    读取注册表指路径键值
   
5. '输  入:    strRegKey 字符串变量，指定注册表键值路径
   
6. '输  出:　　RegRead  字符串变量，输出所获得路径
   
7. '------------------------------------------------------
   
8. Public Function RegRead(strRegKey As String) As String
   
9.     On Error Resume Next
   
10.     Set ER_CrpShell = CreateObject("WScript.Shell")
    
11.         RegRead = ER_CrpShell.RegRead(strRegKey)
    
12.     Set ER_CrpShell = Nothing
    
13. End Function
    
14. 
    
15. debug.print RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\msaccess.exe\path")
    
16. 
    

复制代码

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

ui

我比较喜欢第一种方法

tanhong

那是，我也喜欢上面的方法，可以少打几个字，也不怎么容易出错。哈哈！

tmtony

如果电脑上安装了多个不同版本Access
只能取相应的路径,无法全取

tanhong

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

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