【分享成果，随喜正能量】 穷不失义，达不离道。人生总有顺境、逆境，但无论什么时候，都不要背弃心中的仁义，有义有爱，才是一个人的立世之道。。

《VBA数据库解决方案》教程是我推出的第二套教程，目前已经是第一版修订了。这套教程定位于中级，是学完字典后的另一个专题讲解。数据库是数据处理的利器，教程中详细介绍了利用ADO连接ACCDB和EXCEL的方法和实例操作，教程第一版的修订内容主要是完成所有程序文件的32位和64位OFFICE系统测试。

这套教程共两册，八十四讲，今后一段时间会给大家陆续推出修订后的教程内容。今日的内容是第：ADO对多个工作表的精确查询

第四十讲 利用ADO实现多个工作表的精确查询

大家好,今日继续讲解VBA数据库解决方案,今日讲解第40讲:利用ADO实现同一文件的多个工作表精确查询。其实这讲的内容利用我之前讲解的知识点也可以自己完成，这里只是拿出来让大家再熟悉一下EXCEL的ADO连接,及RS多次打开记录集后的查询。

1 应用场景的具体分析

实例:在程序文件中有两页“两表查询数据”和“查询数据”，一些基础的数据在这两页文件中：如下截图：

同时我在某页工作表中存在如下数据，要在上述的两个工作表中查出对应的数据资料放在后面:

这个实例也是在工作中经常遇到的，如果扩展使用会更多。

2 实现多个工作表精确查询的代码及代码解读

下面看我给出的代码：

Sub mynzs_40()

'[代码见教程]

End Sub

代码截图：

代码讲解：

1） WW = Cells(i, 1)

If InStr(WW, ":") > 0 Then WW = Left(WW, InStr(WW, ":") - 1)

此处我做了一个实例，就是如果在需要查找的数据中含有“：”那么要取冒号之前的数据。这是非常实用的一个实例，大家要记住上面的代码。

2） For Each SH In Worksheets 这里使用了一个FOR EACH循环，遍历工作表。

3） If SH.Name = "两表查询数据" Or SH.Name = "查询数据" Then 由于我事先知道我要在两页工作表中查询，所以我精确的控制了两页的工作表名称

4） If rsADO.RecordCount > 0 Then

Cells(i, 2).CopyFromRecordset cnADO.Execute(strSQL)

GoTo 100

End If

上述代码作用：当存在这样的记录，即记录数大于0那么提取数据。

代码的运行：

备注：我写这讲的目的原想是能提高一下在很多的工作表中查询时能提高程序的运行速度，但我在几十个工作表中测试时发现运行的速度反而不如FIND的速度快，这里只是提供给大家一个方法吧。

今日内容回向：

1 如何实现利用ADO在多表中查询？

2 如果用FIND来编写上述代码该如何写呢？

我20多年的VBA实践经验，全部浓缩在下面的各个教程中：

【分享成果，随喜正能量】 其实不认错本身就是一个错，认错自己不但不会少了什么，还会显得你有度量，学习认错是美好的，是人生必经的修行。。