Dim obj_Excel As New Excel.Application
            Dim wkb_Excel As Object = obj_Excel.Workbooks.Add
            wkb_Excel.SaveAs(sFile)
            wkb_Excel.Close()
            obj_Excel.Quit()
            wkb_Excel = Nothing
            obj_Excel = Nothing
            GC.Collect()
            GC.WaitForPendingFinalizers()

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist