【分享成果，随喜正能量】最使人疲惫的不是道路的遥远，而是你心中的郁闷；最使人颓废的不是前途的坎坷，而是你自信的丧失；最使人痛苦的不是生活的不幸，而是你希望的破灭；最使人绝望的不是挫折的打击，而是你心灵的死亡；所以我们凡事要看淡些心放开一点。

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

这套教程共两册，八十四讲，今后一段时间会给大家陆续推出修订后的教程内容。今日的内容是第34讲：ADO连接EXCEL进行数据运算

第三十四讲 ADO连接EXCEL，并进行数据运算的实例

大家好，今日继续讲解VBA数据库解决方案的第34讲，这讲的内容是利用ADO连接EXCEL，并进行数据运算。为什么要讲解这讲的内容呢?因为我们在实际的工作中，往往需要的是连接上EXCEL后提取的并不是原始数据所直接给出的，往往要进行一些简单的运算，而我们所关心的其实只是运算后的结果，不关心运算的过程。

那么，在使用ADO连接上EXCEL后，如何让数据参与运算并返回我们所需要的值呢？今日我们就来讲解这个内容。

1 应用场景的具体分析

实例: 15年.xlsx 文件中的第二页中有销售数量和销售单价两个数值，我们要提取的值是两者的乘积，如下截图

我们需要直接提取到销售数量和销售单价的乘积。

2 连接EXCEL并进行数据运算的实例代码及代码解读

我们看代码：

Sub mynz_34() '第34讲，利用ADO,实现EXCEL工作表某两列数据的数据计算

【代码见教程】

代码截图：

代码讲解：

1) strTable = "[sheet2$a2:b1000]" 此处定义了数据表的范围为[sheet2] 工作表的A2到B1000的单元格

2) strSQL = "select F1*F2 from " & strTable 此处直接定义了F1 和F2 相乘

3) [a2].CopyFromRecordset cnADO.Execute(strSQL) 最后将所得的值放在A1 单元格。

下面我们运行一下程序：

这样就实现了我们的目的，在连接EXCEL的同时进行数据的计算，并返回计算的结果。当然，我这里只是给出了一个最为简单的例子，在实际工作中实际问题要远远比这个要复杂，但只要你掌握到了基本的方法，是能够处理复杂问题的。

今日内容回向：

1 如何实现在连接EXCEL的同时实现数据的计算？

2 如果是多个计算结果该如何返回呢？

本讲内容参考程序文件：VBA与数据库操作（第一册）.xlsm

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

【分享成果，随喜正能量】守少则固，力专则强。专注于自己心，守住自己的热爱，就不惧怕流言蜚语，也不害怕苦楚困惑，只要专注，就能成功！