如何實(shí)現(xiàn)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è)模塊，使用代碼來實(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:\MyFolder\MyWorkbook.xls;"&_

"Extended Properties=Excel 8.0;"

.Open '打開連接

End With

End Sub