那你试试
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