我完全是一个菜鸟,试图用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:应用程序定义或对象定义错误”
我能做些什么?
发布于 2013-08-04 09:42:58
CreateDatabase方法中区域设置常量的名称错误:
这是:accessApp.DBEngine.CreateDatabase "C:\tblImport.accdb", dbLangGenera
应该是:accessApp.DBEngine.CreateDatabase "D:\tblImport.accdb", DB_LANG_GENERAL
改变这一点,你的代码就应该可以工作了。(至少对我来说是这样)。
发布于 2017-03-15 06: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
编辑:将删除此答案,并在帖子关闭后将其作为评论发布。
发布于 2014-01-02 16:35:29
老问题,但它对我很有用。看起来你甚至不需要访问对象。
Access.DBEngine.CreateDatabase "D:\tblImport.accdb", DB_LANG_GENERAL
对我来说很好。
https://stackoverflow.com/questions/18041448
复制