Dim ps As System.Diagnostics.Process() = System.Diagnostics.Process.GetProcessesByName("excel") msgbox(ps.length)
----------------------循环所有进程,参考
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