以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  第一个是带路径带文件名，后一个只是文件名，但还是关闭不了打开状态的excel  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=134782)
--  作者：xxfoxtable
--  发布时间：2019/5/6 14:38:00
--  第一个是带路径带文件名，后一个只是文件名，但还是关闭不了打开状态的excel
ShowAppWindow(Vars("xlsfile"),5)
ShowAppWindow(Vars("name"),5)
--  作者：有点甜
--  发布时间：2019/5/6 15:03: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 ("Excel" = p.ProcessName)
        msgbox(p.MainWindowTitle)
        \'p.kill
    End If
Next