VBA创建Access数据库的4种方法

Excel由于本身的局限性，存储数据量过大的时候，往往会导致工作簿假死无反应，电脑卡顿等情况。那么，将数据存取到Access数据库中就是一种好的解决方法。今天，我们谈谈怎么使用Excel VBA来创建数据库，数据表的几种方法。

本次所有方法创建的数据表如下图：

方法一：使用Access.Application（Access对象库）创建数据库。

在编写代码之前，我们需要先引用Access对象库。操作方法：单击VBE窗口上的【工具】按钮，在弹出的快捷菜单中单击【引用】按钮，

接下来，在弹出的对话框选择【Microsoft Access 16.0 Object Library】。单击确定即引用了Access对象库。

注意：不同Office版本的Access对象库名称略有不同。如下表：

Microsoft Access 9.0 Object Library Microsoft 2000

Microsoft Access 10.0 Object LibraryMicrosoft 2002

Microsoft Access 11.0 Object LibraryMicrosoft 2003

Microsoft Access 12.0 Object LibraryMicrosoft 2007

Microsoft Access 14.0 Object LibraryMicrosoft 2010

Microsoft Access 15.0 Object LibraryMicrosoft 2013

Microsoft Access 16.0 Object LibraryMicrosoft 2016

这样，我们就搭建好了编程环境，然后输入下图代码即可。

方法二：使用DAO对象（Data Access Object）创建数据库(已被ADOX取代)。

DAO(Data Access Object) 数据访问对象是一个面向对象的数据库接口，它显露了 Microsoft Jet 数据库引擎（由 Microsoft Access 所使用），并允许 Visual Basic 开发者通过 ODBC 像直接连接到其他数据库一样，直接连接到 Access 表。DAO 最适用于单系统应用程序或小范围本地分布使用。

同样在编写代码之前，我们需要先引用DAO对象库。操作方法：单击VBE窗口上的【工具】按钮，在弹出的快捷菜单中单击【引用】按钮，接下来，在弹出的对话框选择【Microsoft DAO 3.6 Object Library】。单击确定即引用了DAO对象库。

注意：若Excel版本低于Excel 2003，则可能是【Microsoft DAO 3.51 Object Library】。

然后输入如下代码即可。

DAO创建数据库方法：

Workspace.CreateDatabase(Name,Locale,Options)

Workspace：表示使用的工作环境，一般省略。

Name ：数据库路径和名称

Locale ：指定字符串比较的规则

Options ：可选项，指定数据格式的版本及数据库是否加密

DAO创建数据表方法：

database.CreateTableDef(name,attributes,source,connect)

database ：数据库对象

name ：数据表名称

attributes ：表的特征

source ：外部数据表的名称

connect ：数据源信息

方法三：使用ADOX对象（Microsoft ActiveX Data Objects Extensions for Data Definition Language and Security）创建数据库。

Microsoft ActiveX Data Objects Extensions for Data Definition Language and Security (ADOX) 是对 ADO 对象和编程模型的扩展。它可用于创建、修改和删除模式对象。它还包括安全对象，可用于维护用户和组，以及授予和撤消对象的权限。 要通过开发工具使用 ADOX，需要建立对 ADOX 类型库的引用"Microsoft ADO Ext. for DDL and Security"。

同样在编写代码之前，我们需要先引用ADOX对象库。操作方法：单击VBE窗口上的【工具】按钮，在弹出的快捷菜单中单击【引用】按钮，接下来，在弹出的对话框选择【Microsoft ADO Ext 6.0 for DDL and Security】。单击确定即引用了ADOX对象库。

注意：若Excel版本低于Excel 2007，则可能是【Microsoft ADO Ext 2.x for DDL and Security】。

然后输入如下代码即可。

ADOX创建数据库方法：myCat.Create (ConnectString)

myCat ：ADOX.Catalog对象

ConnectString：数据库连结字

连结字：

Excel2007以下版本 Provider:=Microsoft.Jet.OLEDB.4.0;Data Source=

Excel2007以上版本Provider:=Microsoft.ACE.OLEDB.12.0;Data Source=

ADOX创建数据表方法：myCat.Tables.Append(Item)

myCat.Tables：ADOX数据表对象

Item ：数据表对象

方法四：使用ADO对象（Microsoft ActiveX Data Objects）+ADOX对象（Microsoft ActiveX Data Objects Extensions for Data Definition Language and Security）+SQL语句创建数据库。

ADO (ActiveX Data Objects，ActiveX数据对象）是Microsoft提出的应用程序接口（API）用以实现访问关系或非关系数据库中的数据。例如，如果您希望编写应用程序从DB2或Oracle数据库中向网页提供数据，可以将ADO程序包括在作为活动服务器页（ASP）的HTML文件中。当用户从网站请求网页时，返回的网页也包括了数据中的相应数据，这些是由于使用了ADO代码的结果。

其中ADO+SQL用于创建表和字段，ADOX用于创建数据库。

同样在编写代码之前，我们需要先引用ADO对象库和ADOX对象库（引用ADOX对象库见方法三）。操作方法：单击VBE窗口上的【工具】按钮，在弹出的快捷菜单中单击【引用】按钮，接下来，在弹出的对话框选择【Microsoft ActiveX Data Object 6.0 Library】。单击确定即引用了ADO对象库。

注意：若Excel版本低于Excel 2007，则可能是【Microsoft Active Data Object 2.x Library】。

然后输入如下代码即可。