以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  excel模板中可以使用replace替换值吗?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=142342)

--  作者:lxhmax
--  发布时间:2019/10/24 16:46:00
--  excel模板中可以使用replace替换值吗?

老师们,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() \'显示报表


--  作者:有点蓝
--  发布时间:2019/10/24 16:58:00
--  
execl使用标记,参考:http://www.foxtable.com/webhelp/topics/1396.htm