Dim r As Row = Tables("派车记录表").Current
Dim tm As String = ProjectPath & "Attachments\运输合同.docx" '指定模板文件
msgbox("模板指定通过")
Dim fl As String = ProjectPath & "运输合同\运输合同导出.docx"
'Dim fl As String = ProjectPath & "运输合同\" & Format(r("日期"), "D") & "运输合同" & "-" & r("承运人姓名") & "-" & r("目的地") & " .docx" '指定目标文件
msgbox("运输合同导出通过")
Dim wrt As New WordReport(Tables("派车记录表"),tm,fl) '定义一个WordReport
wrt.Build() '逐行生成报表
wrt.Show() '显示报表
msgbox("运输合生成通过")
Dim fl3 As String = ProjectPath & "运输合同"
Dim Proc2 As New Process '打开工作簿
Proc2.File = fl3
Proc2.Start()
以上是代码：是第一样的，
第一：其它电脑可以正常导出，
第二：execl的可以导出，word的不正常
第三：所有代码都能通过，但就是老是不跳出word程序，
第四：如果是新启动电脑，那么就是不跳出word程序，如果不是新启动，那么就出现提示：目标报表文件已经被其它进程打开，生成的报表将存为一个临时文件！ 说明他是导出来的，只是不显示而已，不知是操作系统问题，还是word问题。这台电脑又是我的加密狗的，不想重装系统。请问是哪里问题？谢谢！
加好友 
发短信
Post By：2019/4/10 11:37:00 [显示全部帖子]
