通过如下的VBA代码，可获取任务管理器中的所有进程。
Set objs = GetObject("WinMgmts:").InstancesOf("Win32_Process")
For Each Obj In objs
tmp = tmp & WorksheetFunction.Text(a + 1, "[DBNum2][$-804]0: ") + vbTab + Obj.Description + Chr(13)
a = a + 1
Next
MsgBox tmp, 65, "信息提示"
如上代码，可在OFFICE环境中使用。