如何将excel导入到带密码的Access数据库

[zq102605]

我以前使用下面的代码没有问题的
Dim db As dao.Database
Set db = OpenDatabase(sExcelPath, True, False, "Excel 5.0")
db.Execute ("Insert into [;database=" & sAccessDBPath & "]." & _
sAccessTable & " select * FROM [" & sSheetName & "$] " & sCon)

但现在access数据库加密码了，打开时会报密码错误，如何把密码作为参数传进去？

[zq102605]

up

[zq972]

为什么不打开access，然后把excel的数据导进去呢

[zq102605]

当时自己试了，好像不太行
您有具体代码么？
发过来看看

[of123]

Dim db As dao.Database

Set db = OpenDatabase(sAccessDBPath)
db.Execute ("Insert into " & sAccessTable & _
" Select * FROM [" & sSheetName & "$] In """ & _
sExcelPath & """ ""Excel 5.0""" & sCon)

[of123]

忘记了，先用密码打开 Access 库：

Dim db As dao.Database

Set db = OpenDatabase(sAccessDBPath, False, False, ";Pwd=密码")
db.Execute ("Insert into " & sAccessTable & _
" Select * FROM [" & sSheetName & "$] In """ & _
sExcelPath & """ ""Excel 5.0""" & sCon)

[zq102605]

呵呵，那要是excel 和access都加密码了呢

[zq102605]

我按照您的方法去做了，但是不行
Insert into pool Select * FROM [pool$] In "F:\sam\FRDMb.xls" "Excel 5.0"

报错：不可识别的数据库格式 'F:\sam\备份\trace\trace\Trace(CHN)\Developer\mb\FRDMB.xls'。