MyExcel = CreateObject("Excel.Application")
        Workbook = MyExcel.Workbooks.Add
        Sheet = Workbook.Worksheets(1)
 
 
 
        Sheet = Nothing      ' Arbeitsblatt freigeben
 
        Workbook.Close(False) ' Arbeitsmappe schließen - der Parameter FALSE 
        ' gibt an, das die Arbeitsmappe nicht gespeichert werden soll
        Workbook = Nothing      ' Arbeitsmappe freigeben
 
        MyExcel.Quit()       ' Excel beenden
        MyExcel = Nothing       ' Excel freigeben