在 Excel VBA 中创建一个 DAO 访问文件

Question

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

我的参考是：MS office 14.0 ACCESS DATABASE OBJECT LIBRARY

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)

在 Excel VBA 中创建一个 DAO 访问文件

create an DAO Access file in Excel VBA

excel

vba

dao

ms-access-2010