- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 专业报表转PDF (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=162228)
-- 发布时间：2021/4/9 15:51:00
-- 专业报表转PDF
几个专业报表专成PDF后，再合并成一个PDF,
再次点击时，显示PDF已打开（实际已经关闭）
For Each File As String In FileSys.GetFiles("C:\\Temp\\" & Tables("表A").current("项目编号") & "\\" )
If FileIsOpened(File)= True Then
\' MessageBox.Show(File)
MessageBox.Show("文件已经打开,请先关闭此文件.","提示")
Return
End If
FileSys.DeleteFile(File,2,2) \'这是临时PDF保存的路径,每次要清空,避免把上次的文件一起参与合并胃.
Next
实际已经关闭了，但依旧会出来这个提示
但过个一会，再点这个提示就自动没了
要怎么再在后台关闭一遍
-- 发布时间：2021/4/9 16:06:00
--
一些软件关闭是要一定的时间的。可以等待几秒后再处理，比如等待2秒
System.Threading.Thread.Sleep(2000)
2楼的删除代码
-- 发布时间：2021/4/12 15:26:00
--
老师，暂停了好久，都不行，也不知道啥时候行的。估计得个10-30分钟的样子
有没有强制结束的代码？
此主题相关图片如下：111.png
-- 发布时间：2021/4/12 15:34:00
--
试试
Dim ps As System.Diagnostics.Process() = System.Diagnostics.Process.GetProcesses()
For Each p As System.Diagnostics.Process In ps
output.show(p.processName)
If ("这里改为任务管理器里PDF进程的名称" = p.ProcessName)
msgbox(p.MainWindowTitle)
\'p.kill
End If
Next
-- 发布时间：2021/4/12 15:55:00
--
老师，在执行结束时报错~~
此主题相关图片如下：222.png
-- 发布时间：2021/4/12 17:00:00
--
进程的名称应该不正确
另外foxtable设置为使用管理员身份运行