用VBA代码打开非*.mdb扩展名的access数据库

最新推荐文章于 2022-08-05 14:18:15 发布

转载最新推荐文章于 2022-08-05 14:18:15 发布 · 1.2k 阅读

文章标签：

#access #vba #扩展 #microsoft #数据库 #shell

VBA教程专栏收录该内容

18 篇文章

订阅专栏

本文介绍两种打开Access数据库的方法：一是通过Shell命令将mdb文件临时更改为txt文件后使用Shell指令打开；二是利用VBA代码通过创建Access.Application对象并调用其OpenCurrentDatabase方法来打开指定路径下的数据库。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

第一种方法：
用Shell命令（calc.Mdb改名为calc.txt）：
Shell "msaccess c:/windows/desktop/calc.txt"

第二种方法：

也可以用Access.Application对象调用：
' 在模块的声明节中包含以下语句。
Dim appAccess As Access.Application
'(appAccess为模块级变量，详见帮助里OpenCurrentDatabase 方法示例)
' 将字符串初始化为数据库的路径。

Private Sub Command0_Click()
Dim strDB As String
strDB = CurrentProject.Path & "/DB3.MDB"
' 创建 Microsoft Access 的实例。
Set appAccess = _
CreateObject("Access.Application")
' 在 Microsoft Access 窗口中打开数据库。
appAccess.OpenCurrentDatabase strDB
appAccess.Visible = True
End Sub

试用成功