<em>excel</em> <em>vba</em> 使用sql语句查

Sub 查找()
Set conn = CreateObject("adodb.connection")
Set Rst = CreateObject("ADODB.recordset")
conn.Open
"Provider=Microsoft.ACE.OLEDB.12.0;Data Source="
& "D:/Database.accdb" ''后面是数据库路径 自己修改,看上去是07版本的,如果是03版本的将前面的字符串换成 "provider=Microsoft.jet.OLEDB.4.0;data source="
WITH Rst
.Open "select * from 基站信息 where 地点='" & [b3] & "'", conn, adOpenKeyset, adLockOptimistic
If .RecordCount >0 Then
[B4]=.FIELDS("经度7a64e78988e69d83336")
[B5]=.FIELDS("纬度")
[B6]=.FIELDS("PROVINCE")
ELSE: MsgBox "找不到该名称"
End If
end with
conn.Close
Set conn = Nothing
End Sub

Dim Rs As Recordset
strSQL = "SELECT DISTINCT 发站 FROM [LMSData2016.12$]"
Conn.Open strConn '打开百数据库链度接问
Set Rst = Conn.Execute(strSQL)
If rs.RecordCount > 0 Then '这个就可以判断答了，大于内0的就是有容数
select * 那里把*换成你想导入的列名就行了。
例如
select 产品,型号,价格
注意列名之间用英文逗号分隔。

Excel vba 用 sql 查询、统计 access 数据库 数据方法
Excel+ADO(DAO)+SQL+Access