在EXCEL中取出有交集的数据列

在EXCEL中取出有交集的数据列
Sub SQL_Excel_2010()

'On Error Resume Next '如果出bai现错误，忽略，然后执行下一行代码

Application.ScreenUpdating = False '关闭屏幕刷新,成对出现，提高速度

Application.DisplayAlerts = False '关闭提示，,成对出现，避免出现提示框

'--------------------------------------- 参数声明部分 ------------------- ------------------- -------------------

Dim cnn, SQL$ '定义数据库连接和SQL语句

Set cnn = CreateObject(“adodb.connection”) '创建数据库连接

Set rs = CreateObject(“adodb.recordset”) '创建一个数据集保存数据

'--------------------------------------- 设置数据库连接 ------------------- ------------------- -------------------

cnn.Open “Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=” & ThisWorkbook.FullName

'--------------------------------------- 设置SQL语句 ------------------- ------------------- -------------------

SQL = “select * from [Sheet2$A:F] where x1=x3 and x1 = x5”

'--------------------------------------- SQL结果处理 ------------------- ------------------- -------------------

Set rs = cnn.Execute(SQL) '将SQL语句获得的数据传递给数据集

Range(“m2”).CopyFromRecordset rs '将数据集粘贴到Excel中，左上角为m2，无列名

cnn.Close '关闭数据库连接

Set cnn = Nothing '将CNN从内存中删除

'--------------------------------------- ------------------------ ------------------- -------------------

Application.ScreenUpdating = True

Application.DisplayAlerts = True

End Sub '这就是最简单的EXCEL中SQL的应用 ，其他的都是SQL的运用了