如何使用VBA创建空白MS Access数据库？
如何使用VBA创建空白MS Access数据库？
提问于 2013-08-04 17:19:15
我完全是一个菜鸟，试图用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:应用程序定义或对象定义错误”
我能做些什么？
回答 4
Stack Overflow用户
回答已采纳
发布于 2013-08-04 17:42:58
CreateDatabase方法中区域设置常量的名称错误：
这是：accessApp.DBEngine.CreateDatabase "C:\tblImport.accdb", dbLangGenera
应该是：accessApp.DBEngine.CreateDatabase "D:\tblImport.accdb", DB_LANG_GENERAL
改变这一点，你的代码就应该可以工作了。(至少对我来说是这样)。
Stack Overflow用户
发布于 2017-03-15 14:11:25
老问题。这是我的两点意见。你有一个打字错误.dbLangGenera
应该是dbLangGeneral
关于它的更多信息，请参阅Workspace.CreateDatabase方法(DAO)
投票结束此问题用显而易见的答案处理问题
试试这个。这是可行的。
Sub makedb()
Dim accessApp As Access.Application
Set accessApp = New Access.Application
accessApp.DBEngine.CreateDatabase "C:\tblImport.accdb", dbLangGeneral
accessApp.Quit
Set accessApp = Nothing
End Sub编辑：将删除此答案，并在帖子关闭后将其作为评论发布。
Stack Overflow用户
发布于 2014-01-03 00:35:29
老问题，但它对我很有用。看起来你甚至不需要访问对象。
Access.DBEngine.CreateDatabase "D:\tblImport.accdb", DB_LANG_GENERAL对我来说很好。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/18041448
复制相关文章
相似问题
腾讯云开发者
