Public Exl As Object
Public ExlWb As Object
 
Public Sub ExcelÖffnen()
 
Set Exl = CreateObject("Excel.Application")
Set ExlWb = Exl.Workbooks.Open("......xls")
 
End Sub
 
 
Public Sub ExcelSchliessen()
 
ExlWb.Close SaveChanges:=False
Set ExlWb = Nothing
 
Exl.Quit
Set Exl = Nothing
 
End Sub