老师们,excel模板中可以像word一样使用这个参数吗?怎么使用?
Replace对模板的修改是全局的。
我们也可以用ReplaceOne修改模板,和Repalce不同,RepalceOne仅对下一条记录生效,需要和BuildOne配合使用,例如:
Dim tm As String = ProjectPath & "Attachments\订单.doc" '指定模板文件
Dim fl As String = ProjectPath & "Reports\订单.doc" '指定目标文件
Dim wrt As New WordReport(Tables("订单"),tm,fl) '定义一个WordReport
Dim sum As Integer
For Each r As Row In Tables("订单").rows '逐行生成报表
sum = sum + r("数量") '逐行累计
wrt.ReplaceOne("[合计]",sum)
wrt.BuildOne(r)
Next
wrt.Show() '显示报表