Excel由于本身的局限性，存儲(chǔ)數(shù)據(jù)量過大的時(shí)候，往往會(huì)導(dǎo)致工作簿假死無反應(yīng)，電腦卡頓等情況。那么，將數(shù)據(jù)存取到Access數(shù)據(jù)庫中就是一種好的解決方法。今天，我們談?wù)勗趺词褂肊xcel VBA來創(chuàng)建數(shù)據(jù)庫，數(shù)據(jù)表的幾種方法。

本次所有方法創(chuàng)建的數(shù)據(jù)表如下圖：

方法一：使用Access.Application（Access對(duì)象庫）創(chuàng)建數(shù)據(jù)庫。

在編寫代碼之前，我們需要先引用Access對(duì)象庫。操作方法：單擊VBE窗口上的【工具】按鈕，在彈出的快捷菜單中單擊【引用】按鈕，

接下來，在彈出的對(duì)話框選擇【Microsoft Access 16.0 Object Library】。單擊確定即引用了Access對(duì)象庫。

注意：不同Office版本的Access對(duì)象庫名稱略有不同。如下表：

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

這樣，我們就搭建好了編程環(huán)境，然后輸入下圖代碼即可。

方法二：使用DAO對(duì)象（Data Access Object）創(chuàng)建數(shù)據(jù)庫(已被ADOX取代)。

DAO(Data Access Object) 數(shù)據(jù)訪問對(duì)象是一個(gè)面向?qū)ο蟮臄?shù)據(jù)庫接口，它顯露了 Microsoft Jet 數(shù)據(jù)庫引擎（由 Microsoft Access 所使用），并允許 Visual Basic 開發(fā)者通過 ODBC 像直接連接到其他數(shù)據(jù)庫一樣，直接連接到 Access 表。DAO 最適用于單系統(tǒng)應(yīng)用程序或小范圍本地分布使用。

同樣在編寫代碼之前，我們需要先引用DAO對(duì)象庫。操作方法：單擊VBE窗口上的【工具】按鈕，在彈出的快捷菜單中單擊【引用】按鈕，接下來，在彈出的對(duì)話框選擇【Microsoft DAO 3.6 Object Library】。單擊確定即引用了DAO對(duì)象庫。

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

然后輸入如下代碼即可。

DAO創(chuàng)建數(shù)據(jù)庫方法：

Workspace.CreateDatabase(Name,Locale,Options)

Workspace：表示使用的工作環(huán)境，一般省略。

Name ：數(shù)據(jù)庫路徑和名稱

Locale ：指定字符串比較的規(guī)則

Options ：可選項(xiàng)，指定數(shù)據(jù)格式的版本及數(shù)據(jù)庫是否加密

DAO創(chuàng)建數(shù)據(jù)表方法：

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

database ：數(shù)據(jù)庫對(duì)象

name ：數(shù)據(jù)表名稱

attributes ：表的特征

source ：外部數(shù)據(jù)表的名稱

connect ：數(shù)據(jù)源信息

方法三：使用ADOX對(duì)象（Microsoft ActiveX Data Objects Extensions for Data Definition Language and Security）創(chuàng)建數(shù)據(jù)庫。

Microsoft ActiveX Data Objects Extensions for Data Definition Language and Security (ADOX) 是對(duì) ADO 對(duì)象和編程模型的擴(kuò)展。它可用于創(chuàng)建、修改和刪除模式對(duì)象。它還包括安全對(duì)象，可用于維護(hù)用戶和組，以及授予和撤消對(duì)象的權(quán)限。 要通過開發(fā)工具使用 ADOX，需要建立對(duì) ADOX 類型庫的引用'Microsoft ADO Ext. for DDL and Security'。

同樣在編寫代碼之前，我們需要先引用ADOX對(duì)象庫。操作方法：單擊VBE窗口上的【工具】按鈕，在彈出的快捷菜單中單擊【引用】按鈕，接下來，在彈出的對(duì)話框選擇【Microsoft ADO Ext 6.0 for DDL and Security】。單擊確定即引用了ADOX對(duì)象庫。

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

然后輸入如下代碼即可。

ADOX創(chuàng)建數(shù)據(jù)庫方法：myCat.Create (ConnectString)

myCat ：ADOX.Catalog對(duì)象

ConnectString：數(shù)據(jù)庫連結(jié)字

連結(jié)字：

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

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

ADOX創(chuàng)建數(shù)據(jù)表方法：myCat.Tables.Append(Item)

myCat.Tables：ADOX數(shù)據(jù)表對(duì)象

Item ：數(shù)據(jù)表對(duì)象

方法四：使用ADO對(duì)象（Microsoft ActiveX Data Objects）+ADOX對(duì)象（Microsoft ActiveX Data Objects Extensions for Data Definition Language and Security）+SQL語句創(chuàng)建數(shù)據(jù)庫。

ADO (ActiveX Data Objects，ActiveX數(shù)據(jù)對(duì)象）是Microsoft提出的應(yīng)用程序接口（API）用以實(shí)現(xiàn)訪問關(guān)系或非關(guān)系數(shù)據(jù)庫中的數(shù)據(jù)。例如，如果您希望編寫應(yīng)用程序從DB2或Oracle數(shù)據(jù)庫中向網(wǎng)頁提供數(shù)據(jù)，可以將ADO程序包括在作為活動(dòng)服務(wù)器頁（ASP）的HTML文件中。當(dāng)用戶從網(wǎng)站請(qǐng)求網(wǎng)頁時(shí)，返回的網(wǎng)頁也包括了數(shù)據(jù)中的相應(yīng)數(shù)據(jù)，這些是由于使用了ADO代碼的結(jié)果。

其中ADO+SQL用于創(chuàng)建表和字段，ADOX用于創(chuàng)建數(shù)據(jù)庫。

同樣在編寫代碼之前，我們需要先引用ADO對(duì)象庫和ADOX對(duì)象庫（引用ADOX對(duì)象庫見方法三）。操作方法：單擊VBE窗口上的【工具】按鈕，在彈出的快捷菜單中單擊【引用】按鈕，接下來，在彈出的對(duì)話框選擇【Microsoft ActiveX Data Object 6.0 Library】。單擊確定即引用了ADO對(duì)象庫。

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

然后輸入如下代碼即可。