如何将DataGridView行与他们的行颜色导出到MS Excel工作表？

我需要知道如何将DataGridView中的行导出到Excel，包括它们的行颜色。

此时我输出它们，但颜色是空白/白色/默认颜色。

我需要在vb.net中做到这一点

Answer 1

你可以试试这个：

For Each drow As DataGridViewRow In datagrid1.Rows xcel.Cells(yourRowInt, yourColInt).Interior.Color = drow.DefaultCellStyle.BackColor Next 

Answer 2

你可以尝试这样吗？

  Private Sub button5_Click(ByVal sender As Object, ByVal e As EventArgs) Const WORKSHEETSTARTROW As Integer = 1 Const WORKSHEETSTARTCOL As Integer = 1 Dim excelApp = New Excel.Application excelApp.Visible = true Dim excelbk As Excel.Workbook = excelApp.Workbooks.Add(Type.Missing) Dim xlWorkSheet1 As Excel.Worksheet = CType(excelbk.Worksheets("Sheet1"),Excel.Worksheet) Dim worksheetRow As Integer = WORKSHEETSTARTROW Dim rowCount As Integer = 0 Do While (rowCount _ < (dataGridView1.Rows.Count - 1)) Dim worksheetcol As Integer = WORKSHEETSTARTCOL Dim colCount As Integer = 0 Do While (colCount _ < (dataGridView1.Columns.Count - 1)) Dim xlRange As Excel.Range = CType(xlWorkSheet1.Cells(WORKSHEETSTARTROW, worksheetcol),Excel.Range) xlRange.Value2 = dataGridView1.Columns(colCount).Name worksheetcol = (worksheetcol + 1) If (Not (dataGridView1.Rows(rowCount).Cells(colCount).Style.Font) Is Nothing) Then xlRange.Font.Bold = dataGridView1.Rows(rowCount).Cells(colCount).Style.Font.Bold xlRange.Font.Italic = dataGridView1.Rows(rowCount).Cells(colCount).Style.Font.Italic xlRange.Font.Underline = dataGridView1.Rows(rowCount).Cells(colCount).Style.Font.Underline xlRange.Font.FontStyle = dataGridView1.Rows(rowCount).Cells(colCount).Style.Font.FontFamily End If worksheetcol = (worksheetcol + 1) colCount = (colCount + 1) Loop worksheetRow = (worksheetRow + 1) rowCount = (rowCount + 1) Loop End Sub