Instanzen sehen und beenden (code z.T vorhanden)
18.02.2009 11:31:00
chris
ich suche mal wieder Hilfe.
Hoffe ihr könnt mir helfen.
ich habe hier einen Code mit diesem sehe ich die Anzahl aller
Excelinstanzen die gestartet wurden auch wenn Sie unsichtbar sind.
Ich wollte den Code so modifizieren das ich die einzelnen Instanzen beendet kann oder sichtbar machen bzw. Unsichtbar machen kann.
Aber leider klappt das nicht.
ich habe es mit dieser zeile versucht->
.sinProcess.Quit'beenden
.sinProcess.visible = true 'Sichtbar machen
würde mich freuen wenn ihr mir helfen könntet.
Dafür vielen dank im vorraus !
gruß Chris
Option Explicit
Sub test()
Dim l As Long
l = ReadProcessData("EXCEL.EXE")
MsgBox l & " Excel-Instanzen offen"
End Sub
Function ReadProcessData(ByVal Prozess As String) As Long
Dim objWMIService As Object, colProcesses As Object, sinProcess As Object
Set objWMIService = GetObject("winmgmts:")
Set colProcesses = objWMIService.ExecQuery("Select * from Win32_Process")
ReadProcessData = 0
For Each sinProcess In colProcesses
With sinProcess
If .Name = Prozess Then
ReadProcessData = ReadProcessData + 1
'.sinProcess.Quit
End If
End With
Next
Set objWMIService = Nothing
Set colProcesses = Nothing
End Function