Dim XLApp As New Excel.Application
(...)
XLApp.Workbooks.Add (xlWBATWorksheet)
XLApp.Visible = False
(...)
XLApp.ActiveWorkbook.ActiveSheet.Cells(1, 1).Value = 42     ' Hier werden eine 
' ganze Menge Daten in das  Excel-Blatt geschrieben
(...)
XLApp.ActiveWorkbook.SaveAs sOutputFileName
XLApp.Workbooks.Close
XLApp.Quit
Set XLApp = Nothing