Dim xlApp As Excel.Application
Dim xlMappe As Excel.Workbook
Dim xlBlatt As Excel.Worksheet
Dim xlZelle As Excel.Range
Dim intZeilen as Integer
 
 
  xlApp = New Excel.Application
   xlApp.Visible = False
   xlMappe = _
   xlApp.Workbooks.Open("D:\Data\Statistik.xls")
   xlBlatt = xlMappe.Worksheets(1)
   xlZelle = xlBlatt.Range("A1")
   intZeilen = xlZelle.CurrentRegion.Rows.Count
   xlZelle.OffSet(intZeilen, 0).Value = intZeilen
   xlZelle.OffSet(intZeilen, 1).Value = Today()
   xlZelle. OffSet(intZeilen, 2).Value = _
   txtName.Text
   xlZelle. OffSet(intZeilen, 3).Value = txtGeld.Text
'Danach muss die Mappe gespeichert und geschlossen werden:
 
xlMappe.Save
xlMappe.Close
xlApp.Quit
'Es ist nicht erforderlich, aber man kann die Objektvariablen leeren:
 
xlZelle = Nothing
xlBlatt = Nothing
xlMappe = Nothing
xlApp = Nothing