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

要导出excle分组统计字体——红颜色和加粗，求助

 

分组模式代码如下：

'汇总模式----------------------------------------
''分组统计
Dim tt As Table = Tables("订单")
Dim gg As Subtotalgroup
tt.SubtotalGroups.Clear()
tt.GroupAboveData = True
tt.TreeVisible = False
gg = New Subtotalgroup
gg.Aggregate = AggregateEnum.Sum
gg.GroupOn = "客户"
gg.Caption = "{0}"
tt.SubtotalGroups.Add(gg)
tt.Subtotal()
tt.DataTable.SysStyles("Subtotal0").FontBold = True
tt.DataTable.SysStyles("Subtotal0").ForeColor = Color.Red

 

 

 

此主题相关图片如下：导出excle分组统计字体颜色和加粗.png

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

点击浏览该文件:导出excle分组统计字体颜色和加粗.foxdb

大师，帮忙看看，怎么改下面代码呢》

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


Dim r As Row
    If r.IsGroup '如果是分组行
Style.ForeColor = Color.Red '设置样式的字体颜色
Style.FontBold = True
    End If


Book.Save("d:\test.xls")
Dim Proc As New Process
Proc.File = "d:\test.xls"
Proc.Start()

 问题是
1、没有 小计 2个字——— 1楼红色位置
2、且 产品名称都是不一样的

大师，辛苦再指点，怎么修改了，谢谢

1.分组统计字体加粗和红色显示

2.同时要导出excle单元格线框黑色，

 

Dim t As Table = Tables("订单")
Dim file As String = "d:\凤飞飞.xls"
Dim flg As New SaveExcelFlags
flg.CellStyle = True
t.SaveExcel(file,t.name,flg)

 

Dim App As New MSExcel.Application
Dim Wb As MSExcel.Workbook = App.WorkBooks.Open(file)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.UsedRange

 

Dim Book As New XLS.Book
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Dim Style As XLS.Style = Book.NewStyle() '定义新样式

Dim dr As Row = Tables("订单").Current
If dr.IsNull("客户") = True Then
'Rg.Style =Style '设置单元格样式
t.DataTable.SysStyles("Subtotal0").FontBold = True
t.DataTable.SysStyles("Subtotal0").ForeColor = Color.Crimson
End If

       
'打开工作簿
Dim Proc As New Process
Proc.File = "d:\凤飞飞.xls"
Proc.Start()

 

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

点击浏览该文件:分组字体加粗及红色导出excle.foxdb

 

大师，上面代码报错

 

此主题相关图片如下：报错.jpg

小白基础，大师多多指教

 

问题：

现在按钮2  填充的颜色是列，不是分组行

按钮1、按钮2 的代码要合并一个按钮，也不会，求助

导出的单元格里面文字靠下有问题，要设置 垂直居中

 

 

此主题相关图片如下：想实现 下面的效果.png

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

点击浏览该文件:ff.foxdb

 

此主题相关图片如下：按钮2 颜色丢失.png

按钮2执行后， 单元格绘制的颜色丢失，怎么解决？

大师，上面代码，导出单元格的颜色丢失！！——————下图红色圈的位置， 11楼图红色圈的位置

还有导出单元格里的文字不居中，靠下

怎么完善上面的问题呢？

 

祝国庆快乐，辛苦了

 

 

 

此主题相关图片如下：单元格背景色丢失.png

大师，上面代码导出单元格没红色线框

1、要实现导出excle单元格实现图示红色线框代码怎么增加呢？

2、蓝色背景，红色字靠下有问题，要实现上下居中代码怎么修改呢？

 

此主题相关图片如下：单元格红色线框.png

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

点击浏览该文件:1008.foxdb

大师，浅黄和浅蓝色导出excle丢失怎么解决？

浅颜色换成很深颜色就不会出现什么导出excle颜色丢失的问题

 

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

点击浏览该文件:单元格浅色背景导出.foxdb

此主题相关图片如下：浅黄和浅蓝色导出excle丢失怎么解决？.png

导出颜色偏差很大

下图系统里面左边2种颜色，导出excle只有1种颜色

 

此主题相关图片如下：导出颜色有问题.png