用vb查找excel里面的数据

来源：百度知道 编辑：UC知道 时间：2024/05/31 22:34:05
要寻找c:\123.xls里面的数据，text1输入要找的学号，找到的就显示找到，没找到就显示没有。要精确找到，比如输入的是123，数据是1231，也要显示没有。

用ADO可以打开,先引用ADO (Microsoft ActiveX Data Object)
然后

Dim Rs As New ADODB.Recordset
Dim sql AS String

StrData = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= C:\123.xls;Extended Properties='Excel 8.0;HDR=YES;IMEX=1'"

sql="SELECT 姓名 FROM [表名] WHERE 学号='" & Text1.Text & "'"
Rs.Open sql, StrData,3,3
if Not IsnNull(Rs.Feilds(0)) Then
MsgBox Rs.Fields(0)
Else
MsgBox "Nothing was found"
End if