ارسال دیتاگرید به اکسل

[oliya24]

سلام دوستان من چهطور میتونم یه دیتا کرید رو به نرم افزارهای مثل excel,... صادقانه بگم اصلا کار با اینا رو بلد نیستم

و یه چیزه دیگه 2 نرمافزار دیگه که با ویبی هست منظورم word , outlook هست کاربردش چیه

و اگه میشه این 2 رو هم به من یاد بدید

با تشکر

[mohamad68]

سلام
با این کد می تونی داده های DataGrid رو به Excel انتقال بدی و یک صفحه Excel رو باز کنی


Imports xl = Microsoft.Office.Interop.Excel
Dim app As New xl.Application : Dim WorkBook As xl.Workbook : Dim Worksheet As xl.Worksheet
Dim obj_Value As Object = System.Reflection.Missing.Value
Dim r, c As Integer
WorkBook = app.Workbooks.Add(obj_Value)
Worksheet = WorkBook.Sheets("sheet1")
For r = 0 To DataGridView1.RowCount - 2
For c = 0 To DataGridView1.ColumnCount - 1
Worksheet.Cells(r + 1, c + 1) = DataGridView1(c, r).Value.ToString()
Next
Nextنکته : قبل از نوشتن کد برنامه Microsoft.Office.Interop.Excel رو از Add Reference اضافه کن

[mhmoein]

http://barnamenevis.org/forum/showpost.php?p=668168&postcount=40

برای استفاده از این کد باید یک کنترل SaveFileDialog روی فرم قرار بدی.

موفق باشی