Excelを落とす場合
for each Process in _ GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery ("select * from Win32_Process where Name='EXCEL.EXE'") Process.terminate Next
ネタ元
Excelを落とす場合
for each Process in _ GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery ("select * from Win32_Process where Name='EXCEL.EXE'") Process.terminate Next
ネタ元