Excel 学好这个技巧，可以应用到90%场景(一)

大家好，我是陈小虾，是一名自动化方向的IT民工。写博客是为了记录自己的学习过程，通过不断输出倒逼自己加速成长。但由于水平有限，博客中难免会出现一些BUG，或者有更优方案恳请各位大佬不吝赐教！微信公众号：万能的Excel

SQL数据查询

不管是做金融、会计、生产管理。一个月总有那么几天需要面对海量的数据筛选、统计出需要的信息。用VLOOKUP也需要用一次，修改一次公式….

今天小虾教你用5行代码，就算你不会编程也能完成一键完成对EXCEL表格的数据筛选

案例一：

按价格区间，筛选出符合条件的产品

 

附上代码：

Sub CC()
Set CN = CreateObject("ADODB.CONNECTION")
CN.Open "Provider=Microsoft.Ace.oledb.12.0;extended properties='excel 12.0;HDR=yes';data source=" & ThisWorkbook.FullName
Sql = "select * from [sheet1$a1:c] WHERE 价格>" & Cells(4, "f") & " and 价格<" & Cells(4, "G") & ""
Range("F6").CopyFromRecordset CN.Execute(Sql)
End Sub

 

案例二：

跨列查询，筛选出符合条件的数据，并求和

数据源：

 

查询结果：

 

附上源代码：

Sub total()

    Dim Sql$, line&, i&
    
    Application.ScreenUpdating = False
    Set xx = CreateObject("adodb.connection")
    With xx
        .Open "Provider=Microsoft.Ace.oledb.12.0;extended properties='excel 12.0;HDR=yes';data source=" & ThisWorkbook.FullName
      
        Sql = "select 品号,品名,sum(数量),sum(金额),类型 from [明细$] where month(日期)=" & Month(ActiveSheet.[j2]) & " group by 品号,品名,类型 order by 品号,类型 desc"               'where 类型='销售' and month(日期)=" & Month(ActiveSheet.[j2]) & " group by 品号,品名"
        [a5].CopyFromRecordset .Execute(Sql)    End With

End Sub

关注公众号：万能的Excel     并回复【搜索】获取源文件！

代码备注：

1. 设置对象
Set Conn = CreateObject("adodb.connection")   

2. 打开联接
（1）包含字段名的情况
Conn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & 文件全路径

（2）不包含字段名的情况
Conn.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;hdr=no';data source=" & 文件全路径

（3）同一列中数据类型不一致的情况
Conn.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;imex=1';data source=" & 文件全路径

3. 设置 sql 语句
Sql = sql 语句

4. 执行 sql 语句  
放置结果的区域的左上角单元格.CopyFromRecordset Conn.Execute(Sql)

5. 关闭联接
conn.Close          

6. 对象置空  
Set Conn = Nothing