怎么實現(xiàn)ADO控件引用？

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

圖1　添加ADO引用

2、在完成引用的添加后創(chuàng)建一個模塊，使用代碼來實例化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:\MyFolder\MyWorkbook.xls;"&_

"Extended Properties=Excel 8.0;"

.Open '打開連接

End With

End Sub