Dim Book As New XLS.Book(ProjectPath & "Attachments\A表.xls")
Dim fl As String = ProjectPath & "Reports\A表.xls"
Book.Build() '生成细节区
Dim Style As XLS.Style = Book.NewStyle() '定义新样式
Style.BackColor = Color.Red '设置样式的字体颜色
Dim Style2 As XLS.Style = Book.NewStyle() '定义新样式
Style2.BackColor = Color.blue '设置样式的字体颜色
Dim Style3 As XLS.Style = Book.NewStyle() '定义新样式
Style3.BackColor = Color.Green '设置样式的字体颜色
Dim Sheet As XLS.Sheet = Book.Sheets(0)
For i As Integer = 3 To Sheet.Rows.Count -1
Select Case Sheet(i,4).value
Case "较大风险"
Sheet(i,4).Style =Style '设置单元格样式
Case "一般风险"
Sheet(i,4).Style =Style2 '设置单元格样式
Case "低风险"
Sheet(i,4).Style =Style3 '设置单元格样式
End Select
Next
Book.Save(fl)
Dim Proc As New Process
Proc.File = fl
Proc.Start()
加好友 
发短信
Post By：2020/2/20 13:48:00 [只看该作者]
此主题相关图片如下：1.png
