Excel-Datei aus Word heraus erstellen

Sub test()
Dim xlApp As Object, xlMappe As Object, xlSheet As Object
Set xlApp = CreateObject("Excel.Application")
Set xlMappe = xlApp.Workbooks.Add
Set xlSheet = xlMappe.Worksheets(1)
xlSheet.Name = "Daten"
xlMappe.SaveAs FileName:=ActiveDocument.Path & "\test", _
FileFormat:=xlNormal
xlMappe.Close
xlApp.Quit
Set xlApp = Nothing
Set xlMappe = Nothing
Set xlSheet = Nothing
End Sub