用VBA代码实现打开指定文件夹里面一个Access文件的方法。

'打开当前文件夹里面一个access文件的方法 Private Sub Command75_Click() '打开没密码的Access的文件 Dim Acc As New Access.Application Acc.Application.OpenCurrentDatabase CurrentProject.Path & "\Data无密码.mdb" Acc.UserControl = True '用户激活新打开的文件 End Sub

'打开指定路径文件夹里面一个access文件的方法 Private Sub Command75_Click() '打开没密码的Access的文件 Dim Acc As New Access.Application '打开D盘文件夹里面的数据库 Acc.Application.OpenCurrentDatabase "D:\Data无密码.mdb" Acc.UserControl = True '用户激活新打开的文件 End Sub

说 明 ：如需要打开accdb格式的数据库，则上面代码直接改成你的accdb后缀名的文件名称即可。

用Access VBA代码实现打开指定文件夹里面一个access文件的方法，用代码打开指定MDB数据库的命令，用代码打开指定ACCDB数据库的命令【Access软件网】