Dim objExcel As New Excel.Application
            Dim objWorkBook As Excel.Workbook
            Dim objWorkSheet As Excel.Worksheet
 
            objWorkBook = objExcel.Workbooks.Add
            objWorkSheet = objWorkBook.Sheets(1)
            objWorkSheet.Cells(1, 1).Value = "Name"
            objWorkSheet.Cells(1, 2).Value = "Vorname"
 
            objExcel.ActiveWorkbook.SaveAs(Filename:="D:\Projekte\test.xls")
            objWorkBook.Close()