使用vb.net更改excel单元格颜色

Imports Microsoft.Office.Interop.Excel

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

Dim range As Range = worksheet.Range("A1")
range.Interior.Color = RGB(255, 0, 0) ' 设置为红色

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

Imports Microsoft.Office.Interop.Excel

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

        Dim range As Range = worksheet.Range("A1")
        range.Interior.Color = RGB(255, 0, 0) ' 设置为红色

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