Dim tt As Table = Tables("深化成果")
'Dim tt As Table = Tables("主窗口_Table3")
Dim file As String = "d:\深化成果.xls"
Dim flg As New SaveExcelFlags
flg.CellStyle = True
tt.SaveExcel(file ,tt.name,flg)
Dim hdr As Integer = tt.HeaderRows '获得表头的层数
Dim cnt As Integer
Dim Book As New XLS.Book(file)
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Dim Style As XLS.Style = Book.NewStyle() '定义新样式
Style.ForeColor = Color.Crimson '设置样式的字体颜色
'Style.ForeColor = Color.Blue '设置样式的字体颜色
Style.FontBold = True
'Style.BackColor = Color.Cyan
'Style.BackColor = Color.LightCyan
Style.BackColor = Color.LightGray
Style.BorderTop = XLS.LineStyleEnum.None
Style.BorderBottom = XLS.LineStyleEnum.None
Style.BorderLeft = XLS.LineStyleEnum.None
Style.BorderRight = XLS.LineStyleEnum.None
style.AlignVert = XLS.AlignVertEnum.Center
For c As Integer = 0 To tt.Cols.Count - 1
If tt.Cols(c).Visible Then
If tt.Cols(c).IsDate Then
Sheet.Cols(cnt).Style = Style
ElseIf tt.Cols(c).IsBoolean Then
For r As Integer = 0 To tt.Rows.Count - 1
If tt.Rows(r).IsNull(c) = False
sheet(r + hdr,cnt).value = IIF(tt(r,c),"√","")
End If
Next
cnt = cnt + 1
Continue For
End If
For r As Integer = 0 To tt.Rows.Count - 1
If tt.Rows(r).IsNull(c) = False
sheet(r + hdr,cnt).value = tt(r,c)
End If
Next
cnt = cnt + 1
End If
Next
For n As Integer = 0 To Sheet.Rows.Count -1
''导出逻辑列 打钩
'If Sheet(n,6).Value = "1" Then
'Sheet(n,6).Value = "√"
'Else
'Sheet(n,6).Value = ""
'End If
''导出逻辑列 打钩
If Sheet(n,0).Value.contains("_") Then
If n > 2 Then
For c As Integer = 0 To 39
Sheet (n,c).Style = Style
Next
End If
Else
For c As Integer = 0 To 39
try
'If Sheet(n,c).Style.BackColor.G <> 255 Then
If Sheet(n,c).St
导出要保留单元格颜色绘制
加好友 
发短信
Post By：2020/7/15 10:13:00 [只看该作者]
此主题相关图片如下：导出丢失分组统计 小计.jpg