vb.net 操作Excel 设置字体颜色

以下是在VB.NET中操作Excel并设置字体颜色的示例代码：

Imports Microsoft.Office.Interop

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        '创建Excel对象
        Dim excelApp As New Excel.Application
        Dim wb As Excel.Workbook = excelApp.Workbooks.Add()
        Dim ws As Excel.Worksheet = wb.Sheets(1)

        '设置字体颜色
        Dim range As Excel.Range = ws.Range("A1")
        range.Value = "Hello World"
        range.Font.Color = System.Drawing.ColorTranslator.ToOle(System.Drawing.Color.Red)

        '保存Excel文件并退出
        wb.SaveAs("D:\test.xlsx")
        wb.Close()
        excelApp.Quit()
    End Sub
End Class

在上述代码中，我们首先创建了一个Excel对象，然后在工作表中设置了一个单元格的值为“Hello World”，并将其字体颜色设置为红色。最后，我们将Excel文件保存到指定的路径，并退出Excel应用程序。

值得注意的是，为了能够在VB.NET中使用Excel对象，我们需要添加对Microsoft.Office.Interop.Excel命名空间的引用。