<em>Excel</em> 请问<em>VBA</em>中如何实现SQ

sub test()

Dim Conn As New ADODB.Connection
Dim strConn As String
Dim strSQL As String
Dim rs As New ADODB.Recordset

strConn = "Provider=sqloledb;Server=192.168.1.111;Database=db2014;Uid=用户名zhidao;Pwd=密码回;"
Conn.Open strConn

Max_row = Range("A1").CurrentRegion.Rows.Count

for i=1 to Max_row
strSQL = "select name from sales2014 where id='" & range("A" & i).value & "'"
Conn.Execute strSQL
rs.Open strSQL, Conn, 1, 1
range("B" & i).value= rs(0)
rs.Close
Set rs = Nothing
next i

'关闭数据库答
Conn.Close
end sub

一般是select查询的顺序为：复
select 分组字段+聚合函数+from+where+group by+having+order by
select查询语句很制复杂，最简单的举例如： select * from [信息库$] where 性别百="男"
从信息库表中找出性别为男的所有数度据条目。

可以做到，但不是三言两语能说清楚的。至少VBA程序百不会太短

如果用手工操作，不借助度VBA，可以利用Excel的“数据－导入外部数据”菜单将SQL中的表先导入到Excel中，那么Excel数据与SQL数据的比较就变成回了两个Excel表列的比较，很容易用数组公式或相关函数标识出重答复的数据项的。