Excel Worksheet wechseln geht nicht

[FLINKER_FINGER]

Hi,

möchte gerne ein StringGrid mit Daten aus einer Excel Tabelle füllen und habe hierfür das Beispiel von dieser Seite Benutzt:
http://www.swissdelphicenter.ch/de/showcode.php?id=1728
klappt auch super, aber:

Wenn ich nun ein anderes Sheet angezeigt haben möchte gibts es Probleme. Dachte diese beiden Zeilen wären dafür zuständig:

Delphi-Quellcode:

   // Sheet := XLApp.Workbooks[1].WorkSheets[1];
    Sheet := XLApp.Workbooks[ExtractFileName(AXLSFile)].WorkSheets[1];

einfach hinten die eine 2 statt einer 1 und das 2. Sheet würde angezeigt werden. Aber es kommt eine Fehlermeldung, die wie folgt lautet: " Die Active-Methode des Range-Objekts konnte nicht ausgeführt werden"

Genug sheets sind enthalten also daran kann es nicht liegen. Hat jemand eine Idee ?