在 Excel VBA 中创建 DAO Access 文件

Question

我无法使用以下命令创建文件，任何人都可以在这方面帮助我。它说的错误是无效的参数。我得到了办公室2010。

我的参考是：MS OFFICE 14.0访问数据库对象库

Sub DBcreate()
Dim DB As DAO.Database
Dim RS As DAO.Recordset

Set DB = DAO.Workspaces(0).CreateDatabase("D:tblImport11.accdb",    DB_LANG_GENERAL)
      DB.Close
    'Set RS = Nothing
    Set DB = Nothing
End Sub

我也尝试过：

Set DB = DBEngine.CreateDatabase("D:tblImport11.accdb", DB_LANG_GENERAL)

这也给出了相同的错误

Answer 1

DB_LANG_GENERAL是错误的参数。用：

Set DB = DBEngine.CreateDatabase("D:tblImport11.accdb", dbLangGeneral)