| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 如何优化代码，让代码不重复执行当前行的文件导出 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=169838) |
| -- 作者：cnsjroom -- 发布时间：2021/7/2 19:45:00 -- 如何优化代码，让代码不重复执行当前行的文件导出 如何优化代码，让代码不重复执行当前行的文件导出 也就是当前行数据 只能运行一次下面的代码 一次执行议程 主持词 签到册 简报 不要重复生成 并且不要弹出另存为 如果出现重名或者只读 直接删除原来的然后保存新建的 Dim tm As String = ProjectPath & "Attachments\\议程.doc" \'指定模板文件 Dim tm1 As String = ProjectPath & "Attachments\\主持词.doc" \'指定模板文件 Dim tm2 As String = ProjectPath & "Attachments\\430签到册.doc" \'指定模板文件 Dim tm3 As String = ProjectPath & "Attachments\\简报.doc" \'指定模板文件 Dim Sum As Integer With Tables("党史教育学习台账") If .TopPosition > -1 Then \'如果选定区域包括数据行 For i As Integer = .TopPosition To .BottomPosition Dim r As Row = .Rows(i) Dim fileName As String = ProjectPath & "Reports\\"& r("时间")& r("参加人员")&r("主题") &"议程.doc" \'指定目标文件 Dim fileName1 As String = ProjectPath & "Reports\\"& r("时间")& r("参加人员")&r("主题") &"主持词.doc" \'指定目标文件 Dim fileName2 As String = ProjectPath & "Reports\\"& r("时间")& r("参加人员")&r("主题") &"签到册.doc" \'指定目标文件 Dim fileName3 As String = ProjectPath & "Reports\\"& r("时间")& r("参加人员")&r("主题") &"简报.doc" \'指定目标文件 Dim wrt As New WordReport(Tables("党史教育学习台账"),tm,fileName) \'定义一个WordReport wrt.BuildOne(r) wrt.quit Dim wrt1 As New WordReport(Tables("党史教育学习台账"),tm1,fileName1) \'定义一个WordReport wrt1.BuildOne(r) wrt1.quit Dim wrt2 As New WordReport(Tables("党史教育学习台账"),tm2,fileName2) \'定义一个WordReport wrt2.BuildOne(r) wrt2.quit Dim wrt3 As New WordReport(Tables("党史教育学习台账"),tm3,fileName3) \'定义一个WordReport wrt3.BuildOne(r) wrt3.quit Sum = Sum + 1 Next End If End With MessageBox.Show("本次共导出"& sum &"份个人信息到:"& ProjectPath &"Reports\\","运行结果")
|
| -- 作者：有点蓝 -- 发布时间：2021/7/3 9:01:00 -- 添加一个“是否已打印”逻辑列，打印完就勾选，打印前判断已经勾选的就不打印 |
| -- 作者：cnsjroom -- 发布时间：2021/7/3 10:39:00 -- 回复：（有点蓝）添加一个“是否已打印”逻辑列，打印... 代码会先执行一个空文档 也就是模板文件内容 只是把名称改成了指定名称 有没有办法不形成空模板文件 呢？
|
| -- 作者：有点蓝 -- 发布时间：2021/7/3 11:26:00 -- 没有的。不想要模板，考虑使用专业报表 |