SQL查询同一工作簿中工作表内容VBA实例教程

1、SQL 查询同一工作簿中工作表内容 VBA 实例教程除非注明， 文章均为 战战如疯 原创， 转载请保留链接 ， VBA 交流群 273624828。这节来看个 SQL 查询的例子， 这次要查询的表和结果表都在 同一个工作簿中，在查询表中相应单元格输入内容，要求从 数据表中得到数据并将结果放入查询表中。可以先从本文最 后的网址中下载附件看一下。这个问题就是 SQL 本地查询了，看代码Sub search2()Dim cnn As Object, sql$, rs As Object, i, nSet cnn = CreateObject(adodb.connection) 建 立连接对象Shee

2、ts(档案盒目录 ”).UsedRange.0ffset(4, 1).CIearContentscnn.Open Provider=Microsoft.ACE.OLEDB.12.0;ExtendedProperties=exceI 12.0;Data Source= &ThisWorkbook.FuIIName适合 2007 及以后版本n = Sheets(档案数据表 ”).Range(”L1048576”).End(xlUp).Row sqI = seIect 文件名称 ,内容摘要 ,档案载体 ,原/复印 件,页数 ,份数,签订日期 ,存档日期 ,备注 from 档案数据表 $A4:

3、O & n & where 档案盒名称 = &Sheets(档案盒目录 ”).Range(”H3”)&SQL 规则Set rs = cnn.Execute(sql)执行 SQL 语句Sheets(档案盒目录 ”).b5.CopyFromRecordset rs复制数据cnn.CloseSet rs = NothingSet cnn = NothingEnd Sub第一个知识点，打开 Excel2007 及以后的工作表用的 Open 语句是“ Provider=Microsoft.ACE.OLEDB.12.0;ExtendedProperties=excel 12

4、.0;Data Source=filepath ”，在调用这个工作 簿本身那路径 filepath 就是 thisworkbook.fullname 。 第二个知识点在字段名当中有空格的时候要加上中括号 ， 否则会提示错误，不能识别为正确的字段名。 第三个知识点表格范围的选择，在 Excel 表中有时并不是整 个表都是有效的数据，比如在表格的最后经常会有一些合 计、说明之类的，这些不能做为原数据来处理，那声明表格 名称的时候就要用表名$A4:O50这种形式，再后面就是常规 的 SQL 操作了，不懂的看之前的课程。 在这里强调一个小细节，我在第一次写这个代码的时候复制数据那一句写的是 Sheets(档案盒目录).Range(B5).CopyFromRecordset rs ，完全看不出有什么错 误，但是在执行代码的时候就会发生一些异常，最后才发现 如果把Range(B5)改成b5就好了，至于为什么我也不知 道。 Excel 毕竟不是真正的数据库，其在数据格式方面要求 没有数据库来的严格，发生这样的错误在所难免，在自己写 代码的时候一定要注意。本节示例文件下载地址： 。0 您可能也喜欢：利用高级筛选做查询VBA 批量核对工作表内容SQL 基础 -查询指定数量的记录 工作表基本操作区域(