你好!Dim Book As New XLS.Book(ProjectPath & "Attachments\超期周报.xls")
Dim fl As String = ProjectPath & "Reports\超期周报.xls"
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()
以上这段代码是生成一张EXCEL报表
我想在这里新增一个条件格式,例如“天数>0,<=7”,这一行单元格显示红色
我在帮助中找到以下这段代码,可是不知道如何插进上面代码中
Dim dt As Table =
Tables("订单")
Dim
Book As New XLS.Book '定义一个Excel工作簿
Dim Sheet As XLS.Sheet =
Book.Sheets(0) '引用工作簿的第一个工作表
Dim Style As Xls.Style = Book.NewStyle '新建一个样式
Style.BackColor = Color.Red '样式的背景颜色设为红色
For c As
Integer = 0
To dt.Cols.Count -1
'添加列标题
Sheet(0, c).Value = dt.Cols(c).Name
Next
For r As
Integer = 0
To dt.Rows.Count - 1
'填入数据
For c As
Integer = 0
To dt.Cols.Count -1
Sheet(r +1,
c).Value = dt.rows(r)(c)
Next
If
dt.rows(r)("折扣") >= 0.15
Then
'如果折扣大于等于0.15
Sheet(r + 1,dt.Cols("折扣").Index).Style =
Style '设置折扣单元格的样式
End
If
Next
'打开工作簿
Book.Save("c:\reports\test.xls")
Dim
Proc As New Process
Proc.File = "c:\reports\test.xls"
Proc.Start()