位置:首頁 > 軟件操作教程 > 辦公軟件 > Excel > 問題詳情

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

提問人:周麗平發(fā)布時間:2021-07-24

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

image.png

圖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

繼續(xù)查找其他問題的答案?

回復(fù)(0)
返回頂部