excel = .oleobject~new("Excel.Application")
excel~visible = .true
workbook = excel~Workbooks~Add

worksheet = workbook~Worksheets(1)
worksheet~Activate

worksheet~Cells(1,1)~Value = "Name"
worksheet~Cells(1,2)~Value = "Adresse"
worksheet~Cells(1,3)~Value = "Telefonnummer"

name = pull "Bitte geben Sie den Namen ein:"
adresse = pull "Bitte geben Sie die Adresse ein:"
telefonnummer = pull "Bitte geben Sie die Telefonnummer ein:"


worksheet~Cells(2,1)~Value = name
worksheet~Cells(2,2)~Value = adresse
worksheet~Cells(2,3)~Value = telefonnummer

workbook~SaveAs("C:\Users\Alpha\MeinExcelDokument.xlsx")

excel~Quit