主题：[求助]导出excle分组统计字体颜色和加粗

Dim tt As Table = Tables("室内设计项目")
Dim file As String = "d:\我的项目.xls"
Dim flg As New SaveExcelFlags
flg.CellStyle = True
For Each c As Col In tt.Cols
    c.TextAlign = TextAlignEnum.Center
Next
tt.SaveExcel(file ,tt.name,flg)

Book.Save(file)
Dim Proc As New Process
Proc.File = file
Proc.Start()

Dim tt As Table = Tables("室内设计项目")
Dim file As String = "d:\我的项目.xls"
Dim flg As New SaveExcelFlags
flg.CellStyle = True
tt.SaveExcel(file ,tt.name,flg)

Dim Book As New XLS.Book(file)
Dim Sheet1 As XLS.Sheet = Book.Sheets(0)
Dim Style As XLS.Style = Book.NewStyle() '定义新样式
Style.ForeColor = Color.Red '设置样式的字体颜色
Style.FontBold = True

Style.BackColor = Color.DodgerBlue
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 n As Integer = 0 To Sheet1.Rows.Count -1
    If Sheet1(n,6).Value = "1" Then
        Sheet1(n,6).Value = "√"
    Else
        Sheet1(n,6).Value = ""
    End If
    If Sheet1(n,1).Value.contains("地址:") Then
        If n > 2 Then
            For c As Integer = 0 To 9
                Sheet1 (n,c).Style = Style
            Next
        End If
    Else
        For c As Integer = 0 To 9
            try
                If Sheet1(n,c).Style.BackColor.G <> 255 Then
                Else
                    Sheet1(n,c).Style = book.NewStyle
                End If
               
            catch ex As exception
                Sheet1(n,c).Style = book.NewStyle
               
            End try
            Sheet1(n,c).Style.BorderTop = XLS.LineStyleEnum.Thin
            Sheet1(n,c).Style.BorderBottom = XLS.LineStyleEnum.Thin
            Sheet1(n,c).Style.BorderLeft = XLS.LineStyleEnum.Thin
            Sheet1(n,c).Style.BorderRight = XLS.LineStyleEnum.Thin
            Sheet1(n,c).Style.BorderColorTop = Color.red
            Sheet1(n,c).Style.BorderColorBottom = Color.red
            Sheet1(n,c).Style.BorderColorLeft = Color.red
            Sheet1(n,c).Style.BorderColorRight = Color.red
            Sheet1(n,c).Style.AlignVert = XLS.AlignVertEnum.Center
            Sheet1(n,c).Style.AlignHorz = XLS.AlignHorzEnum.Center
           
        Next
    End If
Next

Book.Save(file)
Dim Proc As New Process
Proc.File = file
Proc.Start()

1、你可以修改你drawcell里面的样式，对比度大一些。

2、如果还有问题，实例发上来测试。

回复21楼，那你可以不用saveexel导出，用自己的方式导出并且设置样式即可

也就是，根据你drawcell事件里面的代码，设置excel里面各个单元格的样式。