ذخیره در اکسل

[talent1]

یه سری اطلاعات در دیتاگرید دارم میخوام توی اکسل
ذخیره کنم باید چیکار کنم ؟

[milad3em]

متن زیر رو در یک ماژول بنویس و تابع را در جای دلخواه Call بزن
رفرنس اكسل رو هم از منوي project اضافه كنيد
Public Sub toexcell(vs As VSFlexGrid)

Dim X_Excel As Excel.Application
Dim X_WorkBook As Excel.Workbook
Dim X_WorkSheet As Excel.Worksheet

Set X_Excel = New Excel.Application
Set X_WorkBook = X_Excel.Workbooks.Add
Set X_WorkSheet = X_WorkBook.Worksheets(1)

For i = 0 To vs.Cols - 1
For j = 0 To vs.Rows - 1

X_WorkSheet.Cells(j, i) = vs.TextMatrix(j, i)

Next
Next

X_Excel.Quit

End If

End Sub