Dim xlApp As Excel.Application
Dim xlMappe As Excel.Workbook
Dim xlBlatt As Excel.Worksheet
Dim xlZelle As Excel.Range
 
xlApp = New Excel.Application
xlApp.Visible = True
xlMappe = xlApp.Workbooks.Open("c:\Exceldatei.xls")
xlBlatt = xlMappe.Worksheets(1)
xlZelle = xlBlatt.Range("A1")
xlZelle.Offset(1, 1).Value = "Hallo Welt!"