如何识别要在vb.net中删除的excel单元格的颜色

Dim excelApp As New Excel.Application
Dim workbook As Excel.Workbook = excelApp.Workbooks.Open("文件路径")
Dim worksheet As Excel.Worksheet = workbook.Sheets("工作表名称")

Dim cell As Excel.Range = worksheet.Range("A1")
Dim color As System.Drawing.Color = System.Drawing.ColorTranslator.FromOle(cell.Interior.Color)

If color = System.Drawing.Color.Red Then
    cell.Delete()
End If

Imports Excel = Microsoft.Office.Interop.Excel

Public Sub DeleteCellsByColor()
    Dim excelApp As New Excel.Application
    Dim workbook As Excel.Workbook = excelApp.Workbooks.Open("文件路径")
    Dim worksheet As Excel.Worksheet = workbook.Sheets("工作表名称")

    Dim lastRow As Integer = worksheet.Cells.SpecialCells(Excel.XlCellType.xlCellTypeLastCell).Row

    For i As Integer = lastRow To 1 Step -1
        Dim cell As Excel.Range = worksheet.Cells(i, 1)
        Dim color As System.Drawing.Color = System.Drawing.ColorTranslator.FromOle(cell.Interior.Color)

        If color = System.Drawing.Color.Red Then
            cell.Delete()
        End If
    Next

    workbook.Save()
    workbook.Close()
    excelApp.Quit()
End Sub