Sub 所有进程() 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, '提示你哦' End Sub |
|
来自: Excel实用知识 > 《VBA与EXCEL》