انتقال اطلاعات از اكسل به ديتا گريد

[f_g1348]

با سلام
دوستان من چطور مي تونم اطلاعات را از اكسل به ديتاگريد منتقل كنم ؟
متشكرم

[shadi khanum]

میتونی از ADO استفاده کنی و اطلاعات رو بخونب و توی دیتاتیبل بریزی و از اونجا به گرید بایند کنی، یا اینکه با dllهای اکسل فابل اکسل رو باز کنی و سلولهاش رو بخونی که با ADO راحت تره

[mohsencom]

یه سرچ میزدین پیدا میکردین ....

اول اینارو ایمپورت کن :

Imports System.Data.OleDb
Imports Microsoft.Office.Interop
Imports System.Data

اینم کد ایمپورت از Excel به DataGridView :

Dim con As System.Data.OleDb.OleDbConnection = New System.Data.OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\YourExcelDatabase.xls;Extended Properties=""Excel 12.0;HDR=YES;""")
Dim da As System.Data.OleDb.OleDbDataAdapter = New System.Data.OleDb.OleDbDataAdapter("SELECT * FROM [Sheet1$]", con)
Dim ds As New DataSet
da.Fill(ds)
DataGridView1.DataSource = ds.Tables(0)