Private Sub WriteToExcel()
   Dim e As New Excel.Application
   e.Application.Workbooks.Add
   e.Application.Visible = False
   e.Worksheets("Tabelle1").Name = "MeinSheet"
   e.Worksheets("MeinSheet").Range("a1") = "Hallo Welt"
   e.ActiveWorkbook.SaveAs ("c:\Temp\MeineDatei.xls")
   e.Workbooks.Close
   e.Quit
End Sub