主题：[求助]绘制单元格颜色导出exlce

 如题，下面代码导不出 绘制单元格的颜色，
要导出绘制单元格颜色，求助


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.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 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,0).Value.contains("_") Then
        If n > 2 Then
            For c As Integer = 0 To 39
                Sheet1 (n,c).Style = Style
            Next
        End If
    Else
        For c As Integer = 0 To 39
            try
                'If Sheet1(n,c).Style.BackColor.G <> 255 Then
If Sheet1(n,c).Style.BackColor.G <> 255 OrElse Sheet1(n,c).Style.BackColor.R <> 255 OrElse Sheet1(n,c).Style.BackColor.B <> 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.Gray
            Sheet1(n,c).Style.BorderColorBottom = Color.Gray
            Sheet1(n,c).Style.BorderColorLeft = Color.Gray
            Sheet1(n,c).Style.BorderColorRight = Color.Gray
            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 导出绘制单元格颜色失败

2 可能是分组统计颜色的问题————之前的求助帖子

3、辛苦调试下面项目：

 

加密狗不能升级了，高于2018-07-09版本打不开，不会意思哈

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:2.foxdb

大师，上楼代码，导出excle  进度列，单元格绘制的颜色失败

 

此主题相关图片如下：进度列颜色导不出来.png

 大师，因为导出的 进度列 颜色是每天动态且多种色彩的，在excle里设置实在是不方便，辛苦有空帮帮了
或者有参考的例子，可以参考嘛？