Sub Excel_Oeffnen()
    Dim ExcelObj As Object, XLSFile
 
    'Erzeugt eine neue Session von MS-Excel
    Set ExcelObj = CreateObject("excel.application")
 
    'Macht Excel sichtbar
    ExcelObj.Visible = True
 
    'Öffnet die Datei XYZ.xls
    Set XLSFile = ExcelObj.Workbooks.Open(FileName:="C:\XYZ.XLS")
 
    'Ändert auf dem 1. Tabellenblatt den Wert von Zelle A1 in <Neuer Wert>
    XLSFile.Worksheets(1).Range("A1") = "Neuer Wert"
 
    'Dieser Befehl schließt nur die Datei ohne sie zu speichern
    'XLSFile.Close SaveChanges:=False
 
    'Dieser Befehl beendet Excel
    'ExcelObj.Quit
 
End Sub

Viel Spass,
R@lf