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:\MyFolder\MyWorkbook.xls;"&_
"Extended Properties=Excel 8.0;"
.Open '打开连接
End With
End Sub