如何使用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

改变它,你的代码应该工作.(它至少对我有用).