格式化单元格

XLS.Cell类型除了有Value属性用于设置单元格的值外,还有一个Style属性用于设置单元格的样式。
样式的类型为XLS.Style,该类型有很多属性,例如ForeColor用于设置单元格字体的颜色。
XLS.Book有一个NewStyle方法,用于创建一个新的样式。

复制下面的代码到命令窗口执行,可以看到第一列偶数行单元格的字体颜色被设成红色:

Dim Book As New XLS.Book
Dim
Sheet As XLS.Sheet = Book.Sheets(0)
Dim
Style As XLS.Style = Book.NewStyle() '定义新样式
Style.ForeColor = Color.Red
'设置样式的字体颜色
For
i As Integer = 0 To 9
    Sheet(i,
0).Value = i
    If
i Mod 2 =0 Then '如果是偶数行
        Sheet(i,
0).Style =Style '设置单元格样式
   
End If
Next

Book.Save(
"c:\reports\test.xls")
Dim
Proc As New Process
Proc.File =
"c:\reports\test.xls"
Proc.Start()

样式的其它属性将在后面介绍。


本页地址:http://www.foxtable.com/webhelp/topics/1146.htm