vb.net 教程 10-2 Excel操作6 更改Excel单元格字体

版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。

通过修改Excel.Rang.Font的几个成员就可以修改相应Range内的字体，直接给出代码：

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim xls As New Excel.Application
        Dim Wbook As Excel.Workbook = xls.Workbooks.Open("f:\test.xls")

        Dim Wsheet As Excel.Worksheet
        Wsheet = Wbook.Worksheets(1)   

        Dim currentCell As Excel.Range = Wsheet.Cells(1, 1)
        With currentCell.Font
            .Color = Excel.XlRgbColor.rgbRed
            .Bold = True
            .Name = "黑体"
            .Size = 20
        End With

        Wbook.Save()
        xls.Quit()
    End Sub

修改前后的比较：

由于.net平台下C#和vb.NET很相似，本文也可以为C#爱好者提供参考。

学习更多vb.net知识，请参看vb.net 教程 目录