sql - 如何使用 VBA 创建空白的 MS Access 数据库？

Question

我是个菜鸟，试图在 Excel 中使用 VBA 创建空白的 MS Access 数据库。我想将新数据库命名为“tblImport”。这是我正在使用的代码:

   Sub makedb()
   Dim accessApp As Access.Application
   Set accessApp = New Access.Application
   accessApp.DBEngine.CreateDatabase "C:\tblImport.accdb", dbLangGenera
   accessApp.Quit
   Set accessApp = Nothing
   End Sub

我收到以下错误消息:

“运行时错误 3001:应用程序定义或对象定义错误”

我能做什么？

Answer 1

CreateDatabase 方法中的语言环境常量名称错误:

这个:
accessApp.DBEngine.CreateDatabase "C:\tblImport.accdb", dbLangGenera

应该是:
accessApp.DBEngine.CreateDatabase "D:\tblImport.accdb", DB_LANG_GENERAL

更改它，您的代码应该可以工作。 (至少对我来说是这样)。