Set WMI = GetObject("winmgmts:")
Set Prozesse = WMI.InstancesOf("Win32_Process")
 
'i = 0
 
For Each Prozess In Prozesse
  If LCase(Prozess.Name) = "excel.exe" Then
'   i = i + 1
    Set Excel = GetObject(, "Excel.Application")
 
    Excel.ActiveWorkbook.Save
'   oder so
'   Excel.ActiveWorkbook.SaveAs "c:\test" & i & ".xls"
 
    Prozess.Terminate()
    WScript.Sleep 1000
  End If
Next