برای اینکه اطلاعات یک sheet از exel رو وارد یک دیتا گرید کنید می تونید از کد زیر استفاده کنید
PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
Dim con As System.Data.OleDb.OleDbConnection
Try
Dim dtset As System.Data.DataSet
Dim dtap As System.Data.OleDb.OleDbDataAdapter
con = New System.Data.OleDb.OleDbConnection("provider=microsoft.jet.oledb.4.0; " & _
"data sourse = c:\test.xls; extended properties = exel8.0;")
dtap = New System.Data.OleDb.OleDbDataAdapter( _
"select * from [sheet1$]", con)
dtap.TableMappings.Add("table", "table1")
dtset = New System.Data.DataSet
dtap.Fill(dtset)
DataGridView1.DataSource = dtset.Tables(0)
con.Dispose()
Catch ex As Exception
con.Close()
EndTry
EndSub
پاسخ با نقل قول
