Excel怎么用VBA实现根据一个单元格内容从access数据库搜索数据并返回Excel中相应单元格

Sub 查找()
Set conn = CreateObject("adodbconnection")
Set Rst = CreateObject("ADODBrecordset")
connOpen
"Provider=MicrosoftACEOLEDB120;Data Source="
& "D:/Databaseaccdb" ''后面是数据库路径 自己修改,看上去是07版本的,如果是03版本的将前面的字符串换成 "provider=MicrosoftjetOLEDB40;data source="
WITH Rst
Open "select from 基站信息 where 地点='" & [b3] & "'", conn, adOpenKeyset, adLockOptimistic
If RecordCount >0 Then
[B4]=FIELDS("经度")
[B5]=FIELDS("纬度")
[B6]=FIELDS("PROVINCE")
ELSE: MsgBox "找不到该名称"
End If
end with
connClose
Set conn = Nothing
End Sub

以上就是关于Excel怎么用VBA实现根据一个单元格内容从access数据库搜索数据并返回Excel中相应单元格全部的内容，包括:Excel怎么用VBA实现根据一个单元格内容从access数据库搜索数据并返回Excel中相应单元格、、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！