主题：[求助]统计表导出后“字体”变红加粗部分变了？

为什么不愿意按照狐爸提供的方法去做呢?

统计表导出后符合条件的行“字体”变红加粗已经搞定，但还有两个问题需请教：1、导出的Excel表中符合条件的行“字体”虽然变红加粗了，但未完全保存设置(部分列应上下居中、小数位数要求)；2、导出的Excel表只能单独保存为一个新的Excel表，不能将Table保存为Excel文件中的一个工作表，如果保存到Excel文件中的一个工作表符合条件的行“字体”就不发生变化了。请指教，谢谢！

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

点击浏览该文件:统计表导出测试….rar

导出 代码

 

Dim Kms() As String = {"总分"}
Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    For Each tjnj As String In DataTables("校名设置").GetValues("统计年级","单位 = '统计'")
        For Each tjlb As String In DataTables("校名设置").GetValues("统计类别","单位 = '统计'")
            For Each Km As String In Kms
                Dim dr As DataRow = DataTables("校名设置").Find("单位 = '统计'")
                Tables(Km & tjnj &"级"& tjlb &"重点线上下"& dr("目标7") &"分名册").SaveExcel(dlg.FileName, Km & tjnj &"级"& tjlb &"重点线上下"& dr("目标7") &"分名册")  '保存文件
                DataTables.Delete( Km & tjnj &"级"& tjlb &"重点线上下"& dr("目标7") &"分名册") '删除原文件
                Dim book As new XLS.Book(dlg.FileName)
                Dim sheet As XLS.Sheet = book.Sheets(Km & tjnj &"级"& tjlb &"重点线上下"& dr("目标7") &"分名册")
                Dim Style As Xls.Style = book.NewStyle '新建一个样式
                Style.ForeColor = Color.Red '样式的背景颜色设为红色
                Style.Font = new font("宋体",9,FontStyle.Bold)
                Style.AlignHorz = XLS.AlignHorzEnum.Center
                Style.AlignVert = XLS.AlignVertEnum.Center
                For i As Integer = 0 To sheet.Rows.count -1
                    Dim Hjs() As String = {"重庆市","梁平县"}
                    For Each Hj As String In Hjs
                        If sheet(i,0).Text.EndsWith(Hj) Then '如果指定列(第1列)中含Hj字符存在
                            For n As Integer = 0 To sheet.Cols.count -1
                                sheet(i,n).Style = Style
                            Next
                        End If
                    Next
                Next
                Book.Save(dlg.FileName)
            Next
        Next
    Next
End If
e.Form.Controls("Label1").Text = "临界生名册已导出并删除!"

谢谢！

For Each Hj As String In Hjs
      If sheet(i,0).Text.EndsWith(Hj) Then '如果指定列(第1列)中含Hj字符存在
            For n As Integer = 0 To sheet.Cols.count -1
                 sheet(i,n).Style = Style
            Next

不可以,只能用坐标哦.

喔。谢谢！