如何用代码打开另一有已知密码的mde文件？（附打开无密码的代码）

xryacc2

如何用代码打开另一有已知密码的mde文件？，以下是打开另一个无密码的mde文件的代码：
Dim appAccess As Access.Application
Dim patha as string, strDB As String
patha = CurrentProject.path
strDB = "" & patha & "\JFDATA\data.mde"
appAccess.OpenCurrentDatabase strDB
appAccess.Visible = True
Set appAccess = Nothing
如果data.mde有已知的密码（比如密码为000），如何用代码打开？谢谢！

ynjxw

Dim stAppName As String
Dim strFilename As String
strFilename = ShortName("D:\管理.mde")   ‘文件
stAppName = "MSAccess.exe " & strFilename
Call Shell(stAppName, 1)
SendKeys "478", True   '密码
SendKeys "{enter}", True

xryacc2

嗯，可以，只是要把shortname去掉。
不过这种打开方式，我还得试试如何控制文件中的对象。

liwen

试试：
appAccess.OpenCurrentDatabase strDB, , "密码"