نحوه انتقال اطلاعات از یک datagrid به فایل excel به همراه رنگ سلول ها

[Reza Safa]

سلام
این کد اطلاعات یک datagridview را به یک فایل excel انتقال می دهد
در این کد هر ردیف و ستو نها با رنگ مختلف نمایش داده می شود




Dim oExcel As Object
Dim oBook As Object
Dim oSheet As Object

'Start a new workbook in Excel.
oExcel = CreateObject("Excel.Application")
oBook = oExcel.Workbooks.Add

'Add data to cells of the first worksheet in the new workbook.
oSheet = oBook.Worksheets(1)
oSheet._DisplayRightToLeft = True
Dim rowsColor As Boolean = False
'Dim cellColor As Boolean = False

pb.Maximum = DGV.RowCount
Dim I, j As Integer
For I = 1 To DGV.ColumnCount
oSheet.Cells(5, I).Value = DGV.Columns(I - 1).HeaderText
oSheet.Cells(5, I).Interior.Color = Color.LightGreen
oSheet.Cells(5, I).Font.Name = "B Zar"
oSheet.Cells(5, I).borders.LineStyle = 1
pb.Value = 0
'rowsColor = False
For j = 1 To DGV.RowCount
Try
oSheet.Cells(j + 5, I).Value = DGV.Item(I - 1, j - 1).Value.ToString
Catch ex As Exception

End Try
oSheet.Cells(j + 5, I).Font.Name = "B Zar"
oSheet.Cells(j + 5, I).borders.LineStyle = 1
If rowsColor = True Then oSheet.Cells(j + 5, I).Interior.Color = Color.AliceBlue
rowsColor = Not rowsColor
pb.Value = j
Next
Next

[SilverGold]

سلام

دوست عزیز میشه بفرمایید این اطلاعات کجا ذخیره سازی می شوند
با تشکر