Dim x As Object
Dim wb As Object
Dim ws As Object
 
x=CreateObject("Excel.Application")
wb=x.Workbooks.Add()
ws=wb.Sheets("Tabelle1")
ws.Cells(1, 1).Value="Hier steht was"
 
wb.SaveAs("d:\irgendwas.xlsx")
wb.Close
 
ws=Nothing
sb=Nothing
 
x.Quit
x=Nothing

EALA FREYA FRESENA