关系型数据库系统中的表由行和列组成，这有些类似于Excel二维表格的样子。由于Excel并不是关系型数据库管理系统，在使用VBA对关系型数据库进行访问时，需要通过设置ADO来访问关系型数据库系统。本文介绍向工程中添加ADO引用的方法。
1、启动Excel并创建文档，打开Visual Basic编辑器，选择“工具”|“引用”命令打开“引用”对话框，在对话框的“要使用的引用”列表中勾选"Microsoft ActiveX Data Objects 2.8"复选框，如图1所示。单击“确定”按钮关闭对话框。
图1 添加ADO引用2、在完成引用的添加后创建一个模块，使用代码来实例化ADO对象，具体的程序代码如下所示：
Sub InitialADO()
文章内容由强国说-WPS之家(wps.qiangguoshuo.com)收集于网络，希望能为您提供帮助。
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
转载声明：本站发布文章及版权归原作者所有，转载本站文章请注明文章来源！
