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

Question

我以前使用下面的代码没有问题的
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数据库加密码了，打开时会报密码错误，如何把密码作为参数传进去？

Answer 1

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

Answer 2

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

Answer 3

忘记了，先用密码打开 Access 库：Dim db As dao.DatabaseSet db = OpenDatabase(sAccessDBPath, False, False, ";Pwd=密码")
db.Execute ("Insert into " & sAccessTable & _
            " Select * FROM [" & sSheetName & "$] In """ & _
            sExcelPath & """ ""Excel 5.0""" & sCon)

Answer 4

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

Answer 5

我按照您的方法去做了，但是不行
Insert into pool Select * FROM [pool$] In "F:\sam\FRDMb.xls" "Excel 5.0"报错：不可识别的数据库格式 'F:\sam\备份\trace\trace\Trace(CHN)\Developer\mb\FRDMB.xls'。