Sub Excel_Oeffnen()
    Dim ExcelObj As Object, XLSFile
 
    [color=green]'Erzeugt eine neue Session von MS-Excel
    Set ExcelObj = CreateObject("excel.application")
 
    [color=green]'Macht Excel sichtbar
    ExcelObj.Visible = True
 
    [color=green]'Öffnet die Datei XYZ.xls
    Set XLSFile = ExcelObj.Workbooks.Open(FileName:="C:\XYZ.XLS")
 
    [color=green]'Dieser Befehl schließt nur die Datei ohne sie zu 
    ' speichern
    [color=green]'XLSFile.Close SaveChanges:=False
 
    [color=green]'Dieser Befehl beendet Excel
    [color=green]'ExcelObj.Quit
 
End Sub

Viel Spass,
R@lf