کد word و Excel

[parsavb]

برای اینکه اطلاعات یک 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

[باران امید]

parsavb آقا دستت خیره ، برای من که خیلی اومد داشت.
مرسی با این همه دردسری که درست کردم بازم جواب من رو میدی
office را هنوز نریختم ولی درست شده و کد ها رو اجرا می کنه فقط هشدار می ده که کاریش ندارم .
نوشتن در word حل شد و باز کردن فایل Excel هم کار می کند ،کلا الان در وضعیت خوبی به سر می برم ،هم من هم کد ها.
یک سوال:

("da.TableMappings.Add("table", "table

جای این table ها کلا باید دو تا جدول گذاشت یا من اشتباه فهمیدم؟
آخه من فقط یه جدول دارم و هر کاری کردم جواب نداد.

________________________
پست های قبلی را دوباره نگاه کردم خیلی جابجا شد به بزرگی خودتون ببخشید.