Foxtable(狐表)用户栏目专家坐堂 → excel模板中可以使用replace替换值吗?


  共有1733人关注过本帖树形打印复制链接

主题:excel模板中可以使用replace替换值吗?

帅哥哟,离线,有人找我吗?
lxhmax
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:621 积分:5549 威望:0 精华:0 注册:2012/8/2 19:04:00
excel模板中可以使用replace替换值吗?  发帖心情 Post By:2019/10/24 16:46:00 [只看该作者]

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


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106578 积分:542061 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/10/24 16:58:00 [只看该作者]


 回到顶部