大家好,今日继续讲解VBA数据库解决方案的第34讲,这讲的内容是利用ADO连接EXCEL,并进行数据运算。为什么要讲解这讲的内容呢?因为我们在实际的工作中,往往需要的是连接上EXCEL后提取的数据并不是原始的数据所直接给出的,往往要进行一些简单的运算,而我们所关心的其实只是运算后的结果,不关心运算的过程。
那么,在使用ADO连接上EXCEL后,如何让数据参与运算并返回我们所需要的值呢?今日我们就来讲解这个内容。
实例: 15年.xlsx 文件中的第二页中有销售数量和销售单价两个数值,我们要提取的值是两者的乘积,如下截图
我们看代码:
Sub mynzexcels_3()
'第34讲,利用ADO,实现EXCEL工作表某两列数据的数据计算
Dim cnADO, rsADO As Object
Dim strPath, strTable, strSQL As String
Set cnADO = CreateObject("ADODB.Connection")
strPath = ThisWorkbook.Path & "" & "15年.xlsx"
strTable = "[sheet2$a2:b2]"
'建立连接,提取A2B2单元格的数据
cn