在Excel VBA中创build一个DAO Access文件

我无法使用下面的命令创build一个文件，任何人都可以在这方面帮助我。 它说的错误是无效的参数。 我得到了办公室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)