如何优化代码，让代码不重复执行当前行的文件导出
也就是当前行数据 只能运行一次下面的代码 一次执行议程 主持词 签到册 简报
不要重复生成 并且不要弹出另存为 如果出现重名或者只读 直接删除原来的然后保存新建的
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\","运行结果")
加好友 
发短信
Post By：2021/7/2 19:45:00 [只看该作者]
