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

關(guān)系型數(shù)據(jù)庫(kù)系統(tǒng)中的表由行和列組成，這有些類似于Excel二維表格的樣子。由于Excel并不是關(guān)系型數(shù)據(jù)庫(kù)管理系統(tǒng)，在使用VBA對(duì)關(guān)系型數(shù)據(jù)庫(kù)進(jìn)行訪問時(shí)，需要通過設(shè)置ADO來(lái)訪問關(guān)系型數(shù)據(jù)庫(kù)系統(tǒng)。本文介紹向工程中添加ADO引用的方法。

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

圖1　添加ADO引用

2、在完成引用的添加后創(chuàng)建一個(gè)模塊，使用代碼來(lái)實(shí)例化ADO對(duì)象，具體的程序代碼如下所示：

Sub InitialADO()

Dim cn As ADODB.Connection '定義一個(gè)ADO連接對(duì)象

Set cn=New ADODB.Connection '實(shí)例化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