Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colProcesses = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = 'excel.exe'")
numProc = colProcesses.Count
If numProc > 0 Then
For Each objProcess In colProcesses
strPID = strPID & objProcess.ProcessID & vbCr
Next 'objProcess
Wscript.Echo "Кол-во обнаруженных экземпляров EXCEL: " & numProc & "." _
& vbCr & "Их идентификаторы:" & vbCr & strPID
Else
Wscript.Echo "Не обнаружено ни одного экземпляра EXCEL."
End If
Excel
Здрасти-здрасти всем !
Скожитя пожлста, как словить все экземпляры Excel? запущенные в системе ?(коллекция XLApp.Workbooks дает книги текущего экземпляра, а я хочу все книги отловить)
Положим хандл окна -то я могу достать, но можно ли как-нить обьекты получить?
Скожитя пожлста, как словить все экземпляры Excel? запущенные в системе ?(коллекция XLApp.Workbooks дает книги текущего экземпляра, а я хочу все книги отловить)
Положим хандл окна -то я могу достать, но можно ли как-нить обьекты получить?
Все экземпляры запущенного в системе приложения можно обнаружить (и получить их PID) с помощью WMI.
Не знаю, поможет ли Вам мой совет, но вот пример кода:
Не знаю, поможет ли Вам мой совет, но вот пример кода:
Код: