Excel之VBA常用功能应用篇：ADO 数据管理应用，VBA编程之道

Excel 本质上是数据处理软件，无论是表格多么复杂，对于数据的运算是最基本的一个内容。

本节深入学习一下，如何运用ADO类进行数据操作方法。

ADO是英文ActiveX Data Object缩写，是一个数据对象。

应用之前要进行一项前期绑定，先添引用---"Microsoft ActiveX Data Objects 6.1"。

步骤：在Excel中按下Alt+F11键，打开VBE编辑器-工具-引用中添加"Microsoft ActiveX Data Objects 6.1"。

下图为本节示例：

编辑了一个窗体对话框，可实现对工作表的修改操作。

如下图所示：

下面介绍编辑流程：

首先新建一个连接对象Con，建立工作表和对象连接，这样就可以通过这个对象变量来访问和修改工作表。

Dim con As New ADODB.Connection '新建连接对象

Dim str As String

str = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & xlsmWorkBook & _

";Extended Properties=""Excel 12.0"";"

'设置连接字符串

con.Open str '打开连接

接下来，进行数据修改操作。

Dim sql As String

sql = "Update [Sheet1$] set " & ChFildes & "='" & Chstr & "' where " & SName & "=@name"

'设置查询条件

Dim cmd As New ADODB.Command '新建Command对象

cmd.CommandText = sql'参数赋值

cmd.ActiveConnection = con

cmd.Parameters("@name").Value = SChname

cmd.Execute

数据操作使用了SQL语句，这个要对SQL数据库操作要有一个基本的语法了解，具体语法可以上网查询。

本节只应用了Update 语句。可理解为更新数据。

设置sql查询语句之后，新建一个Command对象，它是我们新建的连接对象之下的一个子对象。

Command之下有一些方法需要执行，执行之后才能完成一系列的操作。具体怎么执行，代码已经被写好了，不用知道。

直接拿来使用就可以，就像买回来一盒快递，不用管它是怎么制作的，只需要张开嘴吃就行了。

Command对象用于执行面向数据库的简单查询，此查询可执行诸如增删查改等动作，所以十分有用。

Command里有一些参数需要赋值，最后使用Execute执行，具体可参考代码理解。

总之，ADO应用是一个特别的对象，无论是VBA还是C#或其它编程语文，Windows系统基本通用，所以有必要做一个总结练习。