设计模板导出后，再每3行设置单元格样式：http://www.foxtable.com/webhelp/topics/1146.htm
类似
Dim Book As New XLS.Book
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Dim Style As XLS.Style = Book.NewStyle() '定义新样式
Style.BackColor = Color.blue '设置样式的字体颜色
Dim bt As Boolean = True
Dim cnt As Integer = 20
For i As Integer = 0 To cnt Step 3
Sheet(i, 0).Value = i
If bt Then '如果是偶数行
Sheet.Rows(i).Style =Style '设置单元格样式
If i < cnt - 1
Sheet.Rows(i+1).Style =Style '设置单元格样式
End If
If i < cnt - 2
Sheet.Rows(i+2).Style =Style '设置单元格样式
End If
End If
bt = not bt
Next
Book.Save("d:\test.xls")
Dim Proc As New Process
Proc.File = "d:\test.xls"
Proc.Start()
加好友 
发短信
Post By：2019/12/7 11:05:00 [显示全部帖子]
