Dim excelApp As Object
Dim mappe As Object
Dim blatt As Object
 
Try
     excelApp = GetObject("Excel.Application")
catch ex As Exception
     excelApp = CreateObject("Excel.Application")
End Try

 
blatt.close()
mappe.close()
excelApp.Quit()