方法一:http://www.foxtable.com/webhelp/scr/2713.htm
方法二:kill进程
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 IfNext