excel vbADO控件引用 實現ADO控件引用的方法

excel vbADO控件引用 實現ADO控件引用的方法，【excel助手】今天為大家分享一篇干貨知識，如何設置excel vbADO控件引用countif函數查重復excel vbADO控件引用 實現ADO控件引用的方法”快跟著小編來看看這一干貨文章吧！

關系型數據庫系統中的表由行和列組成，這有些類似于Excel二維表格的樣子。由于Excel并不是關系型數據庫管理系統，在使用VBA對關系型數據庫進行訪問時，需要通過設置ADO來訪問關系型數據庫系統。本文介紹向工程中添加ADO引用的方法。

1、啟動Excel并創建文檔，打開Visual Basic編輯器，選擇“工具”|“引用”命令打開“引用”對話框，在對話框的“要使用的引用”列表中勾選"Microsoft ActiveX Data Objects 2.8"復選框，如圖1所示。單擊“確定”按鈕關閉對話框。

圖1　添加ADO引用

2、在完成引用的添加后創建一個模塊，使用代碼來實例化ADO對象，具體的程序代碼如下所示：

Sub InitialADO()

Dim cn As ADODB.Connection '定義一個ADO連接對象

Set cn=New ADODB.Connection '實例化ADO連接

With cn '指定連接信息

.Provider="Microsoft.Jet.OLEDB.4.0"

.ConnectionString="Data Source=C:MyFolderMyWorkbook.xls;"&_

"Extended Properties=Excel 8.0;"

.Open '打開連接

End With

End Sub