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 ?

[Chemiker]

Hallo FINKER_FINGER;

Normal kann man mit


XLApp.Worksheets ['Tabelle1'].Activate; ein anderes Sheets ansprechen oder mit einem Index

XLApp.Worksheets [2].Activate; Bis bald Chemiker

[FLINKER_FINGER]

Ja das habe ich auch gefunden, geht aber nicht.
Im beispiel wird halt mit einer Variablen "Sheet: OLEVariant;" gearbeitet. Dieser Wird dann wie folgt declariert:
Sheet := XLApp.Workbooks[ExtractFileName(AXLSFile)].WorkSheets[1]; Das klappt auch, aber wie gesagt nur mit dem ersten. Sobald ich aus der "1" eine "2" mache ist vorei und die Fehlermeldung kommt.

Sheet := XLApp.Workbooks[ExtractFileName(AXLSFile)].WorkSheets[2]; kann man die Zeile irgendwie umschreiben das es geht... verstehe auch nicht warum es überhaupt zur Fehlermeldung kommt...
Vielleicht irgendwie :

Delphi-Quellcode:

        XLApp.Worksheets[2].Activate;
sheet := XLApp.Workbooks[ExtractFileName(AXLSFile)].WorkSheets.activated;

[FLINKER_FINGER]

so habs :

Delphi-Quellcode:

    XLApp.Worksheets[2].Activate;
sheet :=  XLApp.ActiveSheet;

[Chemiker]

Hallo,

bevor Du was ein Sheet schreiben kannst, muss es zuvor Aktiviert werden, das gleich gilt natürlich auch für ein Workbook.

Bis bald Chemiker