oStream = oFSO.CreateTextFile("C:\Test\file.xls", True)
        oStream.Close()
 
        Dim xlapp As Excel.Application
        Dim xlwbBook As Excel.Workbook
 
        xlapp = CreateObject("Excel.Application")
        xlwbBook = xlapp.Workbooks.Open("C:\Test\file.xls")
 
        xlwbBook.Close(SaveChanges:=False)
 
        xlapp.Quit()
        xlwbBook = Nothing
        xlapp = Nothing
        GC.Collect()

Liebe Gr?sse,
Simon