| 我们VBA编程中，有时需要获取 Msaccess.exe 安装路径，如：用 shell 方法启动带工作组mdb项目时，就必须指定 Msaccess.exe 的安装路径。下面介绍两种方法： [b]方法一：通过SysCmd函数[/b] [code] debug.print SysCmd(acSysCmdAccessDir)[/code] [b]方法二：通过注册表键值获取[/b] [code] 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") [/code] 以上二种方法可放到按钮单击事件中测试，再按 " Ctrl+G " 在VBA编辑器中的立即窗口查看结果。（以上方法仅供参考）详细内容：http://www.office-cn.net/forum.php?mod=viewthread&tid=64987 |
|站长邮箱|小黑屋|手机版|Office中国/Access中国
( 粤ICP备10043721号-1 )
GMT+8, 2024-5-4 22:00 , Processed in 0.063797 second(s), 16 queries .
Powered by Discuz! X3.3
© 2001-2017 Comsenz Inc.
