vb.net操作excel中的记录

试了好久，终于试出来了，把代码发给你分享：
首先，我建了个窗体，放了一个按扭控件，把打开连接EXECL的代码都放在该按扭的click事件里了，你可以根据需要改动。

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim sConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=E:\myexl.xls;" & _
"Extended Properties=Excel 8.0;"
’这里面，E：\myexl.xls换成你自己的excel文件完整路径
Dim objConn As New OleDbConnection(sConnectionString)
objConn.Open()
MsgBox("成功打开连接") ’这句我用来测试能不能连接的，
’下面将建立查询命令
Dim objCmdSelect As New OleDbCommand("SELECT * FROM [11$] where 姓名='李三'", objConn)
'11j是我测试用的sheet名，你换成你自己的，注意格式
'程序默认Excel表的第一行内容为字段名，你换成你自己的内容，并建
'立查询条件

'下面将根据查询条件打开连接。
Dim objAdapter1 As New OleDbDataAdapter()

objAdapter1.SelectCommand = objCmdSelect

'下面将打开的数据放在dataset中
Dim objDataset1 As New DataSet()

objAdapter1.Fill(objDataset1, "XLData")

’下面将数据传给DataGrid1控件
DataGrid1.DataSource = objDataset1.Tables(0).DefaultView

' Clean up objects.
objConn.Close()
End Sub