' Excel-Objekt Variable definieren
Dim xlApp As Excel.Application
On Error Resume Next
 
   ' Get existing instance of Excel if it exists.
  Set xlApp = GetObject(",Excel.Application")
 
   If Err <> 0 Then
      ' If GetObject fails, then use CreateObject instead.
      Set xlApp = CreateObject("Excel.Application")
   End If
 
With eApp
  ' Excelanzeigen
  xlApp.Application.Visible = True
  xlApp.Application.Activate
 
' ExcelDatei-Vorlage öffnen
xlApp.Documents.Open FileName:="test.xls"
 
'....
 
xlApp.Application.PrintOut (Background), Range:=wdPrintCurrentPage
xlApp.ActiveDocument.Close savechanges:=wdDoNotSaveChanges
  ' nach getaner Arbeit, Excel wieder beenden
  xlApp.Application.Quit
  End With
  Set xlApp = Nothing