vb.net中带有彩色单元格的DataGridView到Excel

Dim excelApp As New Excel.Application
Dim excelWorkbook As Excel.Workbook = excelApp.Workbooks.Add()

Dim excelWorksheet As Excel.Worksheet = excelWorkbook.Sheets(1)
Dim dgv As DataGridView = DataGridView1
Dim rowCount As Integer = dgv.Rows.Count
Dim columnCount As Integer = dgv.Columns.Count
Dim cellValue As Object = Nothing

For i As Integer = 0 To rowCount - 1
    For j As Integer = 0 To columnCount - 1
        cellValue = dgv.Rows(i).Cells(j).Value
        excelWorksheet.Cells(i + 1, j + 1) = cellValue

        ' 设置单元格的颜色
        Dim color As Color = dgv.Rows(i).Cells(j).Style.BackColor
        excelWorksheet.Cells(i + 1, j + 1).Interior.Color = System.Drawing.ColorTranslator.ToOle(color)
    Next
Next

excelWorkbook.SaveAs("路径\文件名.xlsx")
excelWorkbook.Close()
excelApp.Quit()