Option Explicit
Dim Excel, Pfad(3), Arbeitsmappen(3), Arbeitsmappe, n
Pfad(0) = "C:\test.xls"
Pfad(1) = "C:\test1.xls"
Pfad(2) = "C:\test2.xls"
Pfad(3) = "C:\test3.xls"
 
Set Excel = CreateObject("Excel.Application")
Excel.visible = True
For n = 0 To Ubound(Pfad)
  Set Arbeitsmappen(n) = Excel.Workbooks.Open(Pfad(n))
Next
 
WScript.Sleep 1000
 
For n = 0 To Ubound(Arbeitsmappen) - 1
  set Arbeitsmappe = Arbeitsmappen(n)
  Arbeitsmappe.close
Next
 
WScript.Sleep 1000
Excel.Quit