- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 已经有退出excel语句了，怎么在执行删除excel文件时还报错？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=123321)
-- 发布时间：2018/8/12 11:34:00
-- 已经有退出excel语句了，怎么在执行删除excel文件时还报错？
已经有退出excel语句了，怎么在执行删除excel文件时还报错？
此主题相关图片如下：报错1.png
此主题相关图片如下：报错2.png
[此贴子已经被作者于2018/8/12 11:34:55编辑过]
-- 发布时间：2018/8/12 21:42:00
--
试试延时一下，再删除。
|
Dim sdt As Date = Date.Now msgbox("10秒后执行") |
-- 发布时间：2018/8/15 15:45:00
--
试过了可以，但代码执行的时候，就会有咯噔一下的感觉
-- 发布时间：2018/8/15 15:53:00
--
以下是引用nethu在2018/8/15 15:45:00的发言：
试过了可以，但代码执行的时候，就会有咯噔一下的感觉
试过了可以，但代码执行的时候，就会有咯噔一下的感觉
那你试试kill掉excel再删除
Dim ps As System.Diagnostics.Process() = System.Diagnostics.Process.GetProcesses()
For Each p As System.Diagnostics.Process In ps
output.show(p.processName)
If ("Excel" = p.ProcessName)
msgbox(p.MainWindowTitle)
p.kill
End If
Next