Reza Safa
سه شنبه 17 مرداد 1391, 15:56 عصر
سلام
این کد اطلاعات یک 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
این کد اطلاعات یک 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