主题：求Excel打印模板，有项目例子

求Excel打印模板，有项目例子。需要输出正确的例子那样的，在文件里面有。

这个意思？

 

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

点击浏览该文件:01模板.xls

统计参考 http://www.foxtable.com/webhelp/scr/1389.htm

 

对，甜版厉害，但还有下面的合计怎么写呢

统计，参考这里处理，不清楚你要统计哪些列的数据

 

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

 

安装这样 每列都统计

1、修改模板如

 

<cdbl([米数加送数])>
<cdbl(*[米数加送数+1]*)>
<cdbl(*[米数加送数+2]*)>

 

2、参考模板

 

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

点击浏览该文件:01模板.xls

 

3、参考代码

 

Dim fname As String = e.Form.name

'Dim dr As Row=Tables(fname & "_Table1").Current
Dim f As String = " 订单号 = 'DDH190304'"

Dim n As String = ProjectPath & "01模板.xls"
Dim Book As New XLS.Book(n)
'Dim r As Row=Tables(fname & "_Table1").Current
Dim fl As String = ProjectPath & "打印输出.xls"

book.AddDataTable("打印主表","主数据源","select * from DY_主表 ") '添加子表
book.AddDataTable("打印颜色列表","主数据源","select * from DY_颜色统计") '添加子表    2
book.AddDataTable("打印颜色统计","主数据源","select * from DY_颜色统计") '添加子表    2
book.AddDataTable("打印码单明细","主数据源","select * from YW_检验码单 where " &  f) '添加子表

book.AddRelation("打印主表","订单号","打印颜色列表","订单号") '建立关联2
book.AddRelation("打印主表","订单号","打印颜色统计","订单号") '建立关联2
book.AddRelation("打印颜色统计","颜色","打印码单明细","颜色") '建立关联2

Book.Build()
Book.Save(fl)

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range
For i As Integer = 1 To ws.UsedRange.Rows.count
    If Ws.Cells(i,1).text = "TTL:" Then
        Ws.Cells(i, 2).FormulaR1C1 = "=COUNT(R[-40]C[1]:R[-1]C[1]"
        Ws.Cells(i, 4).FormulaR1C1 = "=SUM(R[-40]C:R[-1]C)"
        Ws.Cells(i, 6).FormulaR1C1 = "=COUNT(R[-40]C[2]:R[-1]C[2]"
        Ws.Cells(i, 7).FormulaR1C1 = "=COUNT(R[-40]C:R[-1]C"
    End If
Next
App.Visible = True

公式不对哇，出来这样结果
此主题相关图片如下：qq截图20190307134147.png

下载6楼模板啊。如果还有问题具体项目发上来测试。

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

点击浏览该文件:01模板.xls

就是用了那个模板的，但执行代码，打印出来，给单元格写入公式，然后不对的