Witam,
probuje zamknac jeden z procesow excela (ten ktory ma wyzszy PID) - otwarte sa dwa excel-sheety i ten “nowszy” (z wyzsza PID) ma zostac zamkniety.
Jak narazie zamykam wszystkie excel procesy…
Prosze o pomoc.
Dim objWMI, oSammlung
Dim strFolder, Proz, Frage, Antwort
Dim z, y
' -----------------------------------------------------------------------------------------------------------------------------
Proz = "excel.exe"
Set objWMI = GetObject("WinMgmts:\\.")
Set oSammlung = objWMI.ExecQuery("SELECT * FROM Win32_Process WHERE Name = '" & Proz & "'")
for each item in oSammlung
' Wscript.echo item.Handle
item.Terminate()
next
wscript.quit