主题：[求助]导出exlce年份20不显示，怎么实现？

系统里面的表，年份的开头 20 不显示
If e.Col.name = "日期列年份的20不显示" AndAlso e.text > "" Then
    e.text = Format(cdate(e.text), "yy-MM-dd")
End If

用excle模板，分组统计报表
导出excle的日期，年开头的20不能隐藏，要导出的excle年份的20也隐藏，怎么实现？求助

要在你excel模板那里写公式，如

 

<format([日期列], "yy-MM-dd")>

<format([日期列], "yy-MM-dd")>，在实际项目中，如果日期列为空，导出显示为0.00，这个问题怎么修复呢》？

 

如果同时要实现：

1、分组橙色序号排序+1，模板怎么修改呢？

2、每个橙色分组行上面都显示蓝色区域列标题，模板怎么修改呢？

 

此主题相关图片如下：问题 2.png

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

点击浏览该文件:项目2.zip

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

点击浏览该文件:项目2.rar

版本过高，打不开。

我这边的版本是7月9日的版本，不能升级了，

辛苦坛主，转一个底版本了

 

此主题相关图片如下：加密狗到期不能升级.jpg

beforeBuild事件 vars("idx") = 0

 

buildGroupHeader事件 vars("idx") += 1

 

http://www.foxtable.com/webhelp/scr/1953.htm

 

 DrawCell里面设置了，单元格样式，多种颜色，下面导出excle表，颜色不能显示，
要导出excle单元格背景色，下面代码怎么修改呢？

Dim Book As New XLS.Book(ProjectPath & "Attachments\我的项目分组统计.xls")
            'Dim fl As String = ProjectPath & "Reports\施工图版物料的封面.xls"
            Dim fl As String = "D:\我的项目分组统计.xls" '指定目标文件
            Book.Build() '生成细节区
            Book.Save(fl) '保存工作簿
            Dim Proc As New Process '打开工作簿
            Proc.File = fl
            Proc.Start()

无法导出样式的。

 

生成报表后，用xls.book重新打开重新设置样式。

 

 

Dim Book As New XLS.Book(ProjectPath & "Attachments\我的项目分组统计.xls")
            'Dim fl As String = ProjectPath & "Reports\施工图版物料的封面.xls"
            Dim fl As String = "D:\我的项目分组统计.xls" '指定目标文件
            Book.Build() '生成细节区
            Book.Save(fl) '保存工作簿

上面保存后，怎么把系统里的单元格颜色，设置过来呢？
要实现导出 单元格颜色，同时导出的是：上楼的分组统计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

    app.visible = True

无法直接设置。

 

一个一个重新设置才行

 

http://www.foxtable.com/webhelp/scr/1148.htm

 

http://www.foxtable.com/webhelp/scr/1146.htm